PFGOUT
.PROC,PFGOUT*I"SAVE FILE FOR PFGEN",\ 
*CALL,COMPRD
*CALL,COMPFG
LFN     ' NAME OF LOCAL FILE TO BE SAVED       '=(*N=PFGFILE,*F), 
. 
*IF,DEF,PDOC
.HELP 
  
THIS PROCEDURE IS USED TO SAVE FILES FOR USE BY PFGEN. THE NAME OF
THE FILE CONTAINING TO BE SAVED IS PASSED IN BY THE *LFN* PARAMETER.
THE FILE CREATED IS NAMED *PFG_PRDNAME* WHERE *PRD* IS THE
NAME OF THE PRODUCT (PASSED IN BY CALLING JOB). THIS FILE IS PICKED 
UP BY ANOTHER JOB.
THIS PROCEDURE ALLOWS YOU THE OPTION TO SPECIFY THE USE OF AUXILIARY
PACKS IF YOU DO NOT WISH TO STORE YOUR *PFG_PRDNAME* FILES ON THE USER
NUMBER YOU ARE BUILDING ON.  IT SHOULD BE NOTED THAT THIS PROCEDURE 
WILL NOT CREATE ANY *PFG_PRDNAME* FILES IF THE PARAMETER *USEPFG* IS NO 
AND NO *PFG_PRDNAME* FILE EXISTED PREVIOUS TO CALLING *PFGOUT*
  
.ENDHELP
*ENDIF
*CALL,PSRLEV
* PFGOUT - SAVE FILE FOR SYSGEN 
  
.**** PFGOUT
.*
.*    SEE HELP DESCRIPTION ABOVE FOR DETAILS ON PROCEDURE FUNCTION. 
  
*************** P F G O U T **********************
  
REWIND(LFN) 
RETURN(PFG_PRDNAME) 
ATTACH(PFG_PRDNAME/M=W,PN=PFGPN,R=PFGPR,NA) 
IF, FILE(PFG_PRDNAME,AS),PFGOUT1. 
   COPYEI(LFN,PFG_PRDNAME)
ELSE(PFGOUT1) 
  .IF,($USEPFG$ .EQ. $YES$),PFGOUT2.
    DEFINE(PFG_PRDNAME/PN=PFGPN,R=PFGPR)
    COPYEI,LFN,PFG_PRDNAME) 
  .ENDIF(PFGOUT2) 
ENDIF(PFGOUT1)
.IF, ( R1G .NE. 0 ),PFGOUT4.
  REWIND(LFN) 
  COPYEI(LFN,SMDPFG)
.ENDIF(PFGOUT4) 
RETURN(PFG_PRDNAME) 
  
REVERT. PFGOUT ***********************************
EXIT. PFGOUT
REVERT(ABORT) PFGOUT *****************************
*WEOR 
