NEXTFCB

(GIN Macro)

Used in: BACKROOM865, CLOSEALT864, OPENREL865, OPENWAIT867, ORELEMPT70, ORELMAIN867, PERFPASS864, PMJOURNL866, RENAME864, USERSTRM867

NEXTFCB.mac.txt

 =HL= ...[??? NEXTFCB SECT FILE FGN 20 DOC   
 =HPW ...#MAC  NEXTFCB   
 =HTG ...[   
 =H^6 ...[      MOVE TO NEXT FCB 
 =J4Q ...[      PARAMETERS AS BASEFCB
 =J8B ...[       EXCEPT LABEL USED IF MORE FCBS ARE PRESENT  
 =J#2 ...#STR  %D
 =JCL ...#STR
 =JH= ...      NEXTFCB %A,%B,%C,0,%E 
 =JLW ...#STR  %D
 =JQG ...(   
 =J^Q ...#OPT  NXFCBFILE=1   
 =K5B ...#OPT  NXFCBDIR=2
 =K92 ...#OPT  NXFCBHALF=4   
 =K#L ...#OPT  NXFCBWORK=8   
 =KD= ...#DEF  NXFCB=NXFCB%B 
 =KMG ...      %E
 =KR6 ...#SKI  NXFCB&5   
 =KWQ ...      LDX   %A  1(%A)         [BACKWARDS SEARCH FOR FILE OR HALF
 =L2B ...#SKI NXFCB&#12  
 =L62 ...      LDX   %A  0(%A)         [FORWARDS SEARCH FOR DIR OR WORK  
 =L9L ...#SKI  NXFCB&8   
 =L*= ...(   
 =LDW ...      BXU   %D  %A,%C         [WORKFILES END OF RING TEST   
 =LJG ...)   
 =LN6 ...#SKI  NXFCB&7   
 =LRQ ...      BCT   %D  %C         [FILE,DIR AND HALF END OF RING TEST  
 =LXB ...#FRE  NXFCB 
 =M32 ...)   
 =M6L ...#NOR