3 22FL ... 14 22_= ... SEG BMSAVJOB,860,EDWARD MOON,BMAP 12 23DW ... SEGENTRY K1BMSAVJOB,SAVEDJOB 11 23YG ... SEGENTRY K2BMSAVJOB,XDEL 11 24D6 ... SEGENTRY K3BMSAVJOB,SJLOST 11 24XQ ... SEGENTRY K4BMSAVJOB,SJLOST 12 25CB ... SEGENTRY K5BMSAVJOB,NOJLIST 12 25X2 ... SEGENTRY K7BMSAVJOB,TEMPCHECK 12 26BL ... SEGENTRY K8BMSAVJOB,UJLASKFOR 12 26W= ... SEGENTRY K9BMSAVJOB,NEWJDCONV 13 2764 ... FSHENTRY K10BMSAVJOB,,XK10,XK10 6 27*W ...#DEF XJWP4=0 8 27TG ...#SKI JWPHASE4<1$1 7 28*6 ...#UNS JWP4REVERT 7 28SQ ...#ALT XJWP4=1 8 2J46 NDTAILS +1 8 2JHQ +1 9 2K3B 4H#### 4 2KH2 ...[ 9 2L2L ...TYPE #40000012 6 2SX# ...#SKI XJWP4 4 2S_= ...( 5 2T38 ...TEMPLATE 10 2T56 ... JLTEMPLATE JL,RECORD 4 2T74 ...) 7 2T92 ...#SKI XJWP4<1$1 4 2T=Y ...( 9 2T*2 ...NJLRECLEN +JLRECLEN 4 2TSL ...[ 10 2W#= ... SEGENTRY K94BMSAVJOB 4 2WRW ...[ 5 2X?G ...RECORD 17 2XR6 ... +FACILITIES*3+JLFIXLEN [RECORD SIZE 9 2Y=Q ... +JLRECLEN 6 2YQB ...#FID 0,0,1 14 2_=2 ... +11 [JFACTAB 15 2_PL ... +2 [JUSERLADD 15 329= ... +5 [JJOBRELADD 15 32NW ... +8 [JDATEADDR 14 338G ... +10 [JSOADDR 15 33N6 ... +0 [JLVERSION 6 347Q ...#FID 0,0,1 10 34MB ... SEGENTRY K96BMSAVJOB 15 3572 ... +35 [JLSTATPTR 14 35LL ... +36 [JLBUDPTR 15 366= ... +37 [JASSRELADD 8 36R4 ... +40 4 375G ...[ 10 37K6 ... SEGENTRY K95BMSAVJOB 4 384Q ...[ 10 38JB ... +FACILITIES*3 9 3942 ... 1,11,1 9 39HL ... 5,12,1 9 3=3= ... 8,13,3 9 3=GW ... 3,16,1 9 3?2G ... 2,17,1 9 3?G6 ... 6,18,16 9 3?_Q ... 4,34,1 10 3#FB ...#GAP FACILNO-FACILITIES*3 4 3#P8 ...) 3 3#_2 ... 6 3*DL ...STEPREWRITE 8 3*Y= ... STEPREWRITE 7 3BCW ... EXIT 5 0 4 3BXG ...[ 5 3CC6 ...OUTPACK 8 3CWQ ... SBX 7 FX1 8 3DBB ... OUTPACKX 2,5,6 8 3DW2 ... ADX 7 FX1 7 3F*L ... EXIT 7 0 4 3FT= ...[ 5 3G#W ...SAVEDJOB 10 3GSG ... LDX 6 AUSEJOBNO(2) 6 3H#6 ...WAITOSTEP 11 3HRQ ... LDX 3 ACTPTRSYSJL(2) 12 3J?B ... POP WAITOSTEP,3,FTABWAIT 9 3JR2 ... LDX 7 ACTNUM(2) 7 3K=L ... CHANGEAC 3 11 3KQ= ... STO 7 ACTPTRSYSJL(2) 7 3L9W ... LDN 2 1 9 3LPG ... GETJOB 6,SYSTEM 7 3M96 ... STEPAGAI 7 3MNQ ... LDX 5 3 11 3N8B ... FINDACTN 3,ACTPTRSYSJL(2) 7 3NN2 ... CHANGEAC 3 11 3P7L ... LDX 3 ACTPTRSYSJL(2) 10 3PM= ... VOP 3,FTABWAIT 7 3Q6W ... LDX 3 5 10 5Q5Q MHUNT 1,FILE,FABSNB 8 5R52 LDN 0 10 8 5RJL STO 0 A1(1) 6 5RMQ ...#SKI XJWP4 9 5RQW ... LDN 0 JLUSER(3) 7 5RW2 ...#SKI XJWP4<1$1 4 5R_6 ...( 9 5S4= SMO AWORK1(2) 8 5SHW LDN 0 0(3) 4 5SRN ...) 8 5T3G ADN 1 A1+1 7 5TH6 MOVE 0 3 15 5TXL ... TRACEIF K6BMSAVJOB,99,299,0(1),USERSAVE 13 5W#6 ... TRACEIF K6BMSAVJOB,199,299,1(1) 13 5WNL ... TRACEIF K6BMSAVJOB,199,299,2(1) 6 5X56 ...#SKI XJWP4 10 5X8= ... LDN 0 JLJOBNAME(3) 7 5X?B ...#SKI XJWP4<1$1 4 5XBG ...( 9 5XFL SMO AWORK2(2) 8 5X_= LDN 0 0(3) 4 5Y94 ...) 7 5YDW ADN 1 3 7 5YYG MOVE 0 3 15 5_D6 ... TRACEIF K6BMSAVJOB,99,299,0(1),JOBSAVE 13 5_XQ ... TRACEIF K6BMSAVJOB,199,299,1(1) 13 62CB ... TRACEIF K6BMSAVJOB,199,299,2(1) 8 62X2 SMO FX1 9 63BL LDN 0 NDTAILS 7 63W= ADN 1 3 14 64*W MOVE 0 3 [1,1,#### 7 64F2 ...#SKI JWPHASE4 12 64J6 ... JBC TREATASWELL,,HLSBFS 8 64M= ...#SKI JWPHASE4<1$1 12 64QB ... BSON HLSBIT,TREATASWELL 13 64TG ... BMOPENDI XBR,TREATASWELL,NOSAVING1 15 65*6 [J IF NOT OK 8 65SQ BMOPENRE XBR 7 66#B CLOSEDIR 11 66J8 ... SETNCORE 10,2,FILE,FABSNB 7 66S2 LDN 6 0 15 676C ... LDN 4 0 [=FREEZING 5 67R= NEXTFILE 6 68=W STEP 17 68QG BZE 3 NDSAV [END OF SAVING FILE 8 69=6 BNZ 4 NXF1 7 69PQ ADN 6 1 8 6=9B BRN NXF2 4 6=P2 NXF1 7 6?8L SBN 6 1 18 6?N= BZE 6 NDSAVX [J IF FINISHED THAWING 17 6#7W NXF2 LDCT 0 #40 [TEST CATEGORY WORD 8 6#MG ANDX 0 1(3) 19 6*76 BZE 0 NEXTFILE [NO B3-NOT SAVED FILE RECORD 7 6*LQ LDCT 0 4 8 6B6B ANDX 0 1(3) 16 6BL2 BNZ 0 NEXTFILE [B6-NOT FABSNB 15 6C5L ... TRACEIF K6BMSAVJOB,99,299,2(3),SVDFIUSE 13 6CK= ... TRACEIF K6BMSAVJOB,199,299,3(3) 13 6D4W ... TRACEIF K6BMSAVJOB,199,299,4(3) 15 6DJG ... TRACEIF K6BMSAVJOB,99,299,5(3),SVDFILOC 13 6F46 ... TRACEIF K6BMSAVJOB,199,299,6(3) 13 6FHQ ... TRACEIF K6BMSAVJOB,199,299,7(3) 10 6H2L MHUNT 2,FILE,FABSNB 8 6HG= LDN 0 10 8 6H_W STO 0 A1(2) 8 6JFG LDN 1 2(3) 8 6J_6 ADN 2 A1+1 7 6KDQ MOVE 1 9 12 6KYB BMOPENDI XBR,NOSAVED2,NOSAVED1 20 6LD2 JBS XFREEZE,1,BECARE [CAREFUL FILES CANT BE FROZEN YET 18 6LXL FREECORE 1 [J IF SAVED FILE NOT OK 7 6MWW STEP 1 8 6NBG LDCT 0 #166 13 6NW6 ANDX 0 FGENERAL1-FREADBLOCK+2(3) 7 6P*Q LDN 7 1 8 6PTB BZE 0 READ 8 6Q*2 SLL 7 12 4 6QSL READ 14 6R#= ... TRACEIF K6BMSAVJOB,199,299,7,FREZALT 14 6RRW ... TRACEIF K6BMSAVJOB,199,299,4,FREZMODE 7 6S?G STEPAGAIN 10 6SR6 CALL 5 STEPREWRITE 15 6T=Q BNZ 4 THAWSAVE [J IF THAWING 7 6TQB ADN 6 1 14 6W=2 ADS 7 ESAVECOUNT-A1(3) [FREEZE 15 6WPL RCLOS CLOSETOP [DIRECTORY 9 6X9= BRN NEXTFILE 5 6XNW THAWSAVE 7 6Y8G SBN 6 1 13 6YN6 SBS 7 ESAVECOUNT-A1(3) [THAW 8 6_7Q BRN RCLOS 5 6_MB NOSAVED1 14 7272 ... TRACEIF K6BMSAVJOB,99,299,5,FREZFAIL 13 72LL FREECORE 1 [ENT 14 736= CLOSETOP [LAST DIR 5 73KW NOSAVED2 15 74K6 REWIND [SAVING FILE 7 754Q LDN 4 1 17 75JB BRN NEXTFILE [THAW THEM ALL AGAIN 19 7642 NDSAV [OK-NOW FREEZE SAVING FILE 19 76HL NDSAVX [ERROR-DELETE JOBLIST RECORD 10 76RD ... MFREE FILE,FABSNB 15 773= CLOSETOP [SAVING FILE 15 77GW BNZ 4 NDSAVZ [ERROR CASE 10 782G OPENDIR XBR,GENERAL 10 78G6 MHUNTW 1,FILE,ENT 9 78_Q LDEX 5 ECOPS(1) 7 79FB FREECORE 1 9 79_2 BZE 5 NNBLKS 7 7=DL BACKSPACE 5 7=Y= NNBLKS 7 7?CW STEPAGAIN 10 7?XG CALL 5 STEPREWRITE 17 7#C6 ... TRACEIF K6BMSAVJOB,99,299,ELOC1-A1(3),SAVINGFR 7 7#WQ LDN 0 1 18 7*BB ADS 0 ESAVECOUNT-A1(3) [READ FREEZE SAVING FILE 17 7*JL ... CLOSETOP [DIR OF SAVING FILE 5 7*_6 ... UP 5 7B*L NDSAVZ 6 7BT= ...TREATASWELL 7 7C#W ... UPPLUS 1 6 7CSG ...NOSAVING1 7 7D#6 ... FREECORE 1 7 7DRQ ... CLOSETOP 10 7F?B ... BRN TREATASWELL 4 7FR2 ...[ 6 7G=L ...TEMPCHECK 6 7G?X ...#SKI XJWP4 4 7G*8 ...( 9 7GBF ... LDN 0 JLUSER 9 7GCQ ... STO 0 AWORK1(2) 15 7GF3 ... JLTEMPCONV AWORK2(2),TEMPLATE,XDEL,REC1 7 7GG# ... LDN 3 0 10 7GHK ... JWCONVAD 3,AWORK2(2) 9 7GJW ... NGS 3 AWORK3(2) 4 7GL7 ...) 7 7GMD ...#SKI XJWP4<1$1 4 7GNP ...( 9 7GQ= ... STOZ AWORK3(2) 6 7H9W ... STEP 8 7HPG ... BZE 3 REC1 20 7J96 ... LDX 0 JUSERELADD-A1(3) [->USERNAME IN JOBLIST RECORDS 9 7JNQ ... STO 0 AWORK1(2) 16 7K8B ... LDX 0 JJOBRELADD-A1(3) [JOBNAME POINTER 9 7KN2 ... STO 0 AWORK2(2) 7 7L7L ... LDX 5 3 9 7LM= ... LDEX 4 FRH(3) 10 7M6W ... LDX 6 RECORD+11(1) 7 7MLG ... ADN 6 1 10 7N66 ... SBX 6 NJLRECLEN(1) 10 7NKQ ... STO 6 JOBDATASIZE 12 7P5B ... BXE 4 RECORD(1),NONUDATA 7 7PK2 ... STO 4 7 7 7Q4L ... LDN 4 6 6 7QJ= ...NJDRECLOOP 10 7R3W ... LDX 0 RECORD+2(1) 9 7RHG ... BXU 0 2(3),XDEL 7 7S36 ... BUX 1 / 7 7SGQ ... BUX 3 / 10 7T2B ... BCT 4 NJDRECLOOP 7 7TG2 ... STEPAGAIN 10 7T_L ... LDX 0 RECORD+1(1) 8 7WF= ... SBX 0 1(3) 9 7WYW ... STO 0 AWORK3(2) 9 7XDG ... LDX 3 RECORD(1) 18 7XY6 ... SETUPCOR 3,2,FILE,FWB [FOR REPLACING RECORD 1 8 7YCQ ... ADN 2 A1 9 7YXB ... LDN 1 RECORD(1) 19 7_C2 ... MOVE 1 0(3) [BMJLIST TEMPLATE INTO FWB 18 7_WL ... REPLACE [NEW RECORD 1 INTO SJL 9 82B= ... MFREE FILE,FWB 10 82TW ... BRN NUJOBFSCHEK 5 83*G ...NONUDATA 7 83T6 ... SBN 4 1 5 84#Q ...RECLOOP 10 84SB ... LDX 0 RECORD+1(1) 9 85#2 ... BXU 0 1(3),XDEL 7 85RL ... BUX 1 / 7 86?= ... BUX 3 / 9 86QW ... BCT 4 RECLOOP 7 87=G ... LDX 3 5 6 87Q6 ...NUJOBFSCHEK 4 87_Y ...) 9 889Q ... ACROSS BMJLIST,5 4 8#6Q ...[ 4 8#LB ...WDEL 6 8*62 ... STEP 8 8*KL ... BZE 3 REC1 4 8B5= ...XDEL 6 8BJW ... DELETE 8 8C4G ... BRN WDEL 6 8CJ6 ...UJLASKFOR 7 8D3Q ... STOZ 7 9 8DHB ... BRN NOTAVAIL 5 97FQ ...SJLOST 7 97_B ... NGN 7 1 7 99D= ... BACKSPACE 5 99XW ...NOTAVAIL 10 9=CG ... MHUNTW 1,FILE,ENT 9 9=X6 ... LDEX 5 ECOPS(1) 9 9?BQ ... ADX 5 ENUSE(1) 10 9?WB ... JBC NOTIND,1,BEINDEX 7 9#B2 ... ADN 5 1 5 9#TL ...NOTIND 8 9**= ... SMO FX2 9 9*SW ... DEX 5 AWORK4 7 9B#G ... FREECORE 1 9 9BS6 ... BNZ 7 SYSLOST 10 9C?Q ... ACROSS BMJLSLAV,2 5 9CRB ...SYSLOST 7 9D?2 ... LDX 3 5 8 9DQL ... LDN 7 1(3) 8 9F== ... BZE 3 QDEL2 8 9FPW ... SKIP ,0(3) 5 9G9G ...QDEL2 6 9GP6 ... DELETE 8 9H8Q ... BCT 7 QDEL2 7 9HNB ... CLOSETOP 8 9J82 ... BRN NOJ1 5 9JML ...NOJLIST 13 9K7= ... TRACEIF K6BMSAVJOB,99,199,0,NOSJL 4 9KLW ...NOJ1 17 9L6G ... CREATEB 1 [FILE CREATE BLOCK 18 9LL6 ... MBS 1,CEINDEXF,CECARE,CECOOR,CEONLINE [ - FOR 15 9M5Q ... LDN 0 INDEXJOB [ -INDEXED 14 9MKB ... STO 0 CEINDEX(1) [ - FILE 14 9N52 ... OPEN XBR,GENERAL,CREATE,DIROPEN 4 9NJL ...REC1 12 9P4= ... SETUPCOR RECORD(1),3,FILE,FWB 9 9PHW ... LDN 2 RECORD(1) 9 9Q3G ... LDX 1 RECORD(1) 8 9QH6 ... ADN 3 A1 8 9R2Q ... MOVE 2 0(1) 8 9RGB ... LDX 1 FX1 12 9S22 ... GETJOB RECORD+1(1),SYSTEM 6 9SFL ... INSERT 9 9S_= ... MFREEW FILE,FWB 4 9TDW ...NDJ 7 9TYG ... TOPFCB2 1 9 9WD6 ... BC 1,BFCORE 10 9WXQ ... BS 2,AW4RESTATUS 9 9XCB ... ACROSS BMJLIST,2 4 9XX2 ...[ 4 9YBL ...SUB 10 9YW= ... MHUNTW 2,FILE,FRB 7 9_*W ... EXIT 1 0 4 9_TG ...[ 15 =2*6 ...[ ENTRY FOR NEWJOBDATA CONVERSION OF RECORDS 4 =2SQ ...[ 6 =3#B ...NEWJDCONV 6 =3B5 ...#SKI XJWP4 4 =3CS ...( 9 =3FH ... STOZ AWORK1(2) 6 =3H= ...SAVESECOND 10 =3J_ ... JLRECCONV AWORK2(2) 4 =3LN ...) 7 =3NC ...#SKI XJWP4<1$1 4 =3Q6 ...( 7 =3S2 ... STOZ 7 6 =4?L ...SAVESECOND 10 =4R= ... MHUNTW 3,FILE,FRB 20 =5=W ... BNG 5 SHORTENREC [IF REVERSION TO PRE NJD VERSION 10 =5QG ... LDX 4 ALOGLEN(3) 20 =6=6 ... ADX 4 5 [NEW LOGICAL LENGTH OF JL(/****) 9 =6PQ ... ALTLENG 3,4,SUB 10 =79B ... LDX 4 RECORD+8(1) 7 =7P2 ... SBX 4 5 10 =88L ... MHUNTW 3,FILE,FRB 8 =8N= ... LDEX 2 A1(3) 8 =97W ... ADN 2 A1-1 16 =9MG ... ADX 2 3 [LAST WORD OF REC 7 ==76 ... LDX 1 2 7 ==LQ ... ADX 1 5 7 =?6B ... LDX 5 2 15 =?L2 ... SBN 5 A1-1(3) [RECORD SIZE 18 =#5L ... SBX 5 4 [ JLSTAT TO END OF REC 5 =#K= ...MOVEDATA 8 =*4W ... LDX 6 0(2) 8 =*JG ... STO 6 0(1) 7 =B46 ... SBN 2 1 7 =BHQ ... SBN 1 1 9 =C3B ... BCT 5 MOVEDATA 8 =CH2 ... SMO FX2 9 =D2L ... LDX 5 AWORK3 8 =DG= ... ADN 3 A1 20 =D_W ... ADX 3 4 [POS OF FIRST WORD TO BE STOZZED 5 =FFG ...STOZZING 16 =F_6 ... STOZ 0(3) [DO THE STOZZING 7 =GDQ ... ADN 3 1 9 =GYB ... BCT 5 STOZZING 9 =HD2 ... BRN NEWRECINS 6 =HXL ...SHORTENREC 10 =JC= ... LDX 1 RECORD+8(1) 8 =JWW ... ADN 1 A1 7 =KBG ... ADX 1 3 9 =KW6 ... NGX 2 AWORK3(2) 7 =L*Q ... ADX 2 1 8 =LTB ... LDEX 5 A1(3) 8 =M*2 ... ADN 5 A1(3) 7 =MSL ... SBX 5 2 6 =N#= ...MOVEDATA2 8 =NRW ... LDX 4 0(2) 15 =P?G ... STO 4 0(1) [MOVE A WORD 7 =PR6 ... ADN 1 1 7 =Q=Q ... ADN 2 1 17 =QQB ... BCT 5 MOVEDATA2 [TO MOVE NEXT WORD 8 =R=2 ... SMO FX2 9 =RPL ... LDX 4 AWORK3 18 =S9= ... ADS 4 ALOGLEN(3) [TO SHORTEN RECORD FCB 6 =SNW ...NEWRECINS 10 =T8G ... MHUNT 3,FILE,FRB 10 =TN6 ... LDX 0 ALOGLEN(3) 8 =W7Q ... DEX 0 A1(3) 8 =WMB ... LDX 2 FX2 4 =WX8 ...) 12 =X72 ... JBS NOTSAVED2,2,AW4SAVED 5 =XLL ...UPLABEL 5 =Y6= ... UP 6 =YKW ...NOTSAVED2 6 =YR4 ...#SKI XJWP4 9 =YY= ... LDX 7 AWORK1(2) 8 =_5G ... BNZ 7 XLAB2 3 =_K6 ... 7 ?24Q ... READAGAI 7 ?2JB ... NGN 7 1 6 ?2N? ...#SKI XJWP4 9 ?2S8 ... STO 7 AWORK1(2) 7 ?2Y5 ...#SKI XJWP4<1$1 9 ?342 ... LDX 5 AWORK3(2) 10 ?3HL ... BRN SAVESECOND 5 ?43= ...XLAB2 10 ?4GW ... MHUNTW 3,FILE,FRB 10 ?52G ... NAME 3,FILE,FWB 7 ?5G6 ... REPLACE 9 ?5_Q ... MFREEW FILE,FWB 9 ?6FB ... BRN UPLABEL 5 ?6_2 ...XFREEZE 10 ?7DL ... GEOERR 1,CANTFREZ 4 ?7Y= ...XBR 10 ?8CW ... GEOERR 1,BMSAVJOB 9 ?8D# ... FSHCODE B,XCODEB1 4 ?8DQ ...( 20 ?8F8 ...# THIS CODE IS USED IN THE SHARED FILESTORE SYSTEM BY THE 'B' 20 ?8FL ...# MACHINE TO COMPARE THE CONTENTS OF THE 'TEMPLATE' RECORD IN 20 ?8G4 ...# :SYSTEM.JOBLIST WITH THAT COMPILED IN THE SEGMENT. THE CODE 21 ?8GG ...# IS HERE BECAUSE THE TEMPLATE IS ALREADY COMPILED AND MAINTAINED 19 ?8GY ...# IN THIS SEGMENT AND THUS NO FURTHER CHANGES ARE NECESSARY 4 ?8HB ...# 21 ?8HS ...# THE CODE IS ENTERED FROM SETUP AFTER THE TRANSFER ROUTINES HAVE 15 ?8J= ...# ESTABLISHED THE LINK BETWEEN THE MACHINES 4 ?8JN ...# 4 ?8K6 ...XK10 4 ?8KJ ...# 20 ?8L2 ... OPENSYS (GEOERR),JOBLIST,READ [OPEN :SYSTEM.JOBLIST AND READ 16 ?8LD ... READ [THE FIRST RECORD 7 ?8LW ... CLOSETOP 4 ?8M# ...# 19 ?8MQ ... MHUNT 3,FILE,FRB [FIND THE RECORD BLOCK AND 20 ?8N8 ... LDX 7 RECORD(1) [GET TEMPLATE LENGTH FROM SEGMENT 4 ?8NL ...# 6 ?8P4 ...XCHECKTEMPL 21 ?8PG ... LDX 0 A1(3) [NOW COMPARE THE CONTENTS OF RECORD 21 ?8PY ... BXU 0 RECORD(1),XMISMATCH [WITH TEMPLATE IN SEGMENT; JIF ERROR 7 ?8QB ... ADN 1 1 18 ?8QS ... ADN 3 1 [CHECK WHOLE OF RECORD 10 ?8R= ... BCT 7 XCHECKTEMPL 18 ?8RN ... UPPLUS 1 [RECORD MATCHES UP OK!! 4 ?8S6 ...# 6 ?8SJ ...XMISMATCH 18 ?8T2 ... MONOUT FSHJLFORM [TELL OPS OF FORMAT ERROR 21 ?8TD ... UP [ERROR EXIT TO FAIL LINKING PROCESS 4 ?8TW ...# 5 ?8W# ...XCODEB1 4 ?8WQ ...) 4 ?8XG ...#END 6 ____ ...765437060001