{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMJLSLAV864)}}
====== BMJLSLAV864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BC|BC]], [[george:macro:BMINDEX|BMINDEX]], [[george:macro:BS|BS]], [[george:macro:BWNZ|BWNZ]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CLOSEDIR|CLOSEDIR]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DELETE|DELETE]], [[george:macro:DOWN|DOWN]], [[george:macro:FINDACTNO|FINDACTNO]], [[george:macro:FON|FON]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETJOB|GETJOB]], [[george:macro:HUNTMISB|HUNTMISB]], [[george:macro:INSERT|INSERT]], [[george:macro:JBC|JBC]], [[george:macro:JBCC|JBCC]], [[george:macro:JBS|JBS]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:JMBAC|JMBAC]], [[george:macro:JMBS|JMBS]], [[george:macro:JWELLADD|JWELLADD]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:POP|POP]], [[george:macro:READAGAIN|READAGAIN]], [[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:SUICIDE|SUICIDE]], [[george:macro:TESTPRIV|TESTPRIV]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:TRACEIF|TRACEIF]], [[george:macro:VFREEW|VFREEW]], [[george:macro:VOP|VOP]], [[george:macro:WKPTABLE|WKPTABLE]]
22FL SEG BMJLSLAV,864,EDWARD MOON,BMAP
22^= SEGENTRY K1BMJLSLAV,Z1BMJLSLAV
23DW SEGENTRY K2BMJLSLAV,Z2BMJLSLAV
23YG WKPTAB WKPTABLE
24D6 MONEY #02777704
24XQ NGWORDS +GWORDS
25CB X4M #00010000
25X2 [
26BL [
26W= STEPREWRITE
27*W STEPREWRITE
27TG EXIT 5 0
28*6 [
28SQ [
29#B OPENRELBM
29S2 SBX 5 FX1
2=?L BMOPENRE XBR
2=R= ADX 5 FX1
2?=W EXIT 5 0
2?QG [
2#=6 NDEXCHEK
2#PQ SBX 5 FX1
2*9B BACKSPAC 1
2*P2 TOPFCB2 1
2B8L BS 1,BFCORE
2BN= BMINDEX 4
2C7W ADX 5 FX1
2CMG EXIT 5 0
2D76 [
2DLQ OPENDIR
2F6B SBX 5 FX1
2FL2 OPENDIR XBR,GENERAL,CAREFUL,QUERY
2G5L ADX 5 FX1
2GK= EXIT 5 0
2H4W [
2HJG XCHANGEAC
2J46 CHANGEAC 3
2JHQ EXIT 5 0
2K3B XFINDACTNO
2KH2 FINDACTNO 3,ACTPTRSYSJL(2)
2L2L EXIT 5 0
2LG= XGETJOB
2L^W SBX 5 FX1
2MFG GETJOB 6,SYSTEM
2M^6 ADX 5 FX1
2NDQ EXIT 5 0
2NYB XVOP
2PD2 LDX 3 ACTPTRSYSJL(2)
2PXL VOP 3,FTABWAIT
2QC= EXIT 5 0
2QWW XSTEPAGAIN
2RBG SBX 5 FX1
2RW6 STEPAGAIN
2S*Q ADX 5 FX1
2STB EXIT 5 0
2T*2 [
2TSL XBUDGETS
2W#= SBX 7 FX1
2WRW MHUNTW 1,FILE,FRB
2X?G JLADJUST 1
2XR6 LDN 4 1
2Y=Q ANDS 4 JLBUDGETS(1)
2YQB STOZ 5
2^=2 HUNTMISB 2,FI,FUTILITY
2^PL LDX 4 A1(2)
329= STOZ 3
32NW NEXTPRIV
338G ADN 2 A1+1
33N6 ADX 2 5 [POINTER TO NEXT PRIV BIT PATTERN
347Q LDX 0 0(2)
34MB BZE 0 NOPRIVHERE
3572 MHUNTW 1,FILE,ADICTENT
35LL TESTPRIV 0(2),1 [HAS THE USER THIS PRIV
366= BZE 0 NOPRIVHERE
36KW SMO FX1
375G LDX 6 WKPTAB+2(3)
37K6 MHUNTW 1,FILE,FRB
384Q ADN 1 A1
38JB ADX 1 JOBDATASIZE
3942 ORS 6 JLBUDGETS(1)
39HL NOPRIVHERE
3=3= SBN 4 1
3=GW BZE 4 NOMOREPRUPS [IF NO MORE PRIVS TO CHECK
3?2G ADN 3 3
3?G6 ADN 5 1
3?^Q HUNTMISB 2,FI,FUTILITY
3#FB BRN NEXTPRIV
3#^2 NOMOREPRUPS
3*DL MHUNTW 3,FILE,ADICTENT
3*Y= LDX 6 CNUMQ(3)
3BCW BZE 6 NOMOREBTS
3BXG NEXTBUDG
3CC6 LDX 4 CQUANT(3)
3CWQ LDX 1 FX1
3DBB TXU 4 MONEY(1)
3DW2 BCC THISISBRED
3F*L ANDX 4 NGWORDS(1)
3FT= ADX 3 4
3G#W SBN 6 1
3GSG BZE 6 NOMOREBTS
3H#6 BRN NEXTBUDG
3HRQ THISISBRED
3J?B LDX 4 CQUANT+2(3)
3JR2 SBX 4 CQUANT+3(3)
3K=L BPZ 4 NOHARDUP
3KQ= MHUNTW 3,FILE,FRB
3L9W JLADJUST 3
3LPG BS 3,JLBHARDUP
3M96 NOMOREBTS
3MNQ NOHARDUP
3N8B ADX 7 FX1
3NN2 EXIT 7 0
3P7L XREPLORINS
3PM= SBX 4 FX1
3Q6W LDX 6 AUSEJOBNO(2)
3QLG WAITOREPLAC
3R66 LDX 3 ACTPTRSYSJL(2)
3RKQ POP WAITOREPLAC,3,FTABWAIT
3S5B LDX 7 ACTNUM(2)
3SK2 MHUNTW 1,FILE,FWB
3T4L CHAIN 1,3
3TJ= CALL 5 XCHANGEAC
3W3W STO 7 ACTPTRSYSJL(2)
3WHG CALL 5 XGETJOB
3X36 ADX 4 FX1
3XGQ EXIT 4 0
3Y2B XSTEPSYSJL
3YG2 SBX 4 FX1
3Y^L LDX 6 AUSEJOBNO(2)
3^F= WAITOSTEP
3^YW LDX 3 ACTPTRSYSJL(2)
42DG POP WAITOSTEP,3,FTABWAIT
42Y6 LDX 7 ACTNUM(2)
43CQ CALL 5 XCHANGEAC
43XB STO 7 ACTPTRSYSJL(2)
44C2 CALL 5 XGETJOB
44WL CALL 5 XSTEPAGAIN
45B= LDX 6 3
45TW CALL 5 XFINDACTNO
46*G CALL 5 XCHANGEAC
46T6 CALL 5 XVOP
47#Q LDX 3 6
47SB ADX 4 FX1
48#2 EXIT 4 0
48RL XHUNTFLIST
49?= HUNTMISB 3,FI,FLIST
49QW EXIT 7 0
4==G Z1BMJLSLAV
4=Q6 SETNCORE 6,3,FILE,FLOCNB
4?9Q CALL 5 OPENDIR
4?PB TOPFCB2 3
4#92 JBS NOSET4ASTR,3,BFJOB4ASTR
4#NL MBS 3,BFJOB4ASTR,BFDIRUPDATE
4*8= NOSET4ASTR
4*MW MHUNTW 1,FILE,ENT
4B7G LDEX 0 ECOPS(1)
4BM6 BZE 0 NOBACKSPAC
4C6Q BACKSPACE
4CLB MHUNTW 1,FILE,ENT
4D62 NOBACKSPAC
4DKL #UNS AMTGR
4F5= BWNZ GINCTSN,NOTIFGR
4FJW TOPFCB2 3
4G4G JBS UJLUNAVAIL,3,BFPARTRES
4GJ6 #UNS AMTGR
4H3Q NOTIFGR
4HHB JBS UJLUNAVAIL,1,BEBM
4J32 LDX 4 ENUSE(1)
4JGL TRACEIF K6BMJLSLAV,99,199,4,UJLTRAP
4K2= LDEX 5 ECOPS(1)
4KFW TRACEIF K6BMJLSLAV,99,199,5,ECOPS
4K^G JBS UNCDEL,1,BEBMUWB
4LF6 BNZ 5 NOOFFDEL
4LYQ UNCDEL
4MDB ADX 4 5
4MY2 JBC NOTIND,1,BEINDEX
4NCL ADN 4 1
4NX= TRACEIF K6BMJLSLAV,99,199,4,INDEXR
4PBW NOTIND
4PWG DEX 4 AWORK4(2)
4QB6 TRACEIF K6BMJLSLAV,99,199,4,OJLREC
4QTQ FREECORE 1
4R*B BRN NOWDELOFFJL
4RT2 NOOFFDEL
4S#L ADN 4 2
4SS= DEX 4 AWORK4(2)
4T?W TRACEIF K6BMJLSLAV,99,199,4,JLREC
4TRG CALL 5 OPENRELBM
4W?6 MHUNTW 3,FILE,FABSNB
4WQQ NAME 3,FILE,FTAB
4X=B SETNCORE 10,2,FILE,FABSNB
4XQ2 LDN 4 INDEXUSERJ
4Y9L CALL 5 NDEXCHEK
4YCW ... TESTREP2 OK,NOTCOR [^ IF INDEXING OKAY
4YL6 ... CLOSETOP [CLOSE USER JOBLIST FILE
4YSB ... BRN NOWDELOFFJL [THEN ^ TO DELETE DIRECTORY ENTRY
4^2L ...NOTCOR
4^8W CLOSEDIR
4^NG BRN NEXJLENT
5286 NEXJLENTPRE
52MQ VFREEW JWELL,COPYSYS
537B CALL 5 XFINDACTNO
53M2 CALL 5 XCHANGEAC
546L CALL 5 XVOP
54L= SKIP ,3
555W NEXJLENT
55KG STEP
5656 BZE 3 NOWCLOSEUJL
56JQ LDX 6 JLJOBNO(3) [JOBNUMBER
574B STO 6 AUSEJOBNO(2)
57J2 ADX 3 JOBDATASIZE
583L SBX 3 AWORK3(2)
58H= JMBAC MOPJOB,3,JLBJB,JLBRJ
592W JBS MOPJOB,3,JLBSYSIS
59GG WAITFORSJL
5=26 LDX 3 ACTPTRSYSJL(2)
5=FQ POP WAITFORSJL,3,FTABWAIT
5=^B LDX 7 ACTNUM(2)
5?F2 CALL 5 XCHANGEAC
5?YL STO 7 ACTPTRSYSJL(2)
5#D= TRACEIF K6BMJLSLAV,99,199,6,UJLENT
5#XW CALL 5 XGETJOB
5*CG TESTRPN2 NOFILE,NOSTOZ
5*X6 TRACEIF K6BMJLSLAV,99,199,6,NOSJENT
5BBQ CALL 5 XFINDACTNO
5BWB CALL 5 XCHANGEAC
5CB2 CALL 5 XVOP
5CTL JBC MOPJOB,2,AW4RESTATUS
5D*= BS 2,AW4NEW
5DSW BRN XCHECKLOSE
5F#G NOSTOZ
5FS6 READAGAIN
5G?Q CALL 5 XFINDACTNO
5GRB MHUNTW 1,FILE,FRB
5H?2 CHAIN 1,3
5HQL CALL 5 XCHANGEAC
5J== CALL 5 XVOP
5JPW MHUNTW 3,FILE,FRB
5K9G JLADJUST 3
5KP6 SBX 3 AWORK3(2)
5L8Q BWNZ GINCTSN,XCHECKLOSE [FORGET ABOUT SAVED JOBS FI RESTORE
5LNB JBS XCHECKLOSE,3,JLBNOTCAND
5M82 JBS XCHECKLOSE,2,AW4PARTRES
5MML JBC XCHECKLOSE,2,AW4SAVCHEK [ IF NO #### FILE FOUND
5N7= DOWN BMSAVJOB,1
5NLW BRN THISSAVE [IF UP JOB SAVED - ELSE UPPLUS 1
5P6G SEGENTRY K50BMJLSLAV [FOR EMPTY WELL
5PL6 XCHECKLOSE
5Q5Q LDN 0 0
5QKB BNZ 0 MOPJOB
5R52 VFREEW FILE,FRB
5RJL SEGENTRY K55BMJLSLAV
5S4= NULL
5SHW NULL
5T3G NULL
5TH6 BRN TREATASWELL
5W2Q THISSAVE
5WGB LDX 6 AUSEJOBNO(2)
5X22 WAITOREAD
5XFL LDX 3 ACTPTRSYSJL(2)
5X^= POP WAITOREAD,3,FTABWAIT
5YDW LDX 7 ACTNUM(2)
5YYG CALL 5 XCHANGEAC
5^D6 STO 7 ACTPTRSYSJL(2)
5^XQ CALL 5 XGETJOB
62CB READAGAI
62X2 CALL 5 XFINDACTNO
63BL MHUNTW 1,FILE,FRB
63W= CHAIN 1,3
64*W CALL 5 XCHANGEAC
64TG CALL 5 XVOP
65*6 BS 2,AW4SAVED
65SQ BRN SAVEDFRB
66#B TREATASWELL
66S2 READAGAI
67?L SAVEDFRB
67R= MHUNTW 3,FILE,FRB
68=W #SKI JWPHASE4<1$1
68QG #UNS JWP4REVERT
69=6 LDX 5 AWORK2(2)
69PQ #SKI JWPHASE4<1$1
6=9B #UNS JWP4REVERT
6=P2 #SKI
6?8L LDX 5 AWORK3(2)
6?N= BZE 5 NONUJOBDATA
6#7W DOWN BMSAVJOB,9
6#MG NONUJOBDATA
6*76 MHUNTW 3,FILE,FRB [JOBLIST RECORD
6*LQ JLADJUST 3
6B6B BC 3,JLBFROZENNC [ CLEAR NON-CAND BIT
6BL2 JBC NOTNCFROZ,2,AW4FROZ [ J. IF DIR NOT FROZEN
6C5L JBS NOTNCFROZ,3,JLBFROZEN [ J. IF FROZEN QUAL GIVEN
6CK= BS 3,JLBFROZENNC [ ELSE MAKE NON-CAND.
6D4W NOTNCFROZ
6DJG JBCC WELLED,2,AW4SAVED
6F46 ADN 3 A1
6FHQ ADX 3 JOBDATASIZE
6G3B TRACEIF K6BMJLSLAV,99,199,6(3),SAVEDJ
6GH2 CALL 7 XBUDGETS
6H2L MHUNTW 3,FILE,FRB
6HG= NAME 3,FILE,FWB
6H^W JLADJUST 3
6JFG LDX 6 JLBUDGETS(3)
6J^6 CALL 5 XSTEPAGAIN
6KDQ SMO JOBDATASIZE
6KYB STO 6 JLBUDGETS(3)
6LD2 CALL 5 STEPREWRITE
6LXL MHUNTW 3,FILE,FWB
6MC= ADN 3 A1
6MWW BC 3,JLBCHECKED
6NBG CALL 4 XREPLORINS
6NW6 REPLACE
6P*Q MHUNTW 3,FILE,FWB
6PTB NAME 3,JWELL,COPYSYS
6Q*2 JWELLADD LIVE
6QSL BRN NEXJLENTPRE
6R#= WELLED
6RRW SKIP ,2
6S?G CALL 5 XSTEPAGAIN
6SR6 MHUNTW 2,FILE,FABSNB [TO OPENDIR THE JDF
6T=Q LDN 0 10
6TQB STO 0 A1(2)
6W=2 LDN 1 JDFDIR-A1(3)
6WPL ADN 2 A1+1
6X9= MOVE 1 6
6XNW LDN 0 1
6Y8G STO 0 6(2)
6YN6 ADN 2 7
6^7Q ADN 1 6
6^MB MOVE 1 2
7272 LDX 2 FX2
72LL JBS XBACK,2,AW4NEW
736= CALL 4 XSTEPSYSJL
73KW ADX 3 JOBDATASIZE
745G SBX 3 AWORK3(2)
74K6 JBC XBACK,3,JLBRUNNING
754Q CALL 5 XSTEPAGAIN
75JB JWWFUPDA 3
7642 CALL 5 STEPREWRITE
76HL XBACK
773= BACKSPACE
77GW BACKSPACE
782G CALL 5 OPENDIR
78G6 TESTRPN2 OK,UNOPENJDF
78^Q MHUNTW 1,FILE,ENT
79FB LDEX 0 ECOPS(1)
79^2 BZE 0 NBSPACE2
7=DL BACKSPACE
7=Y= MHUNTW 1,FILE,ENT
7?CW NBSPACE2
7?XG #UNS AMTGR
7#C6 BWNZ GINCTSN,NOTIFGRJD
7#WQ TOPFCB2 3
7*BB JBS NOJDF,3,BFPARTRES
7*W2 #UNS AMTGR
7B*L NOTIFGRJD
7BT= JMBAC NOTJDFOFF,1,BEBM,BEBMUWB
7C#W JMBS NOJDF,1,BEBMUWB,BEDUMP
7CSG LDX 0 EINC(1)
7D#6 BNZ 0 NOTJDFOFF
7DRQ NOJDF
7F?B FREECORE 1
7FR2 CLOSETOP
7G=L UNOPENJDF
7GQ= MFREEW FILE,FRB
7H9W BRN MOPJOB
7HPG NOTJDFOFF
7J96 FREECORE 1 [ENT BLOCK
7JNQ STEPAGAIN
7K8B LDN 0 1
7KN2 ADS 0 ESVCTN(3)
7L7L CALL 5 STEPREWRITE
7LM= CLOSETOP [THE JDF DIRECTORY
7M6W CALL 7 XBUDGETS
7MLG MHUNTW 3,FILE,FRB
7N66 NAME 3,FILE,FWB
7NKQ JLADJUST 3
7P5B LDX 2 FX2
7PK2 JBS RESTATYES,2,AW4RESTATUS
7Q4L JBC NONOOBIT,2,AW4NEW
7QJ= MBS 3,JLBBMAP,JLBNOTCAND,JLBBREAK
7R3W BRN NOGENBIT
7RHG NONOOBIT
7S36 CALL 4 XSTEPSYSJL
7SGQ ADX 3 JOBDATASIZE
7T2B SBX 3 AWORK3(2)
7TG2 JBC NOGENBIT,3,JLBRUNNING
7T^L MHUNTW 3,FILE,FWB
7WF= JLADJUST 3
7WYW MBS 3,JLBBMAP,JLBNOTCAND,JLBBREAK
7XDG BRN NOGENBIT
7XY6 RESTATYES
7YCQ MBS 3,JLBBMAP,JLBNOTCAND
7YXB BWNZ GINCTSN,NOBREAKBIT
7^C2 JBS NOBREAKBIT,2,AW4PARTRES
7^WL BS 3,JLBBREAK
82B= BRN NOGENBIT
82TW NOBREAKBIT
83*G JBC NOPARTBIT,2,AW4PARTRES
83T6 BS 3,JLBPARTRES
84#Q CALL 4 XSTEPSYSJL
84SB ADX 3 JOBDATASIZE
85#2 SBX 3 AWORK3(2)
85RL JBC NOGENBIT,3,JLBRUNNING
86?= MHUNTW 3,FILE,FWB
86QW JLADJUST 3
87=G BS 3,JLBBREAK
87Q6 BRN NOGENBIT
889Q NOPARTBIT
88PB MBS 3,JLBGENRES,JLBGRQUERY
8992 NOGENBIT
89NL JMBAC NOCANDID,3,JLBBMAP,JLBABAND,JLBHARDUP
8=8= BS 3,JLBNOTCAND
8=MW BRN NOCLEARCAND
8?7G NOCANDID
8?M6 BC 3,JLBNOTCAND
8#6Q NOCLEARCAND
8#LB REPLACE
8*62 MHUNTW 3,FILE,FWB
8*KL ADN 3 A1
8B5= JBCC NONEWBIT,2,AW4NEW
8BJW TRACEIF K6BMJLSLAV,99,199,AWORK4(2),NEWSJENT
8C4G BC 3,JLBNEW
8CJ6 CALL 4 XREPLORINS
8D3Q INSERT
8DHB BRN NOWJWELLAD
8F32 NORUNNING
8FGL NONEWBIT
8G2= BC 3,JLBCHECKED
8GFW TRACEIF K6BMJLSLAV,99,199,JLSTAT(3),CHECKED
8G^G CALL 4 XREPLORINS
8HF6 REPLACE
8HYQ NOWJWELLAD
8JDB MHUNTW 3,FILE,FWB
8JY2 NAME 3,JWELL,COPYSYS
8KCL JLADJUST 3
8KX= JBS NCAND,3,JLBNOTCAND
8LBW JWELLADD WELL
8LWG BRN NC1
8MB6 NCAND
8MTQ JWELLADD NCAND
8N*B NC1
8NT2 BRN NEXJLENTPRE
8P#L NOWCLOSEUJL
8PS= MFREEW FILE,ADICTENT
8Q?W REWIND [USERJOBLIST FILE
8QRG STEP
8R?6 BNZ 3 NOCLOSESHOR [NORMAL CLOSE AS NO ERASE
8RQQ TRACEIF K6BMJLSLAV,99,199,AWORK4(2),UJLERASE
8S=B ... MFREEW FILE,FTAB
8SQ2 ... CLOSE [CLOSE WILL ERASE EMPTY USER JOBLIST
8T9L ... BRN NEXTFUSENT [AND UPDATE DIRECTORY ENTRY
8^L= Z2BMJLSLAV
925W NOWDELOFFJL
92KG LDEX 3 AWORK4(2)
9356 LDN 7 1(3) [FOR NAME RECORD
93JQ BZE 3 VDELX
944B SKIP ,0(3) [TO END OF ENTRY
94J2 VDELX
953L DELETE [THE DIRECTORY ENTRY
95H= BCT 7 VDELX
962W CLOSETOP
96GG BRN NEXTFUSENT [ENTRY DELETED.LOOK FOR NEXT JLIST
9726 NOCLOSESHOR
97FQ MFREEW FILE,FTAB
97^B CLOSETOP [NOPMAL CLOSE.NO ERASE
98F2 BRN NEXTFUSENT [TO LOOK AT NEXT JOBLIST
98YL NOSJLENT
99D= JBS MAKENEWSJL,2,AW4RESTATUS
99XW SEGENTRY K56BMJLSLAV
9=CG MOPJOB
9=X6 VFREEW FILE,FRB
9?BQ TRACEIF K6BMJLSLAV,99,199,JLSTAT(3),UJLENDEL
9?WB SKIP ,3 [TO END OF USERJOBLIST ENTRY
9#B2 LDN 7 4
9#TL VDELJ
9**= DELETE
9*SW BCT 7 VDELJ
9B#G BRN NEXJLENT
9BS6 MAKENEWSJL
9C?Q BS 2,AW4NEW
9CRB BRN XCHECKLOSE
9D?2 NEXTFUSENT
9DQL CALL 7 XHUNTFLIST
9F== LDN 0 1
9FPW SBS 0 A1+1(3)
9G9G FON BMAPACT
9GP6 SUICIDE
9H8Q UJLUNAVAIL
9HNB ACROSS BMSAVJOB,8
9J82 XBR
9JML GEOERR 1,BMJLSLAV
9K7= [
9KLW MENDAREA BMAPGAP,K99BMJLSLAV
9L6G #END
^^^^ ...325336530002