{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: KEYREC)}}
====== KEYREC ======
(GIN Macro)
**Defined in:** [[george:source:INDEX-MACROS|INDEX-MACROS]]
**Used in:** [[george:source:BMINDEX866|BMINDEX866]], [[george:source:DELETE864|DELETE864]], [[george:source:INDEX85|INDEX85]], [[george:source:INSERT6|INSERT6]], [[george:source:REWRITE864|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