(GIN Macro)
Defined in: MACROS LEF
Used in: LISTFILE867, LISTPARS867
#MHN ...[??? LFKEY SECT DEVT FGN 2 DOC #MRG #MAC LFKEY #N?6 # THIS MACRO CREATES A PAIR OF INDEX KEYS AND STORES THEM #NQQ # IN A GOUT/INFO.IT MUST ONLY BE ISSUED BY A CPA. #P=B # %A IF ABSENT THEN X2 MUST = FX2 #PQ2 # IF PRESENT THEN IS POINTER TO JOBLOCK #Q9L # %B MUST CONTAIN POINTER TO GOUT/INFO #QP= # ON EXIT X2=FX2 #R8W #STR %A,2 #RNG LDX 2 %A #S86 #STR %A #SMQ #SKI #T7B FJOCA 2 #TM2 LDX 0 JOBNUM(2) #W6L STO 0 GJOBS(%B) #WL= STO 0 GOUTKEY1(%B) #X5W LDX 0 JURGE(2) #XKG ORX 0 GSIGN #Y56 ERX 0 GSIGN #YJQ BNZ 0 M1LFKEY #^4B LDX 0 JPRIV(2) #^J2 ANDN 0 JSISSUE *23L BZE 0 M2LFKEY *2H= LDN 0 #41 *32W BRN M1LFKEY *3GG M2LFKEY *426 LDN 0 #55 *4FQ M1LFKEY *4^B DCH 0 GOUTKEY1(%B) *5F2 STOZ GOUTKEY2(%B) *5YL LDX 2 FX2 *6D= #NOR