FINDACTNO

(GIN Macro)

Defined in: HUNTMACS1

Used in: BMJLSLAV864, CIMOP867, FHLIST867, INMOP867, LOADERR70, LOADFIN860, MOPCOMB865, OFFREL867, SAVEFILE860, SUICIDE864

FINDACTNO.mac.txt

 38#J ...[??? FINDACTN SECT CENT FGN 1 DOC   
 38JB    #   
 3942    #MAC  FINDACTNO                    [ACC %A:=ACTIVITY WHOSE NO IS [%B]   
 39HL          LDX   0  %B   
 3=3=          LDN   %A BACT 
 3=GW    MFINDACTNO1 
 3?2G          LDX   %A ACTRING+FPTR(%A) 
 3?G6          SBN   %A ACTRING  
 3?^Q    #STR  %C
 3#FB          BXE   %A CXAC,%C  
 3#^2          BXU   0  ACTNUM(%A),MFINDACTNO1   
 3*DL    #NOR