{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DUMMYA867)}}
====== DUMMYA867 ======
(George Source)
**Macros used:** [[george:macro:COOR3|COOR3]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FINDPEREC|FINDPEREC]], [[george:macro:GROPEREC|GROPEREC]], [[george:macro:JANON|JANON]], [[george:macro:JENVNOT|JENVNOT]], [[george:macro:JPROP|JPROP]], [[george:macro:JSWOUT|JSWOUT]], [[george:macro:JSWOVER|JSWOVER]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LTYPE|LTYPE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]
22FL #SEG DUMMYA
22^= #
23DW #
23YG #OPT K0DUMMYA=0
24D6 #LIS K0DUMMYA>K0ALLGEO
24XQ 8HDUMMYA
25CB #
25X2 #
26BL #
26W= #
27*W #
27TG #
28*6 SEGENTRY K1DUMMYA,X1DUMMYA
28SQ #
29#B #
29S2 TDMNEM 4HTR
2=?L 4HTP
2=R= 4HLP
2?=W 4HCR
2?QG 4HCP
2#=6 4HMC
2#PQ 4HGP
2*9B 4HED
2*P2 4HFD
2B8L 4H
2BN= TDTYPE +0
2C7W +1
2CMG +2
2D76 +3
2DLQ +4
2F6B +5
2FL2 +20
2G5L +26
2GK= +26
2H4W 4H
2HJG X26 +26
2J46 X512 +512
2JHQ XED 4HED
2K3B XFD 4HFD
2KH2 #
2L2L ZJINVDMN +JINVDMN
2LG= ZJNOTTYPE +JNOTTYPE
2L^W #
2MFG #
2M^6 X1DUMMYA
2NDQ LDX 0 ACOMMUNE1(2)
2NYB STO 0 AWORK1(2)
2PD2 MHUNT 3,CPB,CUNI
2PXL CALL 0 XGETMN
2QC= BRN SDMNUP1
2QWW CALL 0 XVALMN
2RBG BRN NDMN
2RW6 SDEVMN
2S*Q #
2STB CALL 0 XCONMN
2T*2 LDX 2 7
2TSL CALL 0 ZCONV
2W#= BRN SDMNUP1
2WRW BZE 7 SDMNUP1
2X?G TXL 7 X512(1)
2XR6 BCC SDMNUP2
2Y=Q LDX 2 FX2
2YQB LDX 0 AWORK3(2)
2^=2 SLL 0 18
2^PL ORX 0 7
329= STO 0 AWORK3(2)
32NW CALL 6 XFINDPEREC
338G BNG 3 SDMN1
33N6 LDX 6 AWORK3(2)
347Q SRL 6 18
34MB LTYPE 3,0
3572 TXU 0 6
35LL BCS NDTY
366= TXU 6 X26(1)
36KW BCS SDMN1
375G LDX 6 AWORK4(2)
37K6 JPROP 3,SDMNFD,SDMNFD
384Q LDX 1 FX1
38JB TXU 6 XED(1)
3942 BCS NDTY
39HL BRN SDMN1
3=3= SDMNFD
3=GW LDX 1 FX1
3?2G TXU 6 XFD(1)
3?G6 BCS NDTY
3?^Q SDMN1 STO 3 6
3#FB MHUNT 3,CPB,CUNI
3#^2 LDX 4 JPARNUM(3)
3*DL CALL 7 SETUP
3*Y= LDX 1 6
3BCW STO 1 JSCEP(3)
3BXG BNG 1 SDMN2
3CC6 LTYPE 1,0
3CWQ DCH 0 JSCEA(3)
3DBB LGEOG 1,0
3DW2 DEX 0 JSCEA(3)
3F*L BRN SDMN3
3FT= SDMN2 LDX 0 AWORK3(2)
3G#W STO 0 JSCEA(3)
3GSG SDMN3 LDX 0 AWORK4(2)
3H#6 SRL 0 12
3HRQ STO 0 JSCEB(3)
3J?B SDMNUP
3JR2 UP
3K=L SDMNUP1
3KQ= UPPLUS 1
3L9W SDMNUP2
3LPG UPPLUS 2
3M96 SDMNUP3
3MNQ UPPLUS 3
3N8B #
3NN2 NDMN
3P7L LDX 1 FX1
3PM= LDX 6 ZJINVDMN(1)
3Q6W BRN REPORTB
3QLG NDTY
3R66 LDX 1 FX1
3RKQ LDX 6 ZJNOTTYPE(1)
3S5B REPORTA
3SK2 LGEOG 3,4
3T4L OUTNUM 4,0
3TJ= REPORTB
3W3W MHUNT 3,CPB,CUNI
3WHG LDN 0 2
3X36 OUTPARAM 0,APARA,CPB,CUNI
3XGQ ERRORX 6
3Y2B BRN SDMNUP
3YG2 #
3Y^L XCONMN
3^F= #
3^YW #
42DG #
42Y6 LDN 1 0
43CQ LDN 6 0
43XB XCMN1 SMO FX1
44C2 LDX 4 TDMNEM(1)
44WL TXU 4 ACES
45B= BCC XCMN3
45TW TXU 4 AWORK4(2)
46*G BCC XCMN2
46T6 ADN 1 1
47#Q BRN XCMN1
47SB XCMN2 SMO FX1
48#2 LDX 6 TDTYPE(1)
48RL XCMN3 STO 6 AWORK3(2)
49?= LDX 1 FX1
49QW BRN (0)
4==G #
4=Q6 XGETMN
4?9Q #
4?PB #
4#92 #
4#NL #
4*8= #
4*MW #
4B7G LDX 4 ACES
4BM6 STO 4 AWORK4(2)
4C6Q LDX 5 ANUM(3)
4CLB ANDN 5 #7777
4D62 LDN 2 APARA(3)
4DKL SMO FX2
4F5= LDN 3 AWORK4
4FJW LDN 6 2
4G4G XGMN1 LDCH 4 0(2)
4GJ6 SBN 4 #41
4H3Q BNG 4 (0)
4HHB ADN 4 #41
4J32 DCH 4 0(3)
4JGL SBN 5 1
4K2= BCHX 2 £
4KFW BCHX 3 £
4K^G BCT 6 XGMN1
4LF6 EXIT 0 1
4LYQ #
4MDB XVALMN
4MY2 #
4NCL #
4NX= LDN 1 0
4PBW STO 2 7
4PWG LDX 2 FX2
4QB6 XVMN1 SMO FX1
4QTQ LDX 4 TDMNEM(1)
4R*B TXU 4 ACES
4RT2 BCC XVMN2
4S#L TXU 4 AWORK4(2)
4SS= BCC XVMN3
4T?W ADN 1 1
4TRG BRN XVMN1
4W?6 XVMN2 LDX 1 FX1
4WQQ EXIT 0 0
4X=B XVMN3 LDX 1 FX1
4XQ2 EXIT 0 1
4Y9L #
4YP= ZCONV
4^8W #
4^NG #
5286 #
52MQ LDN 6 0
537B LDN 7 0
53M2 NXCHAR
546L CDB 6 0(2)
54L= BCS (0)
555W BCHX 2 £
55KG BCT 5 NXCHAR
5656 EXIT 0 1
56JQ #
574B XFINDPEREC
57J2 #
583L #
58H= #
592W #UNS AV7900S
59GG FINDPEREC 3,APGEOG,7,,AV7900,XSWOUT
5=26 #UNS AV7900S
5=FQ #SKI
5=^B FINDPERE 3,APGEOG,7,,,XSWOUT
5?F2 BPZ 3 (6)
5?YL XFAN
5#D= JENVNOT XFAN1,CMESTAR
5#XW LDX 0 AWORK1(2)
5*CG ANDN 0 BDEVMN
5*X6 BZE 0 SDMNUP2
5BBQ LDX 0 AWORK4(2)
5BWB BZE 0 SDMNUP2
5CB2 BRN (6)
5CTL XFAN1
5D*= LDX 0 AWORK1(2)
5DSW ANDN 0 BGROPE
5F#G BZE 0 SDMNUP2
5FS6 JENVNOT SDMNUP2,CME
5G?Q LDX 0 GANON
5GRB BZE 0 SDMNUP2
5H?2 SBX 6 FX1
5HQL GROPEREC 3,APGEOG,7
5J== ADX 6 FX1
5JPW BNG 3 SDMNUP2
5K9G JSWOUT 3,XSWOUT
5KP6 BRN (6)
5L8Q XSWOUT
5LNB LDX 0 AWORK1(2)
5M82 ANDN 0 BINCOUT
5MML BNZ 0 XINOUT
5N7= NGN 3 4095
5NLW BRN SDMNUP3
5P6G XINOUT
5PL6 JENVNOT XINOUT1,CMESTAR
5Q5Q BRN (6)
5QKB XINOUT1
5R52 JSWOVER 3,XSWAIT
5RJL JANON 3,XFAN
5S4= BRN (6)
5SHW XSWAIT
5T3G SBX 6 FX1
5TH6 COOR3 #62
5W2Q ADX 6 FX1
5WGB BRN XINOUT
5X22 #
5XFL SETUP
5X^= #
5YDW #
5YYG #
5^D6 #
5^XQ SBX 7 FX1
62CB LDX 5 ALOGLEN(3)
62X2 ADN 5 JSCER-A1-2
63BL SETUPCOR 5,3,CPAR,JSCE
63W= MHUNT 2,CPB,CUNI
64*W LDX 5 ANUM(2)
64TG ANDN 5 #7777
65*6 SLL 4 12
65SQ ORX 4 5
66#B STO 4 JSCEQ(3)
66S2 STOZ JSCEA(3)
67?L STOZ JSCEB(3)
67R= STOZ JSCEC(3)
68=W NGN 0 1
68QG STO 0 JSCEK(3)
69=6 ADN 2 APARA
69PQ ADN 3 JSCER
6=9B ADN 5 3
6=P2 SRL 5 2
6?8L SMO 5
6?N= MOVE 2 0
6#7W SBN 3 JSCER
6#MG ADX 7 FX1
6*76 LDX 2 FX2
6*LQ BRN (7)
6B6B #
6BL2 #END
^^^^ ...467053440004