FINDWFL

(GIN Macro)

Used in: FFFNORM7, IFEXPAN867, TRAPCHEC867, TRAPWORK864, WFMOVE867, WORKFILE860

FINDWFL.mac.txt

 37*# ...[??? FINDWFL SECT FILE FGN 4 DOC
 37K6    #MAC  FINDWFL   
 3942          HUNT     2,FILE,FABSNB
 39HL          LDX   0  A1+1(2)  
 3=3=          ADN   0  1
 3=GW    #SKI  %A-3  
 3?2G          STO   3  GEN0 
 3?G6 ...      LDX   1  FX2  
 3?^Q ...      BASEFCB 1,WORK,M2FINDWFL,3         [SET UP FOR WORKRING SEARCH
 3#FB ...M1FINDWFL   
 3#^2 ...      LDX   2  FCOMM-FCBRING(1)         [IGNORE TO BE ERASED FILES  
 3*DL ...      ANDN   2  1   
 3*Y= ...      BNZ   2  M4FINDWFL
 3BCW ...      BCT   0  M4FINDWFL
 3BXG ...      SBN   1  FCBRING         [CORRECT LEVEL FOUND 
 3DW2    #SKI  %A-1  
 3F*L          LDX   %A 1
 3FT=          SETREP   OK   
 3G#W          BRN      M3FINDWFL
 3GG4 ...M4FINDWFL   
 3GM= ...      NEXTFCB 1,WORK,M1FINDWFL,3
 3GSG    M2FINDWFL   
 3H#6          SETREP   NOTFOUND 
 3HRQ    M3FINDWFL   
 3J?B    #SKI  %A-1  
 3JR2          LDX   1  FX1  
 3K=L    #SKI  %A-2  
 3KQ=          LDX   2  FX2  
 3L9W    #SKI  %A-3  
 3LPG          LDX   3  GEN0 
 3M96    #NOR