{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: KEYRECI)}}
====== KEYRECI ======
(GIN Macro)

**Defined in:** [[george:source:INDEX-MACROS|INDEX-MACROS]]

**Used in:** [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:INCMON865|INCMON865]], [[george:source:LOCATE84|LOCATE84]]

<code - KEYRECI.mac.txt>
 5YNN ...[??? KEYRECI SECT FILE FGN 9 DOC
 5YYG    #   
 5^D6    [   
 5^XQ    #MAC  KEYRECI   
 62CB    [ THIS MACRO CALCULATES THE KEY OF A GIVEN RECORD OF A FILE,BRANCHING   
 62X2    [ TO %D IF RECORD HAS NO KEY. PARAMETERS ARE AS FOR KEYREC MACRO EXCEPT 
 63BL    [ CONTAINS THE INDEXNUM OF THE FILE . ALSO X1 CANNOT BE USED AS A PARAME
 63W=    #STR  %B
 64*W          MHUNTW   1,%B,%C  
 64TG    #STR  %A,0  
 65*6          LDX   0  %A   
 65SQ          ADX   0  FX1  
 66#B          EXIT  0  1+0? 
 66S2          BRN      %D   
 67?L          BRN      M1KEYRECI
 67R=          BRN      M2KEYRECI
 68=W          BRN      M3KEYRECI
 68QG          BRN      M4KEYRECI
 69=6          BRN      M5KEYRECI
 69PQ          BRN      M6KEYRECI
 6=9B          BRN      M7KEYRECI
 6=P2    M99KEYRECI  
 6?8L          GEOERR   1,KEYREC?
 6?N=    M7KEYRECI   
 6#7W          XLOADKEY LDX,,A1+1,%B,%C  
 6#MG          BNG   0  %D   
 6*76          XLOADKEY LDN,1,JLJOBNAME+A1,%B,%C 
 6*LQ          BRN      M81KEYRECI   
 6B6B    M6KEYRECI   
 6BL2          XLOADKEY LDX,%E,JLJOBNO+A1,%B,%C  
 6C5L    #ACC  %E
 6CK=          BPZ   0  M80KEYRECI   
 6D4W    #ACC  %E
 6DJG    #SKI
 6F46          BPZ   %E M80KEYRECI   
 6FHQ          STOZ     %E   
 6G3B          BRN      M82KEYRECI   
 6GH2    M5KEYRECI   
 6H2L          XLOADKEY LDX,,GOUTYPE,%B,%C   
 6HG=          BXU   0  GSIGN,%D 
 6H^W          XLOADKEY LDX,%E,GOUTKEY1,%B,%C
 6JFG          BRN      M80KEYRECI   
 6J^6    M4KEYRECI   
 6KDQ          XLOADKEY LDX,%E,AINCNO,%B,%C  
 6KYB          BRN      M80KEYRECI   
 6LD2    M3KEYRECI   
 6LXL          XLOADKEY LDX,%E,A1+1,%B,%C
 6MC=    #ACC  %E
 6MWW    (   
 6NBG    M80KEYRECI  
 6NW6          STO   0  %E   
 6P*Q    )   
 6PTB          BRN      M82KEYRECI   
 6Q*2    M2KEYRECI   
 6QSL          XLOADKEY LDN,1,CUSER,%B,%C
 6R#=          BRN      M81KEYRECI   
 6RRW    M1KEYRECI   
 6S?G          XLOADKEY LDX,,ERES,%B,%C  
 6SR6          BNZ   0  %D   
 6T=Q          XLOADKEY LDX,,EREC,%B,%C  
 6TQB          SBN   0  FRDE 
 6W=2          BNZ   0  M99KEYRECI   
 6WPL          XLOADKEY LDN,1,ELOC1,%B,%C
 6X9=    M81KEYRECI  
 6XNW          SUM   0  3
 6Y8G    #STR  %E,0  
 6YN6          STO   0  %E   
 6^7Q    #ACC  %E
 6^MB    #SKI
 7272    M80KEYRECI  
 72LL    M82KEYRECI  
 736=    #NOR
</code>