{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMSAVJOB864)}}
====== BMSAVJOB864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLENG|ALTLENG]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BC|BC]], [[george:macro:BS|BS]], [[george:macro:BSON|BSON]], [[george:macro:BXE|BXE]], [[george:macro:BXU|BXU]], [[george:macro:CLOSEDIR|CLOSEDIR]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CREATEB|CREATEB]], [[george:macro:DELETE|DELETE]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETJOB|GETJOB]], [[george:macro:INSERT|INSERT]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JLRECCONV|JLRECCONV]], [[george:macro:JLTEMPCONV|JLTEMPCONV]], [[george:macro:JLTEMPLATE|JLTEMPLATE]], [[george:macro:JWCONVAD|JWCONVAD]], [[george:macro:MBS|MBS]], [[george:macro:MFREE|MFREE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:NAME|NAME]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPACKX|OUTPACKX]], [[george:macro:POP|POP]], [[george:macro:READ|READ]], [[george:macro:REPLACE|REPLACE]], [[george:macro:REWIND|REWIND]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SKIP|SKIP]], [[george:macro:STEP|STEP]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:STEPREWRITE|STEPREWRITE]], [[george:macro:THAWSAVE|THAWSAVE]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:TRACEIF|TRACEIF]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VOP|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