NEXTFCB [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: NEXTFCB)}}
====== NEXTFCB ======
(GIN Macro)

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

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

<code - 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
</code>