15 22FL #LIS K0WHTSTAT>K0ALLGEO>K0GREATGEO>K0COMMAND 12 22_= ... SEG WHTSTAT,867,SECTION CENT 4 23YG [ 4 244C ...[ 16 248# ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 24#9 ...[ 15 24D6 [ THIS SEGMENT IMPLEMENTS THE 'WS' COMMAND 4 24XQ [ 11 25CB SEGENTRY K1WHTSTAT,Q1ENTRY 14 25F# ... FSHENTRY K2WHTSTAT,Q2ENTRY,,Q2ENTRY 14 25H= ... FSHENTRY K3WHTSTAT,,Q3ENTRY,Q3ENTRY 14 25K8 ... FSHENTRY K4WHTSTAT,,Q4ENTRY,Q4ENTRY 14 25L8 ... FSHENTRY K5WHTSTAT,Q5ENTRY,,Q5ENTRY 14 25LN ... FSHENTRY K7WHTSTAT,,Q7ENTRY,Q7ENTRY 11 25M8 ... BITDEFS ZGG,23,OPLIST 12 25X2 [ DEFINES THE CQPRINT/CQ1 BLOCK 17 26BL #DEF ZGA = A1 [GROUP A INDICATORS 17 26W= #DEF ZGB = ZGA+1 [GROUP B INDICATORS 17 27*W #DEF ZGC = ZGB+1 [GROUP C INDICATORS 17 27TG #DEF ZGD = ZGC+1 [GROUP D INDICATORS 17 28*6 #DEF ZGE = ZGD+1 [GROUP E INDICATORS 17 28SQ #DEF ZGF = ZGE+1 [GROUP F INDICATORS 17 29#B #DEF ZGG = ZGF+1 [GROUP G INDICATORS 17 29S2 #DEF ZGH = ZGG+1 [GROUP H INDICATORS 14 2=?L #DEF ZNAME = ZGH+1 [JOB NAME 15 2=R= #DEF ZUSER = ZNAME+3 [USER NAME 16 2?=W #DEF ZPROP = ZUSER+3 [PROPERTY NUMBER 18 2?QG #DEF ZLCOUNT= ZPROP+1 [COUNT OF JOB NOS. STORED 15 2#=6 #DEF ZLJOB = ZLCOUNT+1 [JOB NUMBER 17 2#PQ PRINTO 37HRJ WSLIST ,:OPERATORS,WSLISTJDF 13 2*9B PRINTU 22HLF !,*LP,PA,MONFILE#40 9 2*P2 PRINTP 7H,PARAM( 8 2B8L PRINTQ 3H,PR 8 2BN= WFILE +10 10 2C7W 12HOPERATORS 10 2CMG 12HWHATSTATE 7 2D76 1 9 2DLQ #20000001 8 2F6B 4HB1 9 2FL2 XSAVED #00227104 9 2G5L PARMBITS #00777777 9 2GK= N10000 +10000 8 2H4W Z5 +5 9 2HJG NJLSTAT #60000003 9 2J46 SLIST 4HLIST 8 2JHQ UJOBL +10 8 2K3B 12H 10 2KH2 12HJOBLIST 7 2L2L 1 7 2LG= 1 9 2L_W 4H**** 9 2MFG XQEND +FLOWQ 8 2M_6 XK9 +K9 4 2NDQ [ 15 2NYB [ S/R TO FON NEXT OP WHAT ACTIVITY IF NEC. 8 2PD2 WOFF SBX 6 FX1 8 2PXL LDN 0 #20 8 2QC= SMO FX2 9 2QWW ANDX 0 CONTEXT 15 2RBG BZE 0 WOFF9 [J IF NOT OP 18 2RHN ... MHUNTW 3,CQPRINT,CQ1 [PTR TO CQPRINT/CQ1 BLOCK 17 2RNW ... JBS WOFF9,3,OPLIST [J IF NOT O/P 'HERE' 9 2RW6 WOFF2 OFF AWHATBIT 8 2S*Q FON #114 8 2STB WOFF9 ADX 6 FX1 7 2T*2 EXIT 6 0 5 2TSL WSERASE 10 2W#= [ ERASE THE 'WS' FILE 8 2WRW SBX 6 FX1 11 2X?G SETNCORE 10,3,FILE,FABSNB 8 2XR6 LDN 0 10 8 2Y=Q STO 0 A1(3) 16 2YQB OPSCON WRAS5,WRAS3 [J IF O/P CONTEXT 5 2_=2 WRAS3 6 2_PL #SKI IFS 11 329= ADN 2 FUSER1-FCBRING 7 32NW #SKI IFS<1$1 10 338G LDX 2 BWORKRING(2) 18 33N6 ADN 2 FUSER1 [SET UP FABSNB....... 19 347Q ADN 3 A1+1 [WITH WORKFILE INFO...... 16 34MB MOVE 2 9 [FOR ERASEWORK 18 3572 ERASEWORK [ERASE WORKFILE AT LEVEL0 9 35LL TESTREP OK,WRAS9 9 366= XGER GEOERR WSERASE,1 10 36KW WRAS5 LDN 2 WFILE +1(1) 18 375G LDN 3 A1+1(3) [SET UP FABSNB......... 17 37K6 MOVE 2 9 [WITH WHATSTATE ETC. 8 384Q SMO FX2 9 38JB LDX 0 AWORK4 14 3942 STO 0 7(3) [GEN. NO. 16 39HL ERASE [ERASE WHATSTATE 10 3=3= TESTREP NOFILE,XGER 8 3=GW WRAS9 ADX 6 FX1 7 3?2G EXIT 6 0 4 3?G6 STLP 17 3?_Q [ THIS S/R COPIES THE *LP PARAMETER TOADATA/CREADL 18 3#FB [ ON ENTRY, X6 POSN. TO WHICH PARAMETER IS COPIED 12 3#_2 [ X7 LINK ADDRESS 15 3*DL [ X4 NO. OF CHARS TO BE COPIED 17 3*Y= [ ON EXIT, X6 NEXT FREE POSN. IN ADATA/CREADL 10 3BCW MHUNT 2,CPB,CUNI 8 3BXG ANDN 4 #7777 9 3CC6 LDN 5 APARA(2) 8 3CWQ CHARMOVE 5,4 7 3DBB EXIT 7 0 5 3DW2 Q1ENTRY 20 3F*L [ CHECK SWITCH WORD:- IF ANOTHER OPERATOR COMMAND IN PROGRESS 16 3FT= [ WAIT UNTIL IT HAS FINISHED 9 3G#W ... OPSCON WSPC,WSPC 17 3GSG BRUSEN XER99 [J IF NO USER/NO OP 4 3H#6 ...WSPC 10 3LPG [ CHECK 'WS' PARAMETERS 10 3M96 STOZ ACOMMUNE1(2) 9 3MNQ DOWN WSPARAM,1 8 3MSM ... BRN XER95 9 3MYJ ... BRN XBRK95 17 3N4F ... OPSCON WSPC4,WSPC8 [WSPC4 IF OPERATOR 8 3N8B ... BRN WSPC8 10 3N#? ...WSPC4 MHUNTW 3,CQPRINT,CQ1 17 3ND8 ... JBS WSPC8,3,OPLIST [J IF NOT O/P 'HERE' 19 3NJ5 ...WSPC6 BSOFF AWHATBIT,WSPC7 [J IF ALL CLEAR TO GO AHEAD 19 3NN2 ... COOR3 #114 [WAIT TILL COMMAND FINISHES 8 3NRX ... BRN WSPC6 15 3NXS ...WSPC7 ON AWHATBIT [SET SWITCH 5 3P3P ...WSPC8 5 3P7L WSCREATE 11 3PM= [ CREATE AND OPEN 'WS' FILE 7 3Q6W CREATEB 3 18 3QLG OPSCON WSC10,WSC7 [J IF OPERATOR CONTEXT 18 3R66 WSC7 FRIGMONF XER9,1 [CREATE AND OPEN WORKFILE 7 3RKQ LOBSFILE 8 3S5B BRN WSC90 18 3SK2 WSC10 LDN 1 WFILE+1(1) [CREATION AND ERASURE.... 18 3T4L LDN 2 CPREFIX(2) [REQUIRES OWNERSHIP ..... 18 3TJ= MOVE 1 3 [SO INSERT 'OPERATORS' 11 3W3W SETNCORE 10,3,FILE,FABSNB 9 3WHG LDN 1 WFILE(1) 8 3X36 LDN 2 A1(3) 8 3XGQ MOVE 1 10 19 3XP2 ... USEROPEN XBRK9,APPEND,CREATE,LEAVE,FROZEN [OPEN WS FILE 9 3YG2 TESTRPN2 OK,XER9 10 3Y_L MHUNT 3,FILE,ENT 19 3_F= LDX 5 EGEN(3) [GET GENERATION NO.OF WS FILE 19 3_YW STO 5 AWORK4(2) [SAVE GEN. NO. OF 'WS' FILE 7 42DG FREECORE 3 10 42Y6 WSC90 MFREE FILE,FABSNB 11 43CQ [ PREPARE TO O/P 'WS' FILE 17 43XB PREP STOZ ACOMMUNE1(2) [O/P WELL INFO &... 18 44C2 DOWN WSJOBS,1 [...STORE LIVE JOB NOS. 8 44WL BRN XER 8 45B= BRN XBRK 4 45TW OPF 15 46*G [ O/P WS INFORMATION TO REQUIRED TERMINALS 10 46T6 MFREE CQPRINT,CQ11 10 47#Q MHUNTW 3,CQPRINT,CQ1 17 47SB ... JBS OPF4,3,OPLIST [J IF NOT O/P 'HERE' 6 49?= REWIND 17 49QW OPF2 READ [READ REC. OF WS FILE 10 4==G MHUNT 3,FILE,FRB 8 4=Q6 LDX 0 A1(3) 16 4?9Q BZE 0 OPF8 [J IF END OF FILE 15 4?PB TESTBRKIN XBRK [J IF B-IN OCCURRED 5 4?SG ...XFSHBRKA 5 4#5W ...XFSHBRKB 9 4#92 LDEX 6 A1+FRH(3) 7 4#NL SLL 6 2 7 4*8= SBN 6 8 15 4*MW OUTMON 6,A1+FRH+2,A1+FRH+1(3),FILE,FRB 9 4B7G MFREE FILE,FRB 8 4BM6 BRN OPF2 7 4C6Q OPF4 LDN 4 4 8 4CLB LDX 1 FX1 9 4D62 LDX 5 SLIST(1) 17 4DKL SPARABEG 1,4 [GET *LP PARAMETER 10 4F5= MHUNT 3,CPB,CUNI 9 4FJW LDX 4 ANUM(3) 18 4G4G BPZ 4 OPF5 [J IF PARAMETER EXISTS 19 4GJ6 LDN 4 0 [LENGTH OF PROPERTIES STRING 8 4H3Q OPF5 ANDN 4 #7777 20 4HHB LDX 7 4 [X7=MAX. NO. OF CHARS IN LF/RJ 11 4J32 ADN 7 CPDATA-A1*4+48 19 4JGL SRL 7 2 [X7REQ'D SIZE OF ADATA/CREADL 11 4K2= SETUPCORE 7,3,ADATA,CREADL 16 4KFW OPSCON OPF6,OPF55 [J IF OP CONTEXT 9 4K_G OPF55 LDN 5 PRINTU(1) 9 4LF6 LDN 6 CPDATA(3) 20 4LYQ MVCH 5 22 [MOVE IN BASIC PART OF COMMAND 17 4MDB BZE 4 OPF7 [J IF NO PROPERTIES 14 4MY2 LDN 5 PRINTQ(1) [COMMA PR 7 4NCL MVCH 5 3 19 4NX= CALL 7 STLP [COPY PROPERTY TOADATA/CREADL 8 4PBW BRN OPF7 9 4PWG OPF6 LDN 5 PRINTO(1) 9 4QB6 LDN 6 CPDATA(3) 8 4QTQ MVCH 5 37 17 4R*B BZE 4 OF1 [J IF NO PROPERTIES 9 4RT2 LDN 5 PRINTP(1) 19 4S#L MVCH 5 7 [MOVE IN PARAM ADATA/CREADL 17 4SS= CALL 7 STLP [MOVE IN PROPERTIES 8 4T?W LDCT 0 #310 7 4TRG LDN 5 0 15 4W?6 MVCH 5 1 [MOVE IN ) 7 4WQQ OF1 LDX 0 6 8 4X2J ... LDX 2 FX2 9 4X=B LDX 5 AWORK4(2) 7 4XQ2 LDN 6 0 9 4Y9L DVR 5 N10000(1) 8 4YP= LDCT 7 #200 10 4_8W LDN 1 CPDATA+3(3) 7 4_NG LDN 4 4 17 5286 OF2 CBD 6 0(1) [PUT FILE GEN. NO.... 18 52MQ BCHX 1 / [...AT END OF FILENAME 8 537B BCT 4 OF2 7 53M2 LDX 6 0 9 546L OPF7 MFREE CPB,CUNI 9 54L= SBN 6 CPDATA(3) 7 555W SLC 6 2 8 55KG STO 6 A1(3) 18 5656 OPSCON OPF77,OPF75 [J IF 'RJ' TO BE ISSUED 5 566T ...OPF75 16 572* ... ISSUCOMB XER,XBRK [ISSUE LF COMMAND 8 574B BRN OPF78 8 57=L ...OPF77 LDX 6 GSIGN 18 57DW ... ORS 6 CONTEXT(2) [RJ MUST BE SYS. ISSUED 17 57M6 ... ISSUCOMB XERA,XBRKA [ISSUE RJ COMMAND 10 57TB ... ERS 6 CONTEXT(2) 5 57XM ...OPF78 17 586G ... OPSCON OPF9,OPF8 [J IF OP. CONTEXT 19 58H= OPF8 CALL 6 WSERASE [ERASE 'WS' FILE UNLESS 'RJ' 6 592W OPF9 CLOSE 19 59GG CALL 6 WOFF [SWITCH OFF AWHATBIT IF NEC. 6 5=26 ENDCOM 10 5=9Y ...XBRKA ERS 6 CONTEXT(2) 6 5=FQ XBRK CLOSE 18 5=_B CALL 6 WSERASE [ERASE 'WS' FILE IF NEC. 8 5?F2 XBRK9 CALL 6 WOFF 7 5?RC ...XBRK95 ABANDCOM 10 5#5S ...XERA ERS 6 CONTEXT(2) 6 5#D= XER CLOSE 9 5#XW CALL 6 WSERASE 8 5*CG XER9 CALL 6 WOFF 6 5*X6 ...XER95 ENDCOM 19 5BBQ XER99 COMERR JCONTINC,JNUNOP [NOT ALLOWED IN NO USER,NO OP 4 5BWB #END 6 ____ ...044073050001