*DECK LFG 
          IDENT  LFG
          COMMENT            LFG - NETWORK LOAD FILE GENERATOR
          ENTRY  INPUT
          ENTRY  IFET 
          ENTRY  LFG
          ENTRY  OUTPUT 
          ENTRY  WFET 
*IF DEF,IMS 
**    LFG - LOAD FILE GENERATOR.
* 
*     M. E. VATCHER  81/02/24 
* 
*     LFG DEFINES THE LFG FETS AND BUFFERS AND CONTAINS THE LFG 
*     ENTRY POINT.  THE MAIN LOOP FOR LFG IS IN THE SYMPL ROUTINE 
*     LFGMAIN.
* 
*     LFG 
* 
*     ENTRY NONE. 
* 
*     EXIT  NONE. 
* 
*ENDIF
 
          USE    /IB/ 
 IBUF     BSS    2001B
          USE    *
 
          USE    /WB/ 
 WBUF     BSS    1001B
          USE    *
 
 INBUF    BSS    101B 
 
 OUTBUF   BSS    101B 
 
 IFET     FILEB  IBUF,2001B,(FET=13)
 INPUT    FILEC  INBUF,101B,(FET=5) 
 OUTPUT   FILEC  OUTBUF,101B,(FET=8)
 WFET     CON    NLF
 NLF      RFILEB WBUF,1001B,(FET=8) 
 
*         LFG - MAIN ENTRY
          SPACE  3
 LFG      BSS    0
          RJ     =XLFGMAIN   SYMPL LFG MAIN ROUTINE 
          ENDRUN
          END    LFG