15 22FL #LIS K0WSPARAM>K0ALLGEO>K0GREATGEO>K0COMMAND 12 22_= ... SEG WSPARAM,867,SECTION CENT 4 23YG [ 4 244C ...[ 16 248# ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 24#9 ...[ 15 24D6 [ THIS SEGMENT READS THE WS/WJ PARAMETERS 17 24XQ [ AND SETS UP PARAMETER INDICATORS IN CQPRINT/CQ1 4 25CB [ 16 25X2 SEGENTRY K1WSPARAM,Q1ENTRY [READ PARAMETERS 19 26BL SEGENTRY K2WSPARAM,Q2ENTRY [OUTPARAM SELECTION DETAILS 12 26W= [ DEFINES THE CQPRINT/CQ1 BLOCK 17 27*W #DEF ZGA = A1 [GROUP A INDICATORS 17 27TG #DEF ZGB = ZGA+1 [GROUP B INDICATORS 17 28*6 #DEF ZGC = ZGB+1 [GROUP C INDICATORS 17 28SQ #DEF ZGD = ZGC+1 [GROUP D INDICATORS 17 29#B #DEF ZGE = ZGD+1 [GROUP E INDICATORS 17 29S2 #DEF ZGF = ZGE+1 [GROUP F INDICATORS 17 2=?L #DEF ZGG = ZGF+1 [GROUP G INDICATORS 17 2=R= #DEF ZGH = ZGG+1 [GROUP H INDICATORS 14 2?=W #DEF ZNAME = ZGH+1 [JOB NAME 15 2?QG #DEF ZUSER = ZNAME+3 [USER NAME 16 2#=6 #DEF ZPROP = ZUSER+3 [PROPERTY NUMBER 18 2#PQ #DEF ZLCOUNT= ZPROP+1 [COUNT OF JOB NOS. STORED 15 2*9B #DEF ZLJOB = ZLCOUNT+1 [JOB NUMBER 7 2*P2 #DEF NGA = 1 7 2B8L #DEF NGB = 2 7 2BN= #DEF NGC = 3 7 2C7W #DEF NGD = 4 7 2CMG #DEF NGE = 5 7 2D76 #DEF NGF = 6 7 2DLQ #DEF NGG = 7 7 2F6B #DEF NGH = 8 4 2FL2 [ 8 2G5L [ GROUP F BITS 11 2GK= BITDEFS ZGF,9,YSAVE 15 2H4W BITDEFS ZGF,12,REALTIME,YCORE,YEXPR 15 2HJG BITDEFS ZGF,17,YFSTA,,,,YWAIT,YNSAV 13 2HNC [ WORD FOLLOWING USED AS WSNARROW MARKER 10 2HS# SEGENTRY K50WSPARAM 7 2HY9 WSNARROW +0 15 2J46 BITDEFS WSNARROW,1,WSNARROWOP,WSNARROWALL 20 2J83 WSNARBITS #77437777 [MASK TO REMOVE BITS FOR WSNARROW 14 2J?Y WSNPRFUL #00777400 [PROG AND FULL BITS 7 2JCT [ WS PARAM TABLE 4 2JHQ PARM 15 2K3B SJOB 4HJOB0 [GROUP A #01 9 2KH2 #01400000 5 2L2L SGROUPB 19 2LG= SALL 4HALL0 [GROUP B #02- ALL MUST B 1ST 9 2L_W #02300001 9 2MFG SWELL 4HWELL 9 2M_6 #02200000 9 2NDQ SNCAN 4HNCAN 9 2NYB #02000001 9 2PD2 SSTAR 4HSTAR 9 2PXL #02100000 15 2QC= SCLUS 4HCLUS [GROUP C #03 9 2QWW #03000040 9 2RBG SPROP 4HPROP 9 2RW6 #03000010 9 2S*Q SCENT 4HCENT 9 2STB #03000020 9 2T*2 SSYS 4HSYS0 9 2TSL #03000400 15 2W#= SUSER 4HUSER [GROUP D #04 9 2WRW #04000200 15 2X?G SMOP 4HMOP0 [GROUP E #05 9 2XR6 #05020000 9 2Y=Q SBACK 4HBACK 9 2YQB #05010000 15 2_=2 SWAIT 4HWAIT [GROUP F #06 9 2_PL #06000004 9 329= SFSTA 4HFSTA 9 32NW #06000100 9 338G SSAVE 4HSAVE 9 33N6 #06040000 9 347Q SEXPR 4HEXPR 9 34MB #06001000 9 3572 SCORE 4HCORE 9 35LL #06002000 9 366= SREAL 4HREAL 9 36KW #06004000 9 375G SNSAV 4HNSAV 9 37K6 #06000002 5 384Q SGROUPG 15 38JB SLIST 4HLIST [GROUP G #07 9 3942 #07000001 9 39HL SHERE 4HHERE 9 3=3= #07000002 15 3=GW SNAME 4HNAME [GROUP H #10 9 3?2G #10740404 5 3?G6 #SKI G3 4 3?_Q ( 9 3#FB SSIZE 4HSIZE 9 3#_2 #10601404 4 3*DL ) 5 3*Y= #SKI G4 4 3BCW ( 9 3BXG SQUOT 4HQUOT 9 3CC6 #10601404 4 3CWQ ) 9 3DBB STIME 4HTIME 9 3DW2 #10606404 9 3F*L SURG 4HURG0 9 3FT= #10630404 9 3G#W SCONT 4HCONT 9 3GSG #10740704 9 3H#6 SPROG 4HPROG 9 3HRQ #10777634 9 3J?B SWHYW 4HWHYW 9 3JR2 #10740644 9 3K=L SFULL 4HFULL 9 3KQ= #10777774 17 3L9W 0 [END OF PARAMETERS 4 3LPG [ 8 3LWN SUSER2 +5 19 3M3W 5HUSER: [2ND FORM OF USER PARAMETER 9 3M96 PARMBITS #00777777 18 3MNQ UNSETGH #10777644 [DEFAULT GROUP H SETTING 18 3N8B SWNCAN #00200001 [WELL/NCAND INDICATORS 4 3NN2 [ 9 3P7L [ COMMAND IN ERROR 4 3PM= [ 5 3Q6W XEROUT 9 3QLG ERRORX 0(3),1(3) 5 3R66 XEROUT9 5 3RKQ UP 4 3S5B QPAR 10 3SK2 [ S/R TO GET A PARAMETER 14 3T4L [ AND CHECK IF IN LOCAL FILENAME FORMAT 17 3TJ= [ ON ENTRY X4 HOLDS COUNT OF CHS. IN IDENTIFIER 15 3W3W [ X5 HOLDS PARAMETER IDENTIFIER 12 3WHG [ X6 LINK ADDRESS 17 3X36 [ EXIT +0 IF NOT IN LOCAL FILENAME FORMAT 11 3XGQ [ +1 IF NULL 10 3Y2B [ +2 IF OK 8 3YG2 SBX 6 FX1 18 3Y_L SPARABEG 1,4 [GET PARAM GIVEN IN X5 8 3_F= ADX 6 FX1 17 3_YW QPAR2 CHEKLFN2 QPAR8,QPAR9 [CHECK LOCAL FILENAME 13 42DG EXIT 6 2 [ OK 16 42Y6 QPAR8 EXIT 6 1 [ NULL PARAMETER 16 43CQ QPAR9 EXIT 6 0 [ ERROR IN FORMAT 5 43XB PNMOVE 11 44C2 [ S/R TO TRANSFER A FILENAME 13 44WL [ ON ENTRY X0 ADDRESS OF I/P 13 45B= [ X1 ADDRESS OF O/P 11 45TW [ X5 WORK ACC. 18 46*G [ X7 COUNT OF CHARS.(IN BOTTOM 12 BITS) 12 46T6 [NB. CHAR. COUNT MUST NOT BE ZERO 8 47#Q LDX 5 ACES 17 47SB STO 5 0(1) [SPACE FILL O/P AREA 8 48#2 STO 5 1(1) 8 48RL STO 5 2(1) 16 49?= ANDN 7 #7777 [GET CHAR. COUNT 7 49QW SMO 7 17 4==G MVCH 0 0 [TRANSFER FILENAME 9 4=Q6 VFREE CPB,CUNI 8 4?9Q LDX 1 FX1 8 4?PB LDX 2 FX2 7 4#92 EXIT 6 0 5 4#NL Q1ENTRY 4 4*8= [ 10 4*MW [ GET 'WS' PARAMETERS 11 4B7G [ AND SET UP CQPRINT/CQ1 8 4BM6 [ ACOMMUNE1 :- 16 4C6Q [ B0 SET IF ONLY SELECTION DETAILS (IE. WJ) 13 4CLB [ B0 UNSET IF ALL 'WS' PARAMETERS 4 4D62 [ 10 4DKL LDX 7 ACOMMUNE1(2) 17 4F5= STO 7 AWORK4(2) [SAVE 'WJ-WS' MARKER 4 4FJW STRT 10 4G4G [ INITIALISE PARAMETERS 18 4GJ6 SETNCORE 17,3,CQPRINT,CQ1 [GET WS PARAMETER BLOCK 17 4H3Q STOZ A1(3) [AND INITIALISE IT 8 4HHB LDN 4 A1(3) 9 4J32 LDN 5 A1+1(3) 8 4JGL MOVE 4 16 19 4K2= BNG 7 PARA2 [J IF ONLY SELECTION PARAM 4 4KFW PARA 12 4K_G [ PICK UP THE 'WS' PARAMETERS 18 4LF6 OPSCON SPEC,SPEC [J IF OPERATOR CONTEXT 18 4LYQ PARA2 SPARUNACC [PICK UP NEXT PARAMETER 10 4MDB MHUNT 3,CPB,CUNI 9 4MY2 LDX 7 ANUM(3) 18 4NCL BNG 7 PARA9 [J IF NO MORE PARAMETERS 18 4NX= BNZ 7 PTA [J IF NOT NULL PARAMETER 17 4PBW PARA8 VFREE CPB,CUNI [FREE PARAM BLOCKS 8 4PWG BRN PARA2 9 4QB6 PARA9 MFREE CPB,CUNI 15 4QTQ BRN SDP [SET DEFAULTS 4 4R*B PTA 16 4RT2 [ CHECK THAT PARAMETER IS IN PRE-DEFINED TABLE 16 4S#L [ NB. ONLY 2,3,4 CHAR. PARAMETERS CHECKED FOR. 9 4SS= LDX 4 PARM(1) 7 4T?W LDX 5 4 9 4TRG LDX 6 APARA(3) 17 4W?6 BZE 4 NUM [J IF NOT IN TABLE 8 4WQQ ANDN 4 #7777 18 4X=B BZE 4 PTA2 [J IF 2CHAR. PARAMETER 8 4XQ2 ANDN 4 #77 18 4Y9L BZE 4 PTA4 [J IF 3CHAR. PARAMETER 8 4YP= BRN PTA6 7 4_8W PTA2 SRL 56 6 7 4_NG PTA4 SRL 56 6 17 5286 PTA6 BXE 5 6,PSET [J IF PARAMETER FOUND 8 52MQ BDX 1 PTA 4 537B NUM 13 53M2 [ CHECK IF PARAMETER IS A JOB NUMBER 9 546L LDX 0 AWORK4(2) 15 54L= BNG 0 XER [J IF 'WJ' 16 555W CHNUMCOD 1,3,XBRK2 [CONVERT BINARY 16 55KG TESTRPN2 OK,XER [J IF NOT NUMERIC 10 55QN LDX 6 ACOMMUNE1(2) 16 55XW BNG 6 XER [J IF NEG JOB NO. 8 562G BZE 6 XER 10 5656 MHUNT 3,CPB,CUNI 19 56JQ NAME 3,ADATA,CSTORE [SAVE CUNI IN CASE OF ERROR 18 574B MHUNTW 3,CQPRINT,CQ1 [FIND 'WS' PARAM BLOCK 16 583L STO 6 ZLJOB(3) [STORE JOB NO. 17 58H= NUM4 LDX 4 SJOB+1(1) [GET PARAMETER IDENT. 15 592W LDCH 5 SJOB+1(1) [GROUP TYPE 8 59GG BRN PSET2 4 5=26 SPEC 17 5=FQ [ CHECK IF FIRST 2 PARAMETERS ARE JOBNAME,:USERNAME 7 5=_B LDN 4 1 13 5?F2 LDCT 5 #120 [: 15 5?YL CALL 6 QPAR [GET USERNAME 15 5#D= BRN XER5 [FORMAT ERROR 14 5#XW BRN PARA8 [MISSING 10 5*CG LDX 6 JPARNUM(3) 7 5*X6 SBN 6 3 18 5BBQ BPZ 6 XER [NOT 1ST/2ND PARAMETER 10 5BWB MHUNTW 1,CQPRINT,CQ1 9 5CB2 LDN 0 APARA(3) 8 5CTL ADN 1 ZUSER 9 5D*= LDX 7 ANUM(3) 16 5DSW CALL 6 PNMOVE [STORE USERNAME 18 5F#G SPARUNACC [GET NEXT UNAC. PARAM. 17 5FS6 CALL 6 QPAR2 [CHECK IF JOB NAME 15 5G?Q BRN XER5 [FORMAT ERROR 14 5GRB BRN XER3 [MISSING 8 5H?2 BRN XJB4 4 5HQL PSET 18 5J== [ PICK UP INFORMATION FOLLOWING THE PARAMETER IDENTIFIER 12 5JPW [ AND SET PARAMETER IDENTIFIERS 9 5K9G LDXC 0 AWORK4(2) 19 5KP6 BCC PSET1 [J IF ALL 'WS' PARAMS REQ'D 7 5L8Q LDX 0 1 8 5LNB SBX 0 FX1 9 5M82 SBN 0 SJOB-PARM 17 5MML BZE 0 XER [INVALID PARAMETER 10 5N7= SBN 0 SLIST-SJOB 17 5NLW BPZ 0 XER [INVALID PARAMETER 10 5P6G PSET1 MHUNTW 3,CQPRINT,CQ1 9 5PL6 LDX 4 PARM+1(1) 9 5Q5Q LDCH 5 PARM+1(1) 8 5QKB LDX 1 FX1 17 5R52 BXE 4 SJOB+1(1),XJB [J IF JOB PARAMETER 17 5RJL BXE 4 SPROP+1(1),XPR [J IF PR PARAMETER 17 5S4= BXE 4 SUSER+1(1),XUS [J IF USER PARAMETER 7 5SHW PSET2 ADX 3 5 15 5T3G LDX 6 ZGA-1(3) [GROUP IDENT. 18 5TH6 BZE 6 PSET4 [1ST PARAMETER OF GROUP 18 5W2Q SBN 5 NGF [OTHERWISE GROUP F,H POS. 14 5WGB BZE 5 PSET4 [GROUP F 9 5X22 SBN 5 NGH-NGF 15 5XFL BNZ 5 XER1 [NOT GROUP H 18 5X_= PSET4 ORS 4 ZGA-1(3) [SET PARAMETER INDICATOR 8 5YDW BRN PARA8 4 5YYG XJB 8 5_D6 [ GET JOB NAME 19 5_XQ OPSCON XER,XER [ERROR IF IN OPERATOR CONTEXT 7 62CB LDN 4 3 9 62X2 LDX 5 SJOB(1) 15 63BL CALL 6 QPAR [GET JOB NAME 15 63W= BRN XER5 [FORMAT ERROR 14 64*W BRN XER3 [MISSING 10 64TG XJB4 MHUNTW 1,CQPRINT,CQ1 19 65*6 NAME 3,ADATA,CSTORE [SAVE CUNI IN CASE OF ERROR 9 65SQ LDX 7 ANUM(3) 9 66#B LDN 0 APARA(3) 7 66S2 LDX 3 1 8 67?L ADN 1 ZNAME 20 67R= CALL 6 PNMOVE [STORE JOB NAME IN CQPRINT/CQ1 8 68=W BRN NUM4 4 68QG XPR 10 69=6 [ GET PROPERTY NUMBER 7 69PQ LDN 4 4 9 6=9B LDX 5 SPROP(1) 17 6=P2 CALL 6 QPAR [GET PROPERTY NAME 8 6?8L BRN XER5 18 6?N= BRN XPR8 [PROPERTY NAME MISSING 17 6BL2 ISPROPN XBRK2,6 [CONVERT TO PROP. NO. 18 6C5L BZE 6 XEROUT9 [J IF UNKNOWN PROPERTY 7 6CK= SMO 6 7 6D4W LDN 0 0 7 6DJG SBN 0 1 18 6F46 BNZ 0 XPR2 [J IF NOT CENTRAL PROP. 7 6FHQ LDN 6 0 9 6G3B XPR2 MFREE CPB,CUNI 10 6GH2 MHUNTW 3,CQPRINT,CQ1 7 6H2L SMO 6 17 6HG= XPR4 LDN 6 0 [REMOVE TOP 2 BITS 17 6H_W STO 6 ZPROP(3) [STORE IN CQPRINT/CQ1 16 6JFG LDX 4 SPROP+1(1) [PARAMETER TYPE 15 6J_6 LDCH 5 SPROP+1(1) [GROUP TYPE 8 6KDQ BRN PSET2 17 6KYB XPR8 LDX 6 JSOURCE3(2) [SET DEFAULT PROPERTY 8 6LD2 BRN XPR2 4 6LXL XUS 8 6MC= [ GET USER NAME 7 6MWW LDN 4 4 9 6NBG LDX 5 SUSER(1) 15 6NW6 CALL 6 QPAR [GET USERNAME 15 6P*Q BRN XUS4 [FORMAT ERROR 14 6PTB BRN XUS8 [MISSING 9 6Q*2 XUS1 LDX 7 ANUM(3) 9 6QSL LDN 6 APARA(3) 10 6R#= XUS2 MHUNTW 1,CQPRINT,CQ1 17 6RRW LDX 0 6 [ADDR. OF USERNAME 7 6S?G LDX 3 1 8 6SR6 ADN 1 ZUSER 16 6T=Q CALL 6 PNMOVE [STORE USERNAME 16 6TQB LDX 4 SUSER+1(1) [PARAMETER IDENT. 15 6W=2 LDCH 5 SUSER+1(1) [GROUP IDENT. 8 6WPL BRN PSET2 9 6WR8 XUS4 LDCH 6 APARA(3) 18 6WSQ SBN 6 #12 [USERNAME PRECEDED BY : 17 6WW# BNZ 6 XER5 [J IF FORMAT ERROR 9 6WXW MFREE CPB,CUNI 16 6W_D SPARABEG 1,SUSER2(1) [GET USERNAME 8 6X32 CALL 6 QPAR2 8 6X4J BRN XER5 15 6X66 BRN XER5 [FORMAT ERROR 8 6X7N BRN XUS1 8 6X9= XUS8 BRUSEN XER 7 6XNW FJOCA 2 17 6Y8G LDN 7 12 [LENGTH OF USERNAME 18 6YN6 LDN 6 JUSER(2) [ADDR. OF DEFAULT USER 8 6_7Q BRN XUS2 4 6_MB SDP 13 7272 [ SET DEFAULT PARAMETER INDICATOR 10 72LL MHUNTW 3,CQPRINT,CQ1 9 736= LDX 4 ZGA(3) 7 73KW LDN 7 5 7 745G SDP2 SMO 7 9 74K6 LDX 5 ZGB-1(3) 17 754Q BNZ 5 SDP4 [J IF GROUP SELECTION 8 75JB BCT 7 SDP2 10 7642 LDX 0 SSTAR+1(1) 18 76HL SDP3 STO 0 ZGB(3) [SET STAR FOR INDV. JOBS 18 773= BNZ 4 SDP6 [J IF INDIV. JOB SELECTED 15 77GW [ SET INDIVIDUAL JOB SELECTION PARAMS.ETC. 18 782G OPSCON XER4,XER4 [J IF OPERATOR CONTEXT 9 78G6 LDX 0 JOBNO(2) 17 78_Q STO 0 ZLJOB(3) [SAVE USER'S JOB NO. 9 79FB LDX 4 SJOB+1(1) 17 79_2 STO 4 ZGA(3) [SET PARAMETER IDENT. 8 7=DL BRN SDP10 18 7=Y= SDP4 BNZ 4 XER1 [J IF INDV. JOB SELECTED 18 7?CW SDP6 OPSCON SDP9,SDP9 [J IF OPERATOR CONTEXT 19 7?XG LDX 5 ZUSER(3) [WORD 1 OF USERNAME IF ANY 17 7#C6 BRUSEN SDP85 [J IF NO USER CONTEXT 10 7#WQ [ SET USERNAME/INDICATOR 7 7*BB FJOCA 2 17 7*W2 BNZ 5 SDP7 [J IF USERNAME GIVEN 8 7B*L SMO FX2 9 7BT= LDX 0 AWORK4 15 7C#W BNG 0 SDP10 [J IF 'WJ' 8 7CSG BRN SDP8 9 7D#6 SDP7 LDX 0 ZUSER(3) 10 7DRQ LDX 4 ZUSER+1(3) 10 7F?B LDX 5 ZUSER+2(3) 9 7FR2 TXU 0 JUSER(2) 10 7G=L TXU 4 JUSER+1(2) 10 7GQ= TXU 5 JUSER+2(2) 16 7H9W BCS XER1 [J IF WRONG USER 9 7HPG SDP8 LDN 4 JUSER(2) 9 7J96 LDN 5 ZUSER(3) 16 7JNQ MOVE 4 3 [STORE USERNAME 19 7K8B LDX 4 SUSER+1(1) [..OTHERWISE SET GROUP IDENT. 9 7KN2 ORS 4 ZGD(3) 8 7L7L BRN SDP10 18 7LM= SDP85 BNZ 5 XER1 [J IF USERNAME REQUESTED 9 7M6W LDX 5 ZPROP(3) 17 7MLG BNZ 5 XER1 [J IF PROP. REQUESTED 8 7N66 BRN SDP10 11 7NKQ [ SET PROPERTY NO./INDICATOR 10 7P5B SDP9 SMO JSOURCE3(2) 15 7PK2 LDN 6 0 [PROPERTY NO. 19 7Q4L BZE 6 SDP10 [J IF WS ISSUED FROM CENT.OP 9 7QJ= LDX 5 ZGC(3) 18 7R3W BZE 5 SDP95 [J IF NO PROPERTY GIVEN 17 7RHG BXU 6 ZPROP(3),XER1 [J IF WRONG CLUSTER 9 7S36 SDP95 LDX 0 AWORK4(2) 15 7SGQ BNG 0 SDP10 [J IF 'WJ' 9 7T2B STO 6 ZPROP(3) 10 7TG2 LDX 5 SPROP+1(1) 18 7T_L ORS 5 ZGC(3) [SET GROUP IDENT. ETC. 11 7WF= [ SET O/P DEFAULT PARAMETER 8 7WYW SDP10 LDX 2 FX2 9 7XDG LDXC 0 AWORK4(2) 15 7XY6 BCS XLG [J IF 'WJ' 9 7YCQ LDX 4 ZGG(3) 15 7YXB BNZ 4 SDP18 [J IF O/P SET 18 7_C2 OPSCON SDP12,SDP12 [J IF OPERATOR CONTEXT 8 7_WL BRN SDP15 10 82B= SDP12 LDX 4 SWELL+1(1) 9 82TW ANDX 4 ZGB(3) 17 83*G BXU 4 SWELL+1(1),SDP15 [J IF NO 'WELL' REQ'D 17 83T6 LDX 4 SLIST+1(1) [OTHERWISE O/P TO LP 8 84#Q BRN SDP17 14 84SB SDP15 LDX 4 SHERE+1(1) [O/P HERE 9 85#2 SDP17 STO 4 ZGG(3) 18 85RL SDP18 OPSCON SDP20,SDP20 [J IF OPERATOR CONTEXT 16 86?= BXU 4 SHERE+1(1),SDP20 [J IF NOT 'HERE' 8 86QW LDN 4 #40 19 87=G TESTRACE 4,XER2 [ERROR IF NO COMMENT TRACE 9 87Q6 SDP20 LDX 4 ZGH(3) 19 889Q BNZ 4 SDP30 [J IF O/P LEVEL SPECIFIED 10 88PB LDX 4 UNSETGH(1) 18 8992 STO 4 ZGH(3) [SET DEFAULT O/P LEVEL 5 89NL SDP30 4 8=8= XLG 15 8=MW [. CHECK LOGIC OF GROUP SELECTION PARAMETERS 9 8?7G LDX 4 ZGA(3) 18 8?M6 BNZ 4 XLG9 [J IF NOT GROUP SELECTION 9 8#6Q XLG1 LDX 4 ZGB(3) 16 8#LB BNZ 4 XLG2 [J IF GROUP B SET 10 8*62 LDX 4 SSTAR+1(1) 19 8*KL STO 4 ZGB(3) [SET 'STARTED' JOB INDICATOR 9 8B5= XLG2 LDX 4 ZGF(3) 7 8BJW LDN 5 0 19 8C4G BNZ 4 XLG4 [J IF GROUP F PARAMS PRESENT 9 8CJ6 LDX 4 ZGC(3) 16 8D3Q BXE 4 SSYS+1(1),XLG6 [J IF 'SYS' SET 8 8DHB BRN XLG7 7 8F32 XLG4 SLL 4 9 18 8FGL BPZ 4 XLG6 [J IF NO 'SAVED' PARAM. 8 8G2= ERX 4 GSIGN 18 8GFW BNZ 4 XER1 [J IF OTHER 'F' PARAM. 9 8G_G LDX 4 ZGC(3) 18 8HF6 BXE 4 SSYS+1(1),XER1 [SAVED SYS NOT POSSIBLE 9 8HYQ LDX 4 ZGE(3) 18 8JDB BXE 4 SMOP+1(1),XER1 [SAVED MOP NOT POSSIBLE 19 8JY2 XLG6 ORX 5 SWNCAN(1) [WELL/NCAND JOBS NOT POSSIBLE 10 8KCL XLG62 ANDX 5 PARMBITS(1) 9 8KX= ORS 5 ZGB(3) 20 8LBW ERS 5 ZGB(3) [UNSET NCAND/WELL INDICATOR(S) 17 8LWG XLG7 JMBAC XLG9,3,YWAIT,YFSTA,YEXPR,YCORE,REALTIME 9 8MB6 BC 3,YNSAV 17 8MTQ JBC XLG9,3,REALTIME [J IF REALTIME IND SET 18 8N*B BC 3,YCORE [REMOVE CORE ID. IF REAL 9 8NT2 XLG9 LDX 4 ZGB(3) 7 8P#L SLL 4 6 20 8PS= BZE 4 XER1 [J IF MUTUALLY EXCL. SEL. PARAMS. 4 8Q44 [ 4 8Q?W XAS 11 8Q#_ [ NOW CHECK IF WSNARROW IN USE 15 8Q*R [ IF WSNARROW ALL, THEN REMOVE MOP & NAME FIELDS 18 8QBK [ IF WSNARROW OP, AND IF WS WAS ISSUED IN OPERATOR CONTEXT, 12 8QCC [ TO BE OUTPUT ^HERE^, DO THE SAME 8 8QD= LDX 2 FX2 9 8QDF LDX 0 AWORK4(2) 14 8QDN BNG 0 XAS1 [J IF ^WJ^ 12 8QDX JMBS XAS2,1,WSNARROWALL 16 8QF6 JMBC XAS1,1,WSNARROWOP [J IF NOT IN USE 8 8QF* LDN 0 #20 10 8QGD ANDX 0 CONTEXT(2) 19 8QHH BZE 0 XAS1 [J IF NOT OPERATOR CONTEXT 14 8QHT LDX 0 ZGG(3) [CHECK O/P 7 8QJ7 ANDN 0 1 14 8QJF BNZ 0 XAS1 [J IF ^LIST^ 4 8QJR [ 4 8QK5 XAS2 10 8QKC LDX 0 WSNPRFUL(1) 9 8QKP ANDX 0 ZGH(3) 10 8QLS ERX 0 WSNPRFUL(1) 17 8QMX BNZ 0 XAS1 [J IF NOT PROG OR FULL 10 8QP2 LDX 0 WSNARBITS(1) 17 8QQ5 ANDS 0 ZGH(3) [REMOVE UNWANTED BITS 14 8QRG [ ASSEMBLE JOB SELECTION PARAMETERS INTO 9 8R?6 [ A MORE USABLE FORM 7 8RQQ XAS1 LDN 4 0 7 8S=B LDN 5 5 7 8SQ2 XAS6 SMO 5 17 8T9L ORX 4 ZGB-1(3) [COLLECT INDICATORS 8 8TP= BCT 5 XAS6 7 8W8W SLL 4 6 9 8WNG LDX 0 ZGA(3) 17 8X86 BNZ 0 XAS7 [J IF INDV. JOB SEL 18 8XMQ ORX 4 GSIGN [SET GROUP SELECT. IND 17 8Y7B XAS7 STO 4 ZGA(3) [AND STORE INDICATORS 7 8YM2 XAS8 UPPLUS 2 4 8_6L [ 8 8_L= [ BREAK IN EXIT 4 925W [ 7 92KG XBRK2 UPPLUS 1 4 9356 [ 8 93JQ [ COMMAND ERRORS 4 944B [ 9 94J2 XER CALL 3 XEROUT 16 953L +APFERR [FORMAT ERROR 8 95H= -1 9 962W XER1 CALL 3 XEROUT 17 96GG +APCERR [INVALID COMBINATION 8 9726 -1 9 97FQ XER2 CALL 3 XEROUT 9 97_B +JMTRACE 8 98F2 -1 9 98YL XER3 CALL 3 XEROUT 16 99D= +JPARMIS [JOB NAME MISSING 9 99XW +JJOBNA 9 9=CG XER4 CALL 3 XEROUT 16 9=X6 +JPARMIS [MISSING PARAMETER 8 9?BQ -1 9 9?WB XER5 CALL 3 XEROUT 18 9#B2 +JNLFNF [WRONGLY FORMED NAME 8 9#TL -1 16 9**= [ SET UP SELECTION DETAILS IN PARAMETER BLOCK 5 9*SW Q2ENTRY 17 9B#G LDX 6 ACOMMUNE6(2) [GET SELECT. INDS. 11 9BS6 SETNCORE 14,3,ADATA,CSTORE 18 9C?Q ADN 3 A1 [SEL. DETAILS PTR (S.D.P) 18 9CRB STO 3 ACOMMUNE3(2) [START ADDR. OF DETAILS 8 9D?2 LDN 0 #30 17 9DQL DCH 0 0(3) [DEP. '(' IN CSTORE 16 9F== BCHX 3 / [UPDATE S.D.P. 17 9FPW LDN 5 SGROUPG-SGROUPB/2 [COUNT OF SEL. PARAMS 17 9G9G LDN 4 0 [NO PARAM. O/P IND 17 9GP6 SDET3 LDX 0 SALL+1(1) [GET NEXT SEL. PARAM. 7 9H8Q SLL 0 6 10 9HNB STO 0 ACOMMUNE7(2) 7 9J82 ANDX 0 6 18 9JML BXU 0 ACOMMUNE7(2),SDET8 [J IF SEL PARM. MISSING 17 9K7= ERS 0 6 [REMOVE SEL. INDS. 18 9KLW BZE 4 SDET5 [J IF NO DETS. O/P YET 7 9L6G LDN 2 4 17 9LL6 MVCH 2 1 [DEP. ')' IN CSTORE 15 9M5Q SDET5 LDCT 4 #340 [PARM O/P IND 18 9MKB LDN 7 4 [MAX. CHARS. IN SEL. DET. 7 9N52 LDX 2 1 9 9NJL SDET7 LDCH 0 SALL(2) 16 9P4= BZE 0 SDET8 [END OF SEL. DET. 17 9PHW DCH 0 0(3) [PUT PARM IN CSTORE 7 9Q3G BCHX 2 / 7 9QH6 BCHX 3 / 8 9R2Q BCT 7 SDET7 18 9RGB SDET8 ADN 1 2 [PTR TO NEXT SEL. PARM 8 9S22 LDX 2 FX2 8 9SFL BCT 5 SDET3 16 9S_= LDN 0 #31 [END OF DETAILS 17 9TDW DCH 0 0(3) [ SO TERM. WITH ')' 15 9TYG BCHX 3 / [UPDATE SDP 10 9WD6 SBX 3 ACOMMUNE3(2) 18 9WXQ SLC 3 2 [COUNT OF CHS. IN CSTORE 11 9XCB OUTPARAM 3,A1,ADATA,CSTORE 10 9XX2 MFREEW ADATA,CSTORE 5 9YBL UP 4 9YW= #END 6 ____ ...654066620001