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

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

**Used in:** [[george:source:BACKROOM865|BACKROOM865]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:RENAME864|RENAME864]], [[george:source:USERSTRM867|USERSTRM867]]

<code - BASEFCB.mac.txt>
 =7F8 ...[??? BASEFCB SECT FILE FGN 20 DOC   
 =7P2    [   
 =7S7 ...#MAC  BASEFCB   
 =7X# ...[   
 =82F ...[    SET UP FOR SEARCH VIA FCB RING 
 =85L ...[    %A MODIFIER FOR FCB RING   
 =88R ...[    %B FILE,HALF,DIR OR WORK   
 =8?Y ...[    %C LABEL IF NO FCBS
 =8C5 ...[    %D SPARE ACC NULL TAKES X0 
 =8KC ...#STR  %D
 =8NJ ...#STR
 =8RP ...      BASEFCB %A,%B,%C,0,%E 
 =8WW ...#STR  %D
 =923 ...(   
 =98* ...#OPT  MBFCBFILE=1   
 =9?G ...#OPT  MBFCBDIR=2
 =9BM ...#OPT  MBFCBHALF=4   
 =9FS ...#OPT  MBFCBWORK=8   
 =9J^ ...#DEF  MBFCB=MBFCB%B 
 =9R? ...#SKI  MBFCB&7   
 =9WD ...(   
 =9^K ...                [NOT WORK FILE  
 ==4Q ...      %E
 ==7X ...      LDX   %D  B%BN
 ==?4 ...#SKI  MBFCB&4   
 ==B9 ...      BZE   %D  %C         [ZERO FCBS MAYBE FOR HALF ONLY   
 ==JH ...#SKI  MBFCB&1   
 ==MN ...      LDX   %A  BFILE   
 ==W2 ...#SKI  MBFCB&2   
 ==^7 ...      LDX   %A  BFILE   
 =?7F ...#SKI  MBFCB&4   
 =?=L ...      LDX   %A  BHALF   
 =?DY ...      ADN   %A  FCBRING 
 =?M= ...#SKI  MBFCB&5   
 =?QC ...(   
 =?TJ ...#STR  %E
 =?YP ...#SKI
 =#3W ...      LDX   %A  1(%A)   
 =#73 ...)   
 =#=8 ...)   
 =#DG ...#SKI  MBFCB&8   
 =#HM ...(   
 =#LS ...      LDN   %D  BWORKRING(%A)         [WORKFILE CASE
 =#P^ ...      BXE   %D  BWORKRING(%A),%C         [EMPTY 
 =#T6 ...      LDX   %D  BWORKRING(%A)   
 =#Y? ...      ADN   %D  FCBRING 
 =*3D ...      LDX   %A  %D  
 =*9Q ...)   
 =*D4 ...#FRE  MBFCB 
 =*H9 ...)   
 =*LB ...#NOR
</code>