FCBFIND

(GIN Macro)
Used in: ARCHIVE867, CLOSEAB863, COMPOST867, ERASEA867, FHDIRTWO864, HOWBIG867, INCEOT865
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