KEYRECI
(GIN Macro)
Defined in: INDEX-MACROS
Used in: FHOBJIND860, INCMON865, LOCATE84
- 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