{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: INCRECUBS)}}
====== INCRECUBS ======
(GIN Macro)
**Defined in:** [[george:source:LOBS-MACROS|LOBS-MACROS]]
**Used in:** [[george:source:CREATE867|CREATE867]], [[george:source:INSERTBL6|INSERTBL6]], [[george:source:USEROPEN867|USEROPEN867]]
229S ...[??? INCRECUB SECT FILE FGN 5 DOC
22FL [
29S2 #MAC INCRECUBS
2=3S ...# START OF CODE FOR %D NULL
2=?L #STR %D
2=R= #SKI
2?=W (
2?QG #STR %C
2#=6 #SKI
2#PQ (
2*9B #STR NOTOPEN,%B
2*P2 #SKI
2B8L (
2BN= ! ILLEGAL COMBINATION OF PARAMETERS !
2C7W #EXIT
2CMG )
2D76 )
2DLQ #STR FORCED,%A
2F6B #SKI
2FL2 #DEF M6INCRECUBS=1
2G5L #STR ANSWER,%A
2GK= #SKI
2H4W #DEF M6INCRECUBS=1
2HJG #OPT M6INCRECUBS=0
2HS# ...# START OF CODE FOR %A FORCED OR ANSWER & %D NULL
2J46 #SKI M6INCRECUBS
2JHQ (
2JRJ ...# START OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL
2K3B #STR NOTOPEN,%B
2KH2 (
2L2L #STR %C
2LG= (
2L^W #STR 0,%C
2MFG LDX 0 %C
2M^6 #STR %B
2NDQ (
2NYB #STR 1,%B
2PD2 LDX 1 %B
2PXL )
2QC= #STR %B
2QWW #SKI
2RBG LDN 1 0
2RW6 LDX 2 FX2
2S*Q STO 0 ACOMMUNE1(2)
2STB STO 1 ACOMMUNE2(2)
2T*2 )
2TSL #STR %C
2W#= #SKI
2WRW LDX 2 FX2
2X?G SFSTACK %B,1
2XR6 SETREP2 OK
2YQB #STR %C
2^=2 ... JMBS M4INCRECUBS,1,BACOMM,BACLEAN [J IF FILE OPEN COMMUNALLY
2^PL ... JBC M1INCRECUBS,1,BACUBS [J IF PUBLIC
329= ...#STR %C
32NW ... LDX 1 ACOMMUNE1(2) [X1=INCREASE
34MB LDX 0 JOBNO(2)
3572 LDN 2 BJOBQ
35LL M2INCRECUBS
366= LDX 2 FPTR(2)
36KW ... BXE 2 CXJO,(GEOERR)
375G BXU 0 JOBNUM(2),M2INCRECUBS
37K6 #STR %C
384Q #SKI
38JB ...(
3942 PSTAC 1,1
39HL BFCBX 1,1
3=3= LDX 1 FBLMOD(1)
3=GW SBN 1 FBLKS-A1
3?2G )
3?G6 ADS 1 CUBS(2)
3?^Q #STR FORCED,%A
3#FB (
3#^2 LDX 0 AMBS(2)
3*DL SBX 0 CUBS(2)
3*Y= BPZ 0 M3INCRECUBS
3BCW SETREP GLUTTON
3BXG SBS 1 CUBS(2)
3CC6 BRN M1INCRECUBS
3CWQ M3INCRECUBS
3DBB )
3DW2 LDX 0 CUBS(2)
3F*L BXL 0 GUBS(2),M1INCRECUBS
3FT= STO 0 GUBS(2)
3G#W #STR %C
3GSG (
3H#6 BRN M1INCRECUBS
3HRQ M4INCRECUBS
3J?B #STR FORCED,%A
3JR2 DOWN INCRCUBS,33
3K=L #STR ANSWER,%A
3KQ= DOWN INCRCUBS,32
3L9W )
3LPG M1INCRECUBS
3M96 LDX 1 FX1 [NEEDS MODIFYING
3MNQ LDX 2 FX2
3N8B #FRE M6INCRECUBS
3NN2 #EXIT
3P7L )
3PCD ...# END OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL
3PM= #STR 1,%C
3Q6W LDX 1 %C
3QLG LDX 2 FX2
3R66 SETREP2 OK
3RKQ LDX 0 JOBNO(2)
3S5B LDN 2 BJOBQ
3SK2 M2INCRECUBS
3T4L LDX 2 FPTR(2)
3TJ= ... BXE 2 CXJO,(GEOERR)
3W3W BXU 0 JOBNUM(2),M2INCRECUBS
3WHG ADS 1 CUBS(2)
3X36 #STR FORCED,%A
3XGQ (
3Y2B LDX 0 AMBS(2)
3YG2 SBX 0 CUBS(2)
3Y^L BPZ 0 M3INCRECUBS
3^F= SETREP GLUTTON
3^YW SBS 1 CUBS(2)
42DG BRN M1INCRECUBS
42Y6 M3INCRECUBS
43CQ )
43XB LDX 0 CUBS(2)
44C2 BXL 0 GUBS(2),M1INCRECUBS
44WL STO 0 GUBS(2)
45B= M1INCRECUBS
45TW LDX 1 FX1
46*G LDX 2 FX2 [NEEDS MODIFYING
46T6 #FRE M6INCRECUBS
47#Q #EXIT
47SB )
4848 ...# END OF CODE FOR %A FORCED OR ANSWER & %D NULL
48#2 #STR %C
48RL (
49?= #STR 0,%C
49QW LDX 0 %C
4==G )
4=Q6 #STR %C
4?9Q #SKI
4?PB LDCT 0 #400
4#92 #STR %B
4#NL #SKI
4*8= LDN 1 0
4*MW #STR %B
4B7G (
4BM6 #STR NOTOPEN,%B
4C6Q (
4CLB #STR 1,%B
4D62 LDX 1 %B
4DKL )
4F5= #STR NOTOPEN,%B
4FJW #SKI
4G4G #DEF M5INCRECUBS=1
4GJ6 )
4H3Q #OPT M5INCRECUBS=0
4HHB LDX 2 FX2
4J32 STO 0 ACOMMUNE1(2)
4JGL #SKI M5INCRECUBS
4K2= DOWN INCRCUBS,31
4KFW #SKI M5INCRECUBS<1$1
4K^G (
4LF6 STO 1 ACOMMUNE2(2)
4LYQ DOWN INCRCUBS,3
4MDB )
4MY2 BRN %A
4NCL #FRE M5INCRECUBS
4NX= #FRE M6INCRECUBS
4PBW #EXIT
4PWG )
4Q6# ...# END OF CODE FOR %D NULL
4QB6 #STR FORCED,%A
4QTQ #SKI
4R*B (
4RT2 #STR NOTOPEN,%B
4S#L #SKI
4SS= (
4T?W #STR 1,%C
4TRG LDX 1 %C
4W?6 MOD LDX 0 JOBNO,%D
4WQQ LDX 2 FX2
4X=B SETREP2 OK
4XQ2 LDN 2 BJOBQ
4Y9L M2INCRECUBS
4YP= LDX 2 FPTR(2)
4^8W ... BXE 2 CXJO,(GEOERR)
4^NG BXU 0 JOBNUM(2),M2INCRECUBS
5286 ADS 1 CUBS(2)
52MQ LDX 0 CUBS(2)
537B BXL 0 GUBS(2),M1INCRECUBS
53M2 STO 0 GUBS(2)
546L M1INCRECUBS
54L= LDX 1 FX1
555W LDX 2 FX2
55KG #EXIT
5656 )
56JQ )
574B ! UNEXPECTED COMBINATION OF PARAMETERS !
57J2 #NOR