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