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

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:COMPOST867|COMPOST867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FHDIRTWO864|FHDIRTWO864]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:INCEOT865|INCEOT865]]

<code - FCBFIND.mac.txt>
 J*74 ...[??? FCBFIND SECT FILE FGN 20 DOC   
 J*BW    #MAC  FCBFIND   
 JBB6 ...      HUNT 1,FILE,ENT   
 JBTQ ...#SKI  %A-6  
 JC*B ...      STO   6  %A   
 JCT2 ...      STO   2  GEN0         [CLEAR WORKING AREA 
 JD#L ...      STO   3  GEN1 
 JDS= ...      LDX   0  ELOC1(1) 
 JF?W ...      BASEFCB 3,FILE,MFCBFIND7,6
 JFRG ...MFCBFIND1   
 JG?6 ...      BXU   0  FLOC1-FCBRING(3),MFCBFIND2       [B IF LOCAL NAMES = 
 JGQQ ...      TESTNAMX 4,FLOC2-FCBRING(3),ELOC2(1),MFCBFIND4,2  
 JH=B ...      LDX   0  ELAN(1)         [TEST COMPLETE LOCAL NAME
 JHQ2 ...      BXE   0  FLAN-FCBRING(3),MFCBFIND5
 JJ9L ...MFCBFIND4   
 JJP= ...      LDX   0  ELOC1(1)     [CONTINUE SEARCH
 JK8W ...MFCBFIND2   
 JKNG ...      NEXTFCB 3,FILE,MFCBFIND1,6
 JL86 ...      BRN      MFCBFIND7         [FCBRING EXHAUSTED 
 JLMQ ...MFCBFIND5   
 JM7B ...      TOPFCB 2  
 JMM2 ...      LDX   0   FME1(2)         [TEST USER NAME FROM TOP FCB
 JN6L ...      BXU   0  FUSER1-FCBRING(3),MFCBFIND4  
 JNL= ...      LDX   0  FME2(2)  
 JP5W ...      BXU   0  FUSER2-FCBRING(3),MFCBFIND4  
 JPKG ...      LDX   0  FME3(2)  
 JQ56 ...      BXU   0  FUSER3-FCBRING(3),MFCBFIND4  
 JQJQ ...      SBN   3  FCBRING         [POINT BACK TO START OF FCB  
 JR4B ...      LDX   0  3         [X0 CONTAINS FCB POINTER   
 JRJ2 ...MFCBFIND7   
 JS3L ...      LDX   2  GEN0         [RESTORE ACCS   
 JSH= ...      LDX   3  GEN1 
 JT2W ...#SKI  %A-6  
 JTGG ...      LDX   6  %A   
 JW26 ...      STO   0  %A   
 JWFQ ...      BNG   0  %B     [B IF FCB NOT FOUND,0- LOCAL NAME 
 JYXW    #NOR
</code>