(GIN Macro)
Defined in: INDEX-MACROS
Used in: BMINDEX866, DELETE864, INDEX85, INSERT6, REWRITE864
3QBN ...[??? KEYREC SECT FILE FGN 9 DOC 3QLG #MAC KEYREC 3R66 [ 3RKQ [ PARAMETERS 3S5B [ 3SK2 [ %A POINTS TO THE FCB OF THE FILE TO WHICH THE RECORD BELONGS 3T4L [ %B (OPTIONAL) IS THE TYPE OF THE CORE BLOCK CONTAINING THE 3TJ= [ RECORD 3W3W [ %C IF %B GIVEN - SUBTYPE OF ABOVE BLOCK 3WHG [ IF %B ABSENT - POINTS TO FRH OF THE RECORD 3X36 [ %D LABEL TO BRANCH TO IF(1) FILE NOT INDEXED 3XGQ [ (2) RECORD NOT KEYED 3Y2B [ %E (OPTIONAL) IS A LOCATION TO STORE THE KEY IN. 3YG2 [ 3Y^L #STR %B 3^F= ( 3^YW #STR 1,%E 42DG STO 1 GEN0 42Y6 #STR 1,%E 43CQ #SKI 43XB ( 44C2 #STR 1,%A 44WL #SKI 45B= ( 45TW STO 1 GEN0 46*G ) 46T6 ) 47#Q #DEF M77BEYREC=0 47SB ) 48#2 #OPT M77BEYREC=1 48RL #SKI M77BEYREC 49?= ( 49QW #STR %E,1 4==G ( 4=Q6 STO 1 GEN0 4?9Q #FRE M77BEYREC 4?PB #OPT M77BEYREC=0 4#92 ) 4#NL ) 4*8= #STR %B 4*MW ( 4B7G MHUNTW 1,%B,%C 4BM6 #STR %A,1 4C6Q #SKI 4CLB ( 4D62 SMO GEN0 4DKL LDX 0 FINFC 4F5= ) 4FJW ) 4G4G #STR %B 4GJ6 #STR %A,1 4H3Q LDX 0 FINFC(%A) 4HHB ANDN 0 #77 4J32 ADX 0 FX1 4JGL EXIT 0 1+0? 4K2= BRN %D 4KFW BRN M1KEYREC 4K^G BRN M2KEYREC 4LF6 BRN M3KEYREC 4LYQ BRN M4KEYREC 4MDB BRN M5KEYREC 4MY2 BRN M6KEYREC 4NCL BRN M7KEYREC 4NX= M99KEYREC 4PBW GEOERR 1,KEYREC? 4PWG #STR %E 4QB6 #SKI 4QTQ ( 4R*B M7KEYREC 4RT2 XLOADKEY LDX,,A1+1,%B,%C 4S#L BNG 0 %D 4SS= BRN M80KEYREC 4T?W M5KEYREC 4TRG XLOADKEY LDX,,GOUTYPE,%B,%C 4W?6 BXU 0 GSIGN,%D 4WQQ BRN M80KEYREC 4X=B M1KEYREC 4XQ2 XLOADKEY LDX,,ERES,%B,%C 4Y9L BNZ 0 %D 4YP= XLOADKEY LDX,,EREC,%B,%C 4^8W SBN 0 FRDE 4^NG BNZ 0 M99KEYREC 5286 M80KEYREC 52MQ M2KEYREC 537B M3KEYREC 53M2 M4KEYREC 546L M6KEYREC 54L= #SKI M77BEYREC$1 555W LDX 1 GEN0 55KG ) 5656 #STR %E 56JQ ( 574B M7KEYREC 57J2 XLOADKEY LDX,,A1+1,%B,%C 583L BNG 0 %D 58H= XLOADKEY LDN,1,JLJOBNAME+A1,%B,%C 592W BRN M81KEYREC 59GG M6KEYREC 5=26 XLOADKEY LDX,%E,JLJOBNO+A1,%B,%C 5=FQ #ACC %E 5=^B BPZ 0 M80KEYREC 5?F2 #ACC %E 5?YL #SKI 5#D= BPZ %E M80KEYREC 5#XW STOZ %E 5*CG BRN M82KEYREC 5*X6 M5KEYREC 5BBQ XLOADKEY LDX,,GOUTYPE,%B,%C 5BWB BXU 0 GSIGN,%D 5CB2 XLOADKEY LDX,%E,GOUTKEY1,%B,%C 5CTL BRN M80KEYREC 5D*= M4KEYREC 5DSW XLOADKEY LDX,%E,AINCNO,%B,%C 5F#G BRN M80KEYREC 5FS6 M3KEYREC 5G?Q XLOADKEY LDX,%E,A1+1,%B,%C 5GRB #ACC %E 5H?2 ( 5HQL M80KEYREC 5J== STO 0 %E 5JPW ) 5K9G BRN M82KEYREC 5KP6 M2KEYREC 5L8Q XLOADKEY LDN,1,CUSER,%B,%C 5LNB BRN M81KEYREC 5M82 M1KEYREC 5MML XLOADKEY LDX,,ERES,%B,%C 5N7= BNZ 0 %D 5NLW XLOADKEY LDX,,EREC,%B,%C 5P6G SBN 0 FRDE 5PL6 BNZ 0 M99KEYREC 5Q5Q XLOADKEY LDN,1,ELOC1,%B,%C 5QKB M81KEYREC 5R52 SUM 0 3 5RJL #STR %E,0 5S4= STO 0 %E 5SHW #ACC %E 5T3G #SKI 5TH6 M80KEYREC 5W2Q M82KEYREC 5WGB #STR %E,1 5X22 LDX 1 GEN0 5XFL ) 5X^= #FRE M77BEYREC 5YDW #NOR