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

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

**Used in:** [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:WHATPERA867|WHATPERA867]], [[george:source:WTSTAT867|WTSTAT867]]

<code - GFCBC.mac.txt>
 #8WY ...[??? GFCBC SECT FILE FGN 20 DOC 
 #96Q    #   
 #9LB    # THIS MACRO LOCATES AN FCB IN THE FILE RING BY ITS UNIQUE NUMBER & 
 #=62    # BRANCHES TO A GIVEN LABEL IF FCB NOT FOUND
 #=KL    #   
 #?5=    #MAC  GFCBC 
 #?#8 ...      LDXC  0  %A         [DIRECTORY OR TERM FILE   
 #?H6 ...      LDN   0  0
 #?Q4 ...      ERN   0  1         [DIR=0  FILE=1 
 #?^2 ...      STO   0  GEN0         [SMO MODIFIER =1 OR 0   
 ##7Y ...      BASEFCB %B,DIR,M2GFCBC,,SMO    GEN0   
 ##BW ...M1GFCBC 
 ##KS ...      SMO      CMIN64   
 ##SQ ...      BXE   %A  BACK2-FCBRING+64(%B),M3GFCBC         [COMPARE FCB NOS   
 #*3N ...      NEXTFCB %B,DIR,M1GFCBC,,SMO     GEN0         [TRY NEXT FCB
 #*=L ...M2GFCBC                     [FCB RING EXHAUSTED 
 #*FJ ...#STR  %C
 #*NG ...      BRN      %C   
 #*XD ...#STR  %C
 #B6B ...#STR
 #B*# ...      GEOERR 1,FCB MISS 
 #BJ= ...M3GFCBC 
 #BR8 ...      SBN   %B  FCBRING 
 #C2=    #NOR
</code>