GFCBC

(GIN Macro)

Defined in: OPEN-MACROS

Used in: ORELMAIN867, RITEFAIL864, WHATPERA867, WTSTAT867

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