Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: WHATRVS867)}} ====== WHATRVS867 ====== (George Source) **Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLENG|ALTLENG]], [[george:macro:AND|AND]], [[george:macro:BS|BS]], [[george:macro:BXU|BXU]], [[george:macro:CHEKLFN2|CHEKLFN2]], [[george:macro:CHNUMCOX|CHNUMCOX]], [[george:macro:COMERR|COMERR]], [[george:macro:DO|DO]], [[george:macro:ELSE|ELSE]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FI|FI]], [[george:macro:FREECORE|FREECORE]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:IF|IF]], [[george:macro:JBS|JBS]], [[george:macro:JBSS|JBSS]], [[george:macro:JMBS|JMBS]], [[george:macro:MBC|MBC]], [[george:macro:MBS|MBS]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:OPSCON|OPSCON]], [[george:macro:OR|OR]], [[george:macro:PARABEG|PARABEG]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PARALYSE|PARALYSE]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PARUNACC|PARUNACC]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:REPEAT|REPEAT]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SPARABEG|SPARABEG]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:SPARANOX|SPARANOX]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:THEN|THEN]] <code - WHATRVS867.txt>22FL SEG WHATRVS,866,J.K.PROTHEROUGH 22^= [ 23DW [ 23YG [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 24D6 [ 24XQ SEGENTRY K1WHATRVS,X1WHATRVS 25CB [ 25X2 [IMPLEMENTS THE WHATRVS COMMAND TO OBTAIN A LIST OF 26BL [OUTSTANDING RETRIEVE REQUESTS 26W= [ 27*W [ 27TG [ 28*6 [MONITORING FILE MESSAGES 28SQ WRVBY +JWVRVBY 29#B WFNAME +JWVFIL 29S2 WTERM +JWVTERM 2=?L WNOUT +JWVNOUT 2=R= WCOUNTMESS +JWVCOUNT 2?=W MAXSELEC +9 2?QG MAGIC 7036875 2#=6 PSTRJOBNO 8HJOBNO 2#PQ PSTRCOLON 4H: 2*9B PSTRALL 8HALL 2*P2 PSTRFULL 8HFULL 2B8L PSTRUSER 8HUSER : 2BN= PSTRHERE 8HHERE 2C7W PSTRLIST 8HLIST 2CMG PROPERTY 8HPROPERTY 2D76 PRJBRAC 1H) 2DLQ PRJPROP 9H,PARAM(PR 2F6B PRUNJOB 36HRJ WVLIST0000,:OPERATORS,WVLISTJDF 2FL2 P10000 +10000 2G5L PVAL2 +2 2GK= PVAL4 +4 2H4W PFILEDES 10 2HJG POPERATORS 12HOPERATORS 2J46 12HWHATRVS 2JHQ 1 2K3B #20000001 2KH2 4HB1 2L2L 2LG= [ 2L^W [ 2MFG [ 2M^6 X1WHATRVS 2NDQ 2PXL [ 2QC= CALL 7 SETBLOCKS 2QWW 2RBG [ 2RW6 [LOOK FOR JOBNO AS %A 2S*Q [ 2STB MHUNT 2,CPB,CALAS 2T*2 LDX 6 APARANUM(2) 2TSL IF 6,NZ 2W#= THEN 2WRW LDX 6 APARAFIR(2) 2X?G ANDN 6 #7777 [X6 = CHAR COUNT OF %A 2XR6 IF 6,NZ 2Y=Q THEN 2YQB LDCH 0 APARAFIR+1(2) 2^=2 SBN 0 #73 2^PL IF EITHER,0,PZ [IF > 'Z' 329= ADN 0 #73-#41 32NW OR 0,NG [OR < 'A' 338G ADN 0 #41-#32 33N6 AND 0,NZ [AND .NE. '*' 347Q ADN 0 #32-#12 34MB AND 0,NZ [AND .NE. ':' THEN JOBNO 3572 THEN 35LL SPARANOT 1 366= CHNUMCOX 36KW TESTRPN2 OK,ZENDCOM 375G LDX 5 ACOMMUNE1(2) 37K6 BNG 5 ZJOBNOERR [JOBNO -VE 384Q BZE 5 ZJOBNOERR [JOBNO ZERO 38JB MFREE CPB,CUNI 3942 MHUNTW 3,ADATA,AWHATRVS 39HL STO 5 AWVJOBNO(3) 3=3= BS 3,AWVBJOBNO [SET JOBNO BIT 3=GW CALL 7 SEPARATE [SET UP SELECTION DETAILS 3?2G LDX 0 FX1 3?G6 ADN 0 PSTRJOBNO 3?^Q MVCH 0 6 [MOVE JOBNO TO SELECTION 3#FB [DETAILS BLOCK 3#^2 CALL 7 SUBADDNUM 3*DL FI 3*Y= ELSE 3BCW PARAPASS 3BXG BRN ZNULLPAR 3CC6 FI 3CWQ FI 3DBB [ 3DW2 [LOOK FOR :USER,JOB OR JOB,:USER 3F*L [ 3FT= LDX 1 FX1 3G#W LDN 3 1 3GSG LDN 1 PSTRCOLON(1) 3H#6 CALL 7 SUBPARAM 3HRQ LDX 7 ANUM(2) 3J?B IF 7,PZ [IF COLON PRESENT 3JR2 THEN 3K=L JBS ZPREVJOBNO,3,AWVBJOBNO [ERROR IF PREVIOUS JOBNO 3KQ= BZE 7 ZNULLUSER 3L9W STO 3 7 3LPG CHEKLFN2 ZNVALNAM,ZNVALNAM,2 [CHECK USERNAME FORMAT 3M96 LDX 3 7 3MNQ CALL 1 TRANSFER 3N8B +AWVUSERNAM 3NN2 [COPY USERNAME TO ADATA/AWHAT 3P7L BS 3,AWVBUSERNAM [SET USERNAME BIT 3PM= CALL 7 SEPARATE 3Q6W LDN 0 #12 [ADD USERNAME TO SELECTION DE 3QLG DCH 0 0(1) 3R66 BCHX 1 £ 3RKQ CALL 7 SUBADDPAR 3S5B FREECORE 2 3SK2 PARUNACC 3T4L [GET JOBNAME (FIRST UNACC PAR 3TJ= MHUNT 2,CPB,CUNI 3W3W CHEKLFN2 ZNOJOBNAM,ZNVALNAM,2 3WHG [CHECK JOBNAME FORMAT 3X36 MHUNTW 3,ADATA,AWHATRVS 3XGQ CALL 1 TRANSFER [COPY JOBNAME TO ADATA/AWHATR 3Y2B +AWVJOBNAM 3YG2 BS 3,AWVBJOBNAM [SET JOBNAME BIT 3Y^L CALL 7 SEPARATE [ADD JOBNAME TO SELECTION DET 3^F= CALL 7 SUBADDPAR 3^YW FI 42DG FREECORE 2 42Y6 [ 43CQ [LOOK FOR USERNAME GIVEN BY 'USER' 43XB [ 44C2 LDN 3 4 44WL LDN 1 PSTRUSER(1) 45B= CALL 7 SUBPARAM 45TW LDX 1 ANUM(2) 46*G IF 1,PZ [IF 'USER' PRESENT 46T6 THEN 47#Q BS 3,AWVBUSER [SET USER BIT 47SB JBSS Z2USERS,3,AWVBUSERNAM [PREVIOUS ':' 48#2 JBS Z2USERS,3,AWVBJOBNO [OR PREVIOUS JOBNO THEN ERROR 48RL [ELSE SET USERNAME BIT 49?= BZE 1 ZNULLUSER 49QW LDCH 7 APARA(2) 4==G SBN 7 #12 4=Q6 IF 7,ZE [IF 'USER' : 4?9Q THEN 4?PB LDX 1 JPARNUM(2) 4#92 4#NL PARALYSE #12,,1 [THEN SPLIT AT : 4*8= TESTREP2 UNPAIR,ZNVALNAM,TOOMANY,ZMAXPAR 4*MW SPARANOT 2 [GET USERNAME (2ND PARAM) 4B7G PARAFREE [FREE CMULTI 4BM6 MHUNT 2,CPB,CUNI 4C6Q FI 4CLB CHEKLFN2 ZNULLUSER,ZNVALNAM,2 [CHECK USERNAME FORMAT 4D62 MHUNTW 3,ADATA,AWHATRVS 4DKL 4F5= CALL 1 TRANSFER 4FJW +AWVUSERNAM 4G4G CALL 7 SEPARATE 4GJ6 LDX 0 FX1 4H3Q 4HHB ADN 0 PSTRUSER 4J32 MVCH 0 6 4JGL CALL 7 SUBADDPAR 4K2= FI 4KFW FREECORE 2 4K^G [ 4LF6 [LOOK FOR 'ALL' 4LYQ [ 4MDB LDN 3 3 4MY2 LDN 1 PSTRALL(1) 4NCL CALL 7 SUBPARAM 4NX= LDX 1 ANUM(2) 4PBW IF 1,PZ 4PWG THEN 4QB6 JMBS Z2USERS,3,AWVBUSERNAM,AWVBUSER,AWVBJOBNO 4QTQ BS 3,AWVBALL [SET ALL BIT 4R*B CALL 7 SEPARATE 4RT2 4S#L 4SS= LDX 0 FX1 [PUT ALL IN SELECTION DETAILS 4T?W ADN 0 PSTRALL 4TRG MVCH 0 4 4W?6 FI 4WQQ FREECORE 2 4X=B 4XQ2 4Y9L [ 4YP= [CLOSE SELECTION DETAILS BLOCK 4^8W [ 4^NG MHUNT 3,ADATA,CREADL 5286 LDX 1 A1+1(3) 52MQ SBN 1 A1+2 537B 53M2 IF 1,ZE [IF NO PARAMETERS 546L THEN [FREE BLOCK 54L= FREECORE 3 555W ELSE 55KG CALL 7 SUBENDETAIL 5656 ALTLENG 3,2 56JQ FI 574B [ 57J2 [SET ALL AS DEFAULT IF NECESSARY 583L [ 58H= [ 592W MHUNTW 3,ADATA,AWHATRVS 59GG JMBS NSOK,3,AWVBUSERNAM,AWVBUSER,AWVBJOBNO 5=26 BS 3,AWVBALL 5=FQ NSOK 5=^B [ 5?F2 [PROCESS ROUTING PARAMETER 5?YL [ 5#D= [LOOK FOR 'HERE' 5#XW [ 5*CG PARABEG 1,PVAL4(1),PSTRHERE(1),,0 5*X6 MHUNT 2,CPB,CUNI 5BBQ IF +ANUM(2),PZ [IF 'HERE' PRESENT 5BWB THEN 5CB2 BNZ 0 ZDUFFPAR 5CTL MHUNTW 3,ADATA,AWHATRVS 5D*= BS 3,AWVBHERE [SET 'HERE' BIT 5DSW FI 5F#G FREECORE 2 5FS6 [ 5G?Q [LOOK FOR 'LIST' 5GRB [LEAVE %(PR) IN CUNI, OR IF PROPERTY NOT GIVEN THEN NO CUNI LEFT 5H?2 [ 5HQL SPARABEG 1,PVAL4(1),PSTRLIST(1),,0 5J== MHUNT 2,CPB,CUNI 5JPW LDX 7 ANUM(2) 5K9G IF 7,PZ [IF 'LIST' PRESENT 5KP6 THEN 5L8Q MHUNTW 3,ADATA,AWHATRVS 5LNB JBS ZHL,3,AWVBHERE [IF LIST & HERE,ERROR 5M82 MBS 3,AWVBFULL,AWVBLIST [SET FULL + LIST BITS 5MML IF 7,NZ [IF PROPERTY STRING 5N7= THEN 5NLW LDX 3 JPARNUM(2) 5P6G PARALYSE ,,3 5PL6 TESTREP2 UNPAIR,ZLISTWR,TOOMANY,ZMAXPAR 5Q5Q PARANUMB 4 5QKB BXU 4 PVAL2(1),ZLISTWR [IF NOT 2 PARAMS 5R52 LDN 1 2 [REMOVE BRACKETS 5RJL PARALYSE ,,1 5S4= TESTREP2 TOOMANY,ZMAXPAR 5SHW LDN 7 8 5T3G DO 5TH6 SPARABEG 1,7,PROPERTY(1) [LOOK FOR 'PR' PARAM 5W2Q MHUNT 2,CPB,CUNI 5WGB LDX 6 ANUM(2) 5X22 IF 6,PZ [IF 'PR' FOUND 5XFL THEN 5X^= BNZ 6 NXTLISFND 5YDW BRN ZWRQUAL [ERROR IF NULL 5YYG FI 5^D6 FREECORE 2 [ELSE TRY AGAIN 5^XQ SRL 7 2 [FOR 'PR' 62CB 62X2 BZE 7 ZWRQUAL 63BL REPEAT 63W= NXTLISFND 64*W HUNT2J 2,CPB,CUNI,,(GEOERR) [FIND 'LIST' CUNI 64TG FREECORE 2 [FREE IT 65*6 MHUNT 3,ADATA,AWHATRVS 65SQ BS 3,AWVBLISTPR [SET PROPERTY BIT 66#B PARAFREE [FREE CMULTI 66S2 67?L BRN NOTLIST 67R= FI [END 'PR' CODE 68=W FI [END 'LIST' CODE 68QG FREECORE 2 69=6 [ 69PQ NOTLIST 6=9B [ 6=P2 [ 6?8L [PROCESS OUTPUT LEVEL PARAM 6?N= [ 6#7W PARABEG 1,PVAL4(1),PSTRFULL(1),,0 6#MG MHUNT 2,CPB,CUNI 6*76 MHUNTW 3,ADATA,AWHATRVS 6*LQ IF +ANUM(2),PZ [IF 'FULL' PRESENT 6B6B THEN 6BL2 BNZ 0 ZDUFFPAR 6C5L BS 3,AWVBFULL [SET 'FULL' BIT 6CK= 6D4W IF MBAC,3,AWVBLIST,AWVBHERE [IF NO ROUTING GIVEN 6DJG THEN 6F46 BS 3,AWVBLIST [SET 'LIST' BIT 6FHQ FI 6G3B FI 6GH2 FREECORE 2 6H2L [ONLY SET HERE OR LIST IF 'FULL' 6HG= [ 6H^W IF BC,3,AWVBFULL [IF 'FULL' 6JFG THEN 6J^6 MBC 3,AWVBLIST,AWVBHERE 6KDQ FI 6KYB [ 6LD2 [ 6LXL [ERROR IF ANY UNACCESSED PARAMETERS 6MC= [ 6MWW PARUNACC 6NBG MHUNT 2,CPB,CUNI 6NW6 6P*Q LDX 7 ANUM(2) 6PTB IF 7,PZ 6Q*2 THEN 6QSL BZE 7 ZNULLPAR 6R#= BRN ZUNRECOG 6RRW FI 6S?G FREECORE 2 6SR6 [ 6T=Q [ 6TQB [ 6W=2 ACROSS WHATRVSA,1 6WPL [ 6X9= [ 6XNW [SUBROUTINE 'SEPARATE' 6Y8G [ 6YN6 [ 6^7Q [THIS SUBROUTINE FINDS THE SELECTION DETAILS (ADATA/CREADL) BLOCK, 6^MB [ADDS A SEPARATOR CHARACTER AND LEAVES THE POINTERS READY TO ADD THE 7272 [PARAMETER ITSELF 72LL [ 736= [ENVIRONMENT REQUIRED 73KW [ 745G [[ ADATA/CREADL EXISTS WITH PTR TO NEXT FREE CHAR IN A1+1 74K6 [ 754Q [ENVIRONMENT CHANGES 75JB [ 7642 [ XO-DESTROYED 76HL [ X1-NEXT FREE CHAR 773= [ X3-HEAD OF BLOCK 77GW [ X7-LINK 782G [ 78G6 SEPARATE 78^Q MHUNT 3,ADATA,CREADL 79FB LDX 1 A1+1(3) 79^2 SBN 1 A1+2 7=DL IF 1,ZE [IF FIRST PARAM 7=Y= THEN 7?CW LDN 0 #30 [SEPARATOR IS '(' 7?XG ADN 1 A1+2(3) 7#C6 ELSE 7#WQ ADN 1 A1+2(3) [ELSE PUT IN (,) 7*BB LDN 0 #34 [FOLLOWED BY ' ' 7*W2 DCH 0 0(1) 7B*L 7BT= BCHX 1 £ 7C#W LDN 0 #20 7CSG FI 7D#6 DCH 0 0(1) [INSERT SEPARATOR 7DRQ BCHX 1 £ 7F?B EXIT 7 0 7FR2 [ 7G=L [ 7GQ= [SUBROUTINE 'SUBADDNUM' 7H9W [ 7HPG [THIS SUBROUTINE CONVERTS A BINARY NUMBER TO DECIMAL,ADDING IT TO THE 7J96 [END OF THE SELECTION DETAILS BLOCK,STARTING WITH THE FIRST SIG. DECIMAL 7JNQ [ 7K8B [ENVIRONMENT REQUIRED 7KN2 [ 7L7L [ X1,X3 AS LEFT BY 'SEPARATE' 7LM= 7M6W [ X5 CONTAINS THE NUMBER 7MLG [ 7N66 [ENVIRONMENT CHANGES 7NKQ [ 7P5B [ X0,1,2,4,5,6 DESTROYED 7PK2 7Q4L [ X7-LINK 7QJ= [ PTR WORD OF BLOCK UPDATED 7R3W [ 7RHG [ 7S36 SUBADDNUM 7SGQ [ 7T2B SMO FX1 7TG2 MPY 5 MAGIC [X56 FRACTION FOR CONVERSION 7T^L 7WF= LDN 0 7 7WYW MODE 1 [SUPPRESS LEADING ZEROS 7XDG LDN 2 #20 7XY6 LDN 4 0 7YCQ DO [FOR ALL NON-SPACES DO 7YXB CBD 5 4 7^C2 IF 4,U,2 7^WL THEN 82B= DCH 4 0(1) [PUT IN BLOCK 82TW BCHX 1 £ 83*G FI 83T6 REPEAT CT 0 84#Q SBX 1 3 84SB STO 1 A1+1(3) 85#2 EXIT 7 0 85RL [ 86?= [ 86QW [SUBROUTINE 'SUBPARAM' 87=G [ 87Q6 [DOES A SPARABEG,HUNTS THE CUNI IN X2 AND THE ADATA/AWHATRVS IN X3 889Q [ 88PB [ENVIRONMENT REQUIRED 8992 [ 89NL [ X3-LENGTH OF KEY 8=8= [ X1-KEY 8=MW [ X7=LINK 8?7G [ 8?M6 [ENVIRONMENT CHANGES 8#6Q [ X2=CPB/CUNI JUST SET UP 8#LB 8*62 [ X3=ADATA/AWHATRVS 8*KL [ 8B5= [ 8BJW SUBPARAM 8C4G [ 8CJ6 SBX 7 FX1 8D3Q SPARABEG 1,3,0(1),,0 8DHB MHUNT 2,CPB,CUNI 8F32 MHUNTW 3,ADATA,AWHATRVS 8FGL 8G2= ADX 7 FX1 8GFW EXIT 7 0 8G^G [ 8HF6 [ 8HYQ [SUBROUTINE 'TRANSFER' 8JDB [ 8JY2 [THIS SUBROUTINE MOVES A FILE LOCAL NAME FROM A CPB/CUNI TO THE 8KCL [ADATA/AWHATRVS 8KX= [ 8LBW [ENVIRONMENT REQUIRED 8LWG [ 8MB6 [ X2-PTS TO /CUNI 8MTQ [ X3 PTS TO ?AWHATRVS 8N*B [ 8NT2 [ENVIRONMENT CHANGES 8P#L [ 8PS= [ X1-LINK 8Q?W [ X4,5=DESTROYED 8QRG [ 8R?6 [PARAMETER REQUIRED 8RQQ [DISPLACEMENT WITHIN /AWHATRVS AT WHICH THE TRANSFER SHOULD START 8S=B [ 8SQ2 [ 8T9L TRANSFER 8TP= [ 8W8W LDN 4 APARA(2) [X4 POINTS TO DATA 8WNG LDX 5 3 8X86 ADX 5 0(1) [X5 POINTS TO RECEPTION AREA 8XMQ SMO ANUM(2) 8Y7B MVCH 4 0 8YM2 EXIT 1 1 8^6L [ 8^L= [ 925W [SUBROUTINE 'SUBADDPAR' 92KG [ 9356 [THIS SUBROUTINE ADDS THE CONTENTS OF A CPB?CUNI TO THE END OF THE 93JQ [SELECTION DETAILS BLOCK 944B [ 94J2 [ENVIRONMENT REQUIRED 953L [ 95H= [ X1,3 AS LEFT BY 'SEPARATE' 962W 96GG [ X2-CPB/CUNI 9726 [ 97FQ [ENVIRONMENT CHANGES 97^B [ X0,1 DESTROYED 98F2 [ X7-LINK 98YL [ PTR WD OF BLOCK UPDATED 99D= [ 99XW [ 9=CG SUBADDPAR 9=X6 [ 9?BQ LDN 0 APARA(2) 9?WB SMO ANUM(2) 9#B2 MVCH 0 0 9#TL 9**= SBX 1 3 9*SW STO 1 A1+1(3) 9B#G EXIT 7 0 9BS6 [ 9C?Q [ 9CRB [SUBROUTINE 'SUBENDETAIL' 9D?2 [ 9DQL [THIS SUBROUTINE CLOSES THE ADATA/CREADL SELECTION DETAILS BLOCK 9F== [ 9FPW [ENVIRONMENT REQUIRED 9G9G [ 9GP6 [ X3-ADATA/CREADL 9H8Q [ENVIRONMENT CHANGES 9HNB [ 9J82 [ X0-DESTROYED 9JML [ X1=CHAR CT OF MESSAGE 9K7= [ X2=LOGLEN OF BLOCK 9KLW [ X7-LINK 9L6G [ 9LL6 [ 9M5Q SUBENDETAIL 9MKB [ 9N52 LDX 1 A1+1(3) 9NJL LDN 0 #31 9P4= SMO 3 9PHW DCH 0 0(1) [INSERT ')' 9Q3G BCHX 1 £ 9QH6 SLC 1 2 9R2Q SBN 1 A1+2*4 9RGB STO 1 A1(3) [STORE CHAR COUNT 9S22 LDN 2 11(1) [ADD 2 WORDS AND ROUND UP 9SFL SRL 2 2 9S^= EXIT 7 0 9TDW [ 9TYG [SUBROUTINE 'SETBLOCKS' 9WD6 [ 9WXQ 9XCB [CREATE AND INITIALIZE ADATA/AWHATRVS AND ADATA/CREADL TO 9XX2 [CONTAIN SELECTION DETAILS 9YBL [ 9YW= [ 9^*W SETBLOCKS 9^TG [ =2*6 SBX 7 FX1 =2SQ SETUPCORE MAXSELEC(1),3,ADATA,CREADL =3#B LDN 0 A1+2 =3S2 STO 0 A1+1(3) [SET PTRS =4?L SETNCORE AWVJOBNO-AWVJOBNAM+1,3,ADATA,AWHATRVS =4R= [ =5=W [CLEAR ADATA/AWHATRVS =5QG [ =6=6 LDX 0 ACES =6PQ STO 0 AWVJOBNAM(3) =79B LDN 5 AWVJOBNAM(3) =7P2 LDN 6 AWVJOBNAM+1(3) =88L MOVE 5 5 =8N= STOZ AWVBITS(3) =97W LDN 5 AWVBITS(3) =9MG LDN 6 AWVBITS+1(3) ==76 MOVE 5 AWVJOBNO-AWVBITS ==LQ [ =?6B [SET OPERATOR CONTEXT OR OPERATOR COMMAND =?L2 [ =#5L OPSCON SETOPER,SETOPCOM =#K= BRN NOTOP =*4W SETOPER =*JG BS 3,AWVBOPER =B46 BRN NOTOP =BHQ SETOPCOM =C3B BS 3,AWVBOPCOM =CH2 NOTOP =D2L [ =DG= [SET REMOTE CONTEXT AND SOURCE CONSOLE PROPERTY AS REQUIRED =D^W [ =FFG LDX 2 FX2 =F^6 LDX 6 JSOURCE3(2) =GDQ IF 6,NZ =GYB THEN =HD2 BS 3,AWVBREM =HXL =JC= ANDX 6 BSP16 =JWW STO 6 AWVCONS(3) =KBG FI =KW6 ADX 7 FX1 =L*Q EXIT 7 0 =LTB [ =M*2 [ =MSL ZPREVJOBNO =N#= Z2USERS =NRW ZHL COMERR ASCOMBER [ILLEGAL PARAMETER COMBINATIO =P?G ZDUFFPAR =PR6 LDX 3 2 =Q=Q SPARANOX JPARNUM(3) =QQB COMERR APFERR =R=2 ZUNRECOG =RPL ZLISTWR =S9= COMERR APFERR [PARAMETER FORMAT ERROR =SNW ZMAXPAR =T8G COMERR JMAXPAR =TN6 ZWRQUAL =W7Q COMERR BADQUAL [ERROR IN LIST QUALIFIER =WMB ZNULLUSER =X72 ZNULLPAR =XLL COMERR JNULLPAR =Y6= ZENDCOM =YKW ENDCOM =^5G ZJOBNOERR =^K6 COMERR FWHSTAT ?24Q ZNVALNAM ?2JB COMERR JNLFNF [INVALID NAME FORMAT ?342 ZNOJOBNAM ?3HL COMERR JPARMIS,JJOBNA [JOBNAME MISSING ?43= ?5G6 #END ^^^^ ...177075170002 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In