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

**Defined in:** [[george:source:HUNTMACS1|HUNTMACS1]]

**Used in:** [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:CIMOP867|CIMOP867]], [[george:source:FHLIST867|FHLIST867]], [[george:source:INMOP867|INMOP867]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:OFFREL867|OFFREL867]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SUICIDE864|SUICIDE864]]

<code - 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
</code>