{{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]]
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