{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMJLCONV860)}}
====== BMJLCONV860 ======
(George Source)
**Macros used:** [[george:macro:ALTLEN|ALTLEN]], [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:JWCONVAD|JWCONVAD]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REPLACE|REPLACE]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:STEP|STEP]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]
22FL ...#OPT K0BMJLCONV=0
22^= ...#LIS K0BMJLCONV
23DW ...#SEG BMJLCONV [CENT
23YG ... 8HBMJLCONV
24D6 ...# THIS SEGMENT PERFORMS CONVERSION FOR JOBLIST RECORDS.
24XQ ...#
25CB ...# K1 : CONVERTS TEMPLATE RECORD
25X2 ...# K2 : CONVERTS JOB RECORD
26BL ... SEGENTRY K1BMJLCONV,XK1
26W= ... SEGENTRY K2BMJLCONV,XK2
27*W ...#
27TG ...XK1
28*6 ... LDN 7 0 [INITIALISE MARKER WORD
28SQ ... STEP
29#B ... MHUNTW 1,ADATA,CSTORE
29S2 ... ADN 1 A1
2=?L ... LDXC 0 2(1)
2=R= ... BCS £
2?=W ... SBX 0 0(1)
2?QG ... STO 0 JOBDATASIZE
2#=6 ... BZE 3 UP1 [J IF FILE EMPTY
2#PQ ... LDX 0 1+JLVERSION-A1(1) [VERSION OF NEW TEMPLATE
2*9B ... SBX 0 JLVERSION-A1(3)
2*P2 ... BZE 0 MJL1 [J IF VERSIONS THE SAME
2B8L ... LDCT 7 #410
2BN= ... SBN 0 1
2C7W ... BZE 0 MJLREAD [J IF 850 TO 860
2CMG ... GEOERR 0,2 JUMPS!
2D76 ...MJLREAD
2DLQ ... READAGAIN
2F6B ... MHUNTW 3,FILE,FRB
2FL2 ... LDX 6 ALOGLEN(3)
2G5L ... ADN 6 1
2GK= ... ALTLEN 3,6 [INCREASE LENGTH BY 1 WORD
2H4W ... MHUNTW 3,FILE,FRB
2HJG ... ADN 3 A1
2J46 ... DEX 6 0(3)
2JHQ ... SBN 6 JLFAX-A1
2K3B ...MJL2 SMO 6
2KH2 ... LDX 0 JLFAX-2-A1(3)
2L2L ... SMO 6
2LG= ... STO 0 JLFAX-1-A1(3) [MOVE END OF RECORD DOWN
2L^W ... BCT 6 MJL2
2MFG ...XVERS MHUNTW 1,ADATA,CSTORE
2M^6 ... ADN 1 A1
2NDQ ... LDX 0 1+JLVERSION-A1(1)
2NYB ... STO 0 JLVERSION-A1(3) [WRITE NEW VERSION INTO RECORD
2PD2 ...MJL1 LDX 4 1+JLFAX+17-A1(1)
2PXL ... ANDX 4 GSIGN
2QC= ... LDX 5 JLFAX+17-A1(3)
2QWW ... ANDX 5 GSIGN
2RBG ... BXE 4 5,MJL3 [J IF NO NEEDS FORMAT CHANGE
2RW6 ... LDCT 0 #400
2S*Q ... ERS 0 JLFAX+17-A1(3)
2STB ... SRL 4 1
2T*2 ... SRL 5 2
2TSL ... ORX 7 4 [B1=> NEWNEEDS ON
2W#= ... ORX 7 5 [B2=> NEWNEEDS OFF
2WRW ...MJL3 LDX 4 1(1)
2X?G ... BXL 4 0(3),MJL4
2XR6 ... LDX 4 0(3) [GET MINIMUM OF 2 LENGTHS
2Y=Q ...MJL4 SBN 4 JLFAX+1-A1
2YQB ...MJL7 SMO 4
2^=2 ... LDX 0 JLFAX+1-A1-1(3)
2^PL ... SMO 4
329= ... SBX 0 1+JLFAX+1-A1-1(1)
32NW ... BZE 0 MJL5
338G ... BPZ 0 MJL7A
33N6 ... NGX 0 0
347Q ...MJL7A SBN 0 16
34MB ... BZE 0 MJL5
3572 ... BPZ 7 MJL10
35LL ... SBN 3 A1
366= ... FREECORE 3
36KW ...MJL10 LDN 7 0
375G ... BRN MJL6 [J TO REPLACE TEMPLATE AND DELETE ENT
37K6 ...MJL5 BCT 4 MJL7
384Q ... LDX 4 1+JLSTATPTR-A1(1)
38JB ... SBX 4 JLSTATPTR-A1(3)
3942 ... LDCT 0 #300
39HL ... ANDX 0 7
3=3= ... BZE 0 MJL5A
3=GW ... ADN 4 16
3?2G ... SLL 0 1
3?G6 ... BNG 0 MJL5A
3?^Q ... SBN 4 32
3#FB ...MJL5A BPZ 4 MJL8
3#^2 ... LDCT 0 #040
3*DL ... ORX 7 0 [TO INDICATE LESS DATA IN NEW
3*Y= ... NGX 4 4
3BCW ...MJL8 DEX 4 7 [DIFFERENCE IN LENGTH-SUBSEQUENT RECS
3BXG ... BPZ 7 MJL9
3CC6 ... SBN 3 A1
3CWQ ... FREECORE 3
3DBB ...MJL9 BZE 7 MJLEND
3DW2 ...MJL6 MHUNTW 1,ADATA,CSTORE
3F*L ... ADN 1 A1
3FT= ... LDX 3 1(1)
3G#W ... SETUPCOR 3,2,FILE,FWB
3GSG ... MHUNTW 1,ADATA,CSTORE
3H#6 ... ADN 1 A1
3HRQ ... LDN 4 1(1)
3J?B ... LDN 5 A1(2)
3JR2 ... MOVE 4 0(3)
3K=L ... REPLACE
3KQ= ... MFREEW FILE,FWB
3L9W ... BZE 7 UP
3LPG ...MJLEND
3M96 ... STO 7 ACOMMUNE1(2)
3MNQ ... LDN 3 2
3N8B ...UPPLUS
3NN2 ... MFREEW ADATA,CSTORE
3P7L ... UPPLUS 0(3)
3PM= ...UP LDN 3 0
3Q6W ... BRN UPPLUS
3QLG ...UP1 LDN 3 1
3R66 ... BRN UPPLUS
3RKQ ...#
3S5B ...XK2
3SK2 ... LDX 7 ACOMMUNE1(2)
3T4L ... SMO JOBDATASIZE
3TJ= ... LDN 6 JLRESTPTR
3W3W ... JWCONVAD 6,7,LATER
3WHG ... STO 6 ACOMMUNE1(2)
3X36 ... MHUNTW 3,FILE,FRB
3XGQ ... BPZ 7 XJL1 [J IF NO ISSUE CONVERSION
3Y2B ... LDEX 4 7
3YG2 ... LDCT 0 #040
3Y^L ... ANDX 0 7
3^F= ... BNZ 0 XJL2 [JIF LESS FACS IN NEW FORMAT
3^YW ... NGX 4 4
42DG ...XJL2 ADX 4 JOBDATASIZE
42Y6 ... LDCT 0 #300
43CQ ... ANDX 0 7
43XB ... BZE 0 XJL2A
44C2 ... SBN 4 16
44WL ... SLL 0 1
45B= ... BPZ 0 XJL2A
45TW ... ADN 4 32
46*G ...XJL2A
46T6 ... LDX 6 ALOGLEN(3)
47#Q ... ADN 6 1
47SB ... ALTLEN 3,6
48#2 ... MHUNTW 3,FILE,FRB
48RL ... DEX 6 A1(3)
49?= ... ADN 4 JLSTATX
49QW ... SBX 6 4
4==G ... SBN 6 1
4=Q6 ... ADX 3 4
4?9Q ...XJL3 SMO 6
4?PB ... LDX 0 A1-1(3)
4#92 ... SMO 6
4#NL ... STO 0 A1(3)
4*8= ... BCT 6 XJL3
4*MW ... SMO 6
4B7G ... STOZ A1(3)
4BM6 ... SBX 3 4
4C6Q ... LDN 0 1
4CLB ... ADS 0 ACOMMUNE1(2)
4D62 ...XJL1 LDCT 0 #300
4DKL ... ANDX 0 7
4F5= ... BZE 0 XJL4 [J IF NO NEWNEEDS CONVERSION
4FJW ... SLL 0 1
4G4G ... BPZ 0 XJL5 [J IF NEWNEEDS OFF
4GJ6 ... LDX 1 3
4H3Q ... LDN 4 64
4HHB ... LDN 5 0
4J32 ...XJL7 LDCH 0 JLPERIS+A1(1)
4JGL ... BZE 0 XJL6 [J IF NONE OF THIS TYPE
4K2= ... ADN 5 1
4KFW ...XJL6 BCHX 1 £
4K^G ... BCT 4 XJL7
4LF6 ... BZE 5 XJL8A
4LYQ ... ADN 5 1 [ADD 1 FOR ITEM HEADER
4MDB ... ADX 5 ALOGLEN(3)
4MY2 ... ALTLEN 3,5
4NCL ... MHUNTW 3,FILE,FRB
4NX= ... LDEX 4 A1(3) [ORIGINAL SIZE
4PBW ... DEX 5 A1(3)
4PWG ... SBX 5 4
4QB6 ... ORX 5 XJLDATA(1) [ADD ITEM NUMBER FOR NEEDS
4QTQ ... SMO 4
4R*B ... STO 5 A1(3)
4RT2 ... LDX 1 3
4S#L ... LDN 6 64
4SS= ... LDN 5 0
4T?W ...XJL9 LDCH 0 JLPERIS+A1(1)
4TRG ... BZE 0 XJL8 [J IF NONE OF THIS TYPE
4W?6 ... SMO 4
4WQQ ... STO 0 A1+1(3)
4X=B ... SMO 4
4XQ2 ... DCH 5 A1+1(3) [STORE TYPE IN TOP 6 BITS
4Y9L ... ADN 4 1
4YP= ...XJL8 ADN 5 1
4^8W ... BCHX 1 £
4^NG ... BCT 6 XJL9
5286 ...XJL8A LDN 4 JLPERIS+16+A1(3)
52MQ ... LDN 5 JLPERIS+A1(3)
537B ... LDEX 6 A1(3)
53M2 ... SMO 6
546L ... MOVE 4 512-JLPERIS-16 [MOVE BACK UP OVER FIXED NEEDS
54L= ... SBN 6 16
555W ... ALTLEN 3,6
55KG ... DEX 6 A1(3)
5656 ... LDN 0 16
56JQ ... SBS 0 ACOMMUNE1(2)
574B ... BRN XJL4
57J2 ...XJLDATA #00050000
583L ...XJL5 LDEX 4 A1(3)
58H= ... ADN 4 16
592W ... ALTLEN 3,4
59GG ... MHUNTW 3,FILE,FRB
5=26 ... DEX 4 A1(3)
5=FQ ... SBN 4 JLPERIS+16
5=^B ...XJL10 SMO 4
5?F2 ... LDX 0 A1-1+JLPERIS(3)
5?YL ... SMO 4
5#D= ... STO 0 A1-1+JLPERIS+16(3)
5#XW ... BCT 4 XJL10 [CREATE 16 WORD HOLE FOR FIXED NEEDS
5*CG ... LDN 0 16
5*X6 ... ADS 0 ACOMMUNE1(2)
5BBQ ... STOZ A1+JLPERIS(3)
5BWB ... LDN 4 A1+JLPERIS(3)
5CB2 ... LDN 5 A1+JLPERIS+1(3)
5CTL ... MOVE 4 15 [ZEROISE THE HOLE
5D*= ... SMO ACOMMUNE1(2)
5DSW ... LDX 4 A1(3)
5F#G ... BZE 4 XJL4 [ALL FINISHED IF NO VARIABLE ITEMS
5FS6 ... SMO ACOMMUNE1(2)
5G?Q ... LDN 4 JLRESTF-JLRESTPTR
5GRB ...XJL13 SMO 4
5H?2 ... LDX 5 A1(3)
5HQL ... LDX 6 5
5J== ... ANDX 6 HALFTOP
5JPW ... ERX 5 6
5K9G ... BXE 6 XJLDATA(1),XJL12 [J IF THIS IS NEEDS ITEM
5KP6 ... ADX 4 5
5L8Q ... BXL 4 ALOGLEN(3),XJL13 [LOOK AT NEXT ITM IF THEREIS ONE
5LNB ... BRN XJL4
5M82 ...XJL12 SBN 5 1
5MML ... BZE 5 XJL14 [J IF EMPTY ITEM
5N7= ... LDX 1 3
5NLW ...XJL15 SMO 4
5P6G ... LDCH 2 A1+1(1)
5PL6 ... SMO 4
5Q5Q ... LDX 0 A1+1(1)
5QKB ... ANDN 0 #77
5R52 ... SRC 2 2
5RJL ... SMO 3
5S4= ... DCH 0 A1+JLPERIS(2)
5SHW ... ADN 1 1
5T3G ... BCT 5 XJL15
5TH6 ...XJL14 LDX 5 4 [NOW REMOVE NEEDS ITEM
5W2Q ... SMO 5
5WGB ... LDX 4 A1(3)
5X22 ... ANDN 4 #7777
5XFL ... ADX 4 5
5X^= ... LDX 1 ALOGLEN(3)
5YDW ... SBX 1 4 [NUMBER OF WORDS TO MOVE
5YYG ... BZE 1 XJL4B
5^D6 ... ADN 4 A1(3)
5^XQ ... ADN 5 A1(3)
62CB ... MOVE 4 0(1)
62X2 ...XJL4B ADX 5 ALOGLEN(3)
63BL ... SBX 5 4
63W= ... ALTLEN 3,5
64*W ... DEX 5 A1(3)
64TG ...XJL4 LDEX 6 7
65*6 ... BZE 6 XJL16 [J IF SAME FACS
65SQ ... SLL 7 3
66#B ... BNG 7 XJL17 [J IFTO BE SHORTENED
66S2 ... LDX 4 ALOGLEN(3)
67?L ... ADX 4 6
67R= ... ADS 6 ACOMMUNE1(2)
68=W ... ALTLEN 3,4
68QG ... MHUNTW 3,FILE,FRB
69=6 ... DEX 4 A1(3)
69PQ ... LDX 5 4
6=9B ... SBX 5 6
6=P2 ... LDX 6 ALOGLEN(3)
6?8L ... SBN 6 JLSTAT
6?N= ... SBX 6 JOBDATASIZE
6#7W ...XJL18 SMO 5
6#MG ... LDX 0 A1-1(3)
6*76 ... SMO 4
6*LQ ... STO 0 A1-1(3)
6B6B ... SBN 4 1
6BL2 ... SBN 5 1
6C5L ... BCT 6 XJL18
6CK= ... SBX 4 5
6D4W ... SMO 5
6DJG ... STOZ A1(3)
6F46 ... SBN 4 1
6FHQ ... BZE 4 XJL16
6G3B ... ADN 5 A1(3)
6GH2 ... LDX 6 5
6H2L ... ADN 6 1
6HG= ... SMO 4
6H^W ... MOVE 5 0
6JFG ... BRN XJL16
6J^6 ...XJL17 LDN 5 JLSTAT+A1(3)
6KDQ ... ADX 5 JOBDATASIZE
6KYB ... LDX 4 5
6LD2 ... ADX 4 6
6LXL ... SBS 6 ACOMMUNE1(2)
6MC= ... LDX 1 ALOGLEN(3)
6MWW ... ADN 1 A1(3)
6NBG ... SBX 1 4
6NW6 ... MOVE 4 0(1) [CLOSE UP FAC TAB
6P*Q ... LDX 4 ALOGLEN(3)
6PTB ... SBX 4 6
6Q*2 ... ALTLEN 3,4
6QSL ... DEX 4 A1(3)
6R#= ...XJL16 LDX 1 ACOMMUNE1(2)
6RRW ... LDN 4 JLRESTF-JLRESTPTR(1)
6S?G ... LDN 5 0
6SR6 ... BXE 4 ALOGLEN(3),XJL19
6T=Q ... LDX 5 4
6TQB ...XJL19
6W=2 ... SMO 1
6WPL ... STO 5 A1(3)
6X9= ... UP
6XNW ...#
6Y8G ...#END
^^^^ ...076133460006