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

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

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:CHANFILE8|CHANFILE8]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:COPYA867|COPYA867]], [[george:source:CREALEX864|CREALEX864]], [[george:source:DELETE864|DELETE864]], [[george:source:FILEMAP|FILEMAP]], [[george:source:OFFREL867|OFFREL867]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:READFILE84|READFILE84]], [[george:source:REWRITE864|REWRITE864]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:STEP864|STEP864]]

<code - FILENUMB.mac.txt>
 87^Y ...[??? FILENUMB SECT FILE FGN 20 DOC  
 889Q    #MAC  FILENUMB  
 88PB    [     PUTS NO. OF FILES OPEN IN %A  
 8992    [     ACT-POINTED TO BY %B, DEFAULT FX2 
 89NL    #ACC  %A
 8=8=    (   
 8=MW     LDN 0 1
 8?7G     STOZ %A
 8?M6    )   
 8#6Q    #ACC  %A
 8#LB    #SKI
 8*62          LDN   %A 0
 8*KL    #STR  %B
 8B5=     MOD LDN 2 FILERING,%B  
 8BJW    #STR  %B
 8C4G    #SKI
 8CJ6    (   
 8D3Q     SMO FX2
 8DHB     LDN 2 FILERING 
 8F32    )   
 8FGL     LDX 1 2
 8G2=    M1FILENUMB  
 8GFW     LDX 1 FPTRF(1) 
 8G^G     BXE 1 2,M2FILENUMB 
 8HF6    #ACC  %A
 8HYQ     ADS 0 %A   
 8JDB    #ACC  %A
 8JY2    #SKI
 8KCL          ADN   %A 1
 8KX=     BRN M1FILENUMB 
 8LBW    M2FILENUMB  
 8LWG     LDX 1 FX1  
 8MB6     LDX 2 FX2  
 8MTQ    #NOR
</code>