7 22FL #OPT K0HLSEMS=0 13 22_= #LIS K0HLSEMS>K0ALLGEO>K0GREATGEO>K0HLS 15 23DW #SEG HLSEMS [RUTH HEAP 7 23YG 8HHLSEMS 4 24D6 # 21 24XQ # THIS SEGMENT IS THE EMS ROUTINE WHICH PROCESSES :SYSTEM.JOBLIST 20 25CB # FOR THE HLS.IT IS ENTERED AFTER BACKMAP HAS DELETED ALL JOBS 18 25X2 # WITHOUT SAVING FILES.THIS ROUTINE MERELY LOOKS DOWN 21 26BL # :SYSTEM.JOBLIST SETTING UP A HLSQ BLOCK FOR EACH JOB AND ADJUSTING 6 26W= # COUNTS 4 27*W # 4 27TG # 9 28*6 # MARK 7-JNLSTART 21 28SQ # ALTHOUGH IT IS NO LONGER STRICTLY NECESSARY WE ARE STILL SETTING 13 29#B # UP THE ADATA/CSTORE BLOCK BECAUSE: 4 29S2 # 21 2=?L # 1) :SYSTEM JOBLIST IS NOT LEFT OPEN WHILE WE DO UMPTEEN MONOUTS 4 2=R= # 21 2?=W # 2) WE MAY NEED SUCH A BLOCK WHEN WE AGAIN OUTPUT TO THE CLUSTER 8 2?QG # CONSOLES 4 2#=6 # 4 2#PQ # 8 2*9B # ENTRY POINTS 4 2*P2 # 10 2B8L SEGENTRY K1HLSEMS,XK1 10 2BN= SEGENTRY K100HLSEMS 5 2C7W #GAP 20 8 2CMG ZNAMES +10 9 2D76 12HSYSTEM 10 2DLQ 12HJOBLIST 8 2F6B +1 9 2FL2 #20000000 8 2G5L 4HB1 7 2GK= #DEF STORSIZE=8 6 2H4W #DEF USER=0 6 2HJG #DEF SJOB=3 6 2J46 #DEF SPCT=6 7 2JHQ #DEF SJONO=7 10 2K3B PJCONT +JCONTINUE 21 2KH2 # THIS ENTRY POINT SETS UP AN ACTIVITY WHICH,AT THE END OF 21 2L2L # EARLY MORNING START, WILL OUTPUT MESSAGES TO THE CENTRAL 21 2LG= # CONSOLE AND TO THE RESPECTIVE CLUSTER CONSOLE.THIS CANNOT 17 2L_W # BE DONE AT EMS AS THE IDF IS NOT SET UP 4 2MFG # 4 2M_6 XK1 8 2NDQ #SKI K6HLSEMS>99-99 10 2NYB TRACE FX2,HLSEMS 10 2PD2 BSON HLSBIT,XNBLOK 11 2PXL SETNCORE 10,3,FILE,FABSNB 12 2QC= # OPEN SYSTEM.JOBLIST 9 2QWW LDN 4 ZNAMES(1) 8 2RBG LDN 5 A1(3) 8 2RW6 MOVE 4 10 10 2S*Q OPEN XBROK,READ 9 2STB TESTREP OK,XOK 10 2T*2 GEOERR 1,WRONGREP 9 2TSL XBROK GEOERR 1,BREAKIN 17 2W#= XOK READ [READ FIRST RECORD 13 2WRW # SET UP ADATA/CSTORE BLOCK 13 2X?G SETNCORE STORSIZE,3,ADATA,CSTORE 19 2XR6 LDN 7 A1 [SET UP POINTER WITHIN BLOCK 4 2Y=Q # 8 2YQB # LOOP OF JOBS 12 2_=2 XLOOP SETNCORE AHLS,2,ADATA,JSWAP 4 2_C8 ...# 5 2_JB ...XLOOPA 7 2_PL LDX 5 2 7 329= PHOTO 6 6 32NW STEP 15 338G BZE 3 XEND [J IF END OF FILE 7 33N6 LDX 2 5 8 347Q TESTMOVE 6,XNM 10 34MB MHUNTW 2,ADATA,JSWAP 10 3572 XNM MHUNTW 1,FILE,FRB 7 3599 ...#SKI JWPHASE3 4 35?D ...( 10 35*M ... ADX 3 JOBDATASIZE 12 35*_ ... JBC XLOOPA,3,JLBRUNNING 8 35B? ... FSHCODE AORB 4 35BK ...( 20 35BX ...# FOR SHARED FILESTORE, WE HAVE TO SET A BIT IN THE ADATA/JSWAP 14 35C9 ...# FOR ALL JOBS THAT WERE SAVED ON 'B' 4 35CH ...# 18 35CT ... STOZ HLSYONQA(2) [CLEAR SECOND MARKER WORD 20 35D7 ... JBC XNOTINB,3,JLBRUNB [JIF JOB WAS NOT RUNNING IN 'B' 20 35DF ... BS 2,BLASTRUNB [ELSE SET MARKER IN ADATA/JSWAP 4 35DR ...# 5 35F5 ...XNOTINB 4 35FC ...) 10 35G5 ... SBX 3 JOBDATASIZE 4 35J# ...) 8 35LL LDX 6 1(3) 16 366= STO 6 HLSJONO(2) [STORE JOB NUMBER 10 36KW LDN 6 HLSUNAM(2) 10 375G SMO JUSERELADD(1) 8 37K6 LDN 5 0(3) 16 384Q MOVE 5 3 [STORE USERNAME 10 38JB LDN 6 HLSJNAM(2) 10 3942 SMO JJOBRELADD(1) 8 39HL LDN 5 0(3) 16 3=3= MOVE 5 3 [STORE JOB NAME 8 3=GW LDX 5 GSIGN 16 3?2G STO 5 HLSSTAT(2) [SET JMISC FRIG 10 3?G6 STO 5 HLSYONQ(2) 10 3?_Q SMO JSOADDR(1) 16 3#FB LDX 0 0(3) [PICK UP CLUSTER 9 3#_2 STO 0 HLSPCT(2) 7 3*39 ...#SKI JWPHASE2 4 3*5D ...( 10 3*7M ... ADX 3 JOBDATASIZE 10 3*9W ... LDX 0 JLBUDGETS(3) 10 3*#5 ... STO 0 HLSPRIV(2) 4 3*B# ...) 11 3*DL MHUNTW 3,ADATA,CSTORE 10 3*Y= LDN 5 HLSUNAM(2) 7 3BCW SMO 7 9 3BXG LDN 6 USER(3) 17 3CC6 MOVE 5 3 [MOVE IN USER NAME 10 3CWQ LDN 5 HLSJNAM(2) 7 3DBB SMO 7 9 3DW2 LDN 6 SJOB(3) 16 3F*L MOVE 5 3 [MOVE IN JOB NAME 9 3FT= LDX 5 HLSPCT(2) 7 3G#W SMO 7 15 3GSG STO 5 SPCT(3) [SET PCT WORD 10 3H#6 LDX 5 HLSJONO(2) 7 3HRQ SMO 7 9 3J?B STO 5 SJONO(3) 8 3JDJ ...#SKI JWPHASE3<1$1 4 3JKQ ...( 6 3JR2 #SKI BILASJ 21 3K=L BSJ XADD [DO NOT INCREMENT COUNT IF BILA SJ 11 3KQ= SETNCORE 3,1,FILE,ADICT 10 3L9W MHUNTW 2,ADATA,JSWAP 10 3LPG LDN 5 HLSUNAM(2) 8 3M96 LDN 6 A1(1) 21 3MNQ MOVE 5 3 [SET UP FILE/ADICT BLOCK FOR DICTJOB 7 3N8B DICTJOB 4 9 3NN2 TESTREP OK,XOK2 9 3P7L GEOERR 1,DICTJOB 17 3PM= XOK2 CLOSE [CLOSE THE DICTIONARY 10 3Q6W MFREE FILE,ADICTENT 4 3QLG XADD 7 3R66 LDN 5 1 9 3RKQ ADS 5 JOBCOUNT 4 3RTJ ...) 15 3S5B MHUNTW 1,ADATA,JSWAP [RECHAIN HLSQ 8 3SK2 LDN 2 BHLSQ 9 3T4L XHNT LDX 2 FPTR(2) 8 3TJ= TXU 2 CXHL 8 3W3W BCC XFND 10 3WHG LDX 0 HLSJONO(2) 10 3X36 TXL 0 HLSJONO(1) 8 3XGQ BCS XHNT 8 3Y2B #SKI K6HLSEMS>5-5 4 3YG2 ( 10 3Y_L TXU 0 HLSJONO(1) 8 3_F= BCS XCTU 10 3_YW GEOERR 1,HLSQRONG 4 42DG XCTU 4 42Y6 ) 9 43CQ XFND LDX 2 BPTR(2) 15 43XB CHAIN 1,2 [RECHAIN HLSQ 11 44C2 MHUNTW 3,ADATA,CSTORE 10 44WL LDX 4 ALOGLEN(3) 9 45B= ADN 4 STORSIZE 11 45TW ALTLEN 3,4,ADATA,CSTORE 9 46*G ADN 7 STORSIZE 8 46T6 BRN XLOOP 9 47#Q # END OF SAVED JOBS 4 47SB XEND 6 48#2 CLOSE 10 48RL MFREEW ADATA,JSWAP 11 49?= MHUNTW 3,ADATA,CSTORE 10 49QW LDX 4 ALOGLEN(3) 9 4==G SBN 4 STORSIZE 18 4=Q6 BNZ 4 XBLOK [J IF SAVED JOBS FOUND 7 4?9Q FREECORE 3 9 4?PB BRN XNBLOK 8 4#92 XBLOK ALTLEN 3,4 5 4#NL XNBLOK 8 4#TS ...#SKI JWPHASE3<1$1 4 4*32 ...( 9 4*8= LDX 3 BHLSQ+1 8 4*MW TXU 3 CXHL 8 4B7G BCC XNJOB 10 4BM6 LDX 4 HLSJONO(3) 21 4C6Q TXL 4 JOBNUMBER [TEST AGAINST LARGEST NUMBER FOUND 21 4CLB BCS XNJOB [BY BACKMAP WHEN CHECKING WORKFILES 9 4D62 STO 4 JOBNUMBER 5 4DKL XNJOB 4 4DTD ...) 7 4F5= #SKI K6HLSEMS 10 4FJW TRACE FX2,HLOUTPUT 8 4G4G LDN 7 A1 4 4GJ6 XLOP 11 4H3Q HUNTW 3,ADATA,CSTORE 17 4HHB BNG 3 XNSAVE [J IF NO JOBS SAVED 8 4J32 ADN 7 USER 7 4JGL ADX 7 3 10 4K2= LDN 0 ACOMMUNE3(2) 7 4KFW MOVE 7 6 7 4K_G SBX 7 3 8 4LF6 SBN 7 USER 7 4LYQ SMO 7 9 4MDB LDX 6 SJONO(3) 10 4MY2 LDX 4 ALOGLEN(3) 14 4NCL RPT OUTPACK ACOMMUNE3(2),3,USERNAME,RPT 14 4NX= RPT1 OUTPACK ACOMMUNE6(2),3,JOBNAME,RPT1 9 4PBW LDX 5 PJCONT(1) 8 4PWG MONOUTX 5,6 9 4QB6 ADN 7 STORSIZE 8 4QTQ ADN 4 A1 7 4R*B TXU 7 4 8 4RT2 BCS XLOP 5 4S#L XNSAVE 10 4SS= VFREEW ADATA,CSTORE 9 4T?W ACROSS SETUP,4 4 4TRG #END 8 ____ ...26720640000100000000