PFTF
.PROC,PFTF*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
.*
.*  THE LIST PARAMETER IS IGNORED FOR THIS JOB AND MUST 
.*  BE EQUAL TO *OUT*.
.*
  
BEGIN(SUBPROC,INSTALL,PFTF,,OUT,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.          PFTF.
EXIT. 
REVERT(ABORT)    PFTF.
.DATA,ZZZPROC 
.PROC,PFTF. 
*CALL     PSRLEV
RETURN(TOOL1,CYBCLIB,TOOL3) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
BEGIN(PRDIN,INSTALL,PRDNAME=TDU1,#PN=PN,#PR=PR) 
COPYBF(TDU1,TOOL1)
COPYBF(TDU1,CYBCLIB)
COPYBF(TDU1,TOOL3)
RETURN(TDU1)
BEGIN(PRDIN,INSTALL,PRDNAME=PFTF,#PN=PN,#PR=PR) 
* 
BEGIN(GETPC,INSTALL,#PCDECK=CNT,#PCPL=CPRD,#PC=PC,#CC=CC) 
IF(FILE(MODS,AS),PFTF1) 
  REWIND(MODS)
  MODIFY(F,P=OLDPL,N=NEWPL,C=0,Z)/*INWIDTH 150/*READ MODS,* 
ELSE(PFTF1) 
  RENAME(NEWPL=OLDPL) 
ENDIF(PFTF1)
IF(FILE(USER,AS),PFTF2) 
  REWIND(USER)
  MODIFY(F,P=NEWPL,N=NEWER,C=0,Z)/*INWIDTH 150/*READ USER,* 
ELSE(PFTF2) 
  REWIND(NEWPL,NEWER) 
  COPYEI(NEWPL,NEWER) 
ENDIF(PFTF2)
* 
BEGIN(GETULIB,INSTALL,SYSLIB) 
* 
*  BUILD NO-TRACE VERSION FOR DEADSTART TAPE
* 
REWIND(BIN1,BIN2,LIST,LGO)
MODIFY(P=NEWER,Z)/*OPLFILE,TOOL3/*EDIT,PFTF00.ASSEMBL 
TOOL1(I,B=BIN1,CHK=0,LO=F,A,D=0,OPT=2,L=LIST) 
COMPASS(I,L=LIST,B=BIN2,A,S=SYSTEXT,S=PSSTEXT)
COMPASS(I,L=LIST,B=BIN1,A,S=NOSTEXT,S=PSSTEXT)
REWIND(BIN1,BIN2,CYLIB) 
LIBGEN(F=BIN1,P=CYLIB)
REWIND(BIN1,BIN2) 
LDSET(LIB=CYLIB,ERR=ALL,PRESET=ZERO)
LOAD(BIN2)
NOGO(LGO) 
* 
*  BUILD TRACE VERSION FOR PERMANENT FILE.
* 
REWIND(BIN1,BIN2,CYLIB,BIN3,PFTFTR) 
MODIFY(P=NEWER,Z)/*OPLFILE,TOOL3/*DEFINE,DEBUG/*EDIT,PFTF00.ASSEMBL 
TOOL1(I,B=BIN1,CHK=0,LO=F,A,D=0,OPT=2,L=LIST) 
COMPASS(I,L=LIST,B=BIN2,A,S=SYSTEXT,S=PSSTEXT)
COMPASS(I,L=LIST,B=BIN1,A,S=NOSTEXT,S=PSSTEXT)
REWIND(BIN1,BIN2,CYLIB) 
LIBGEN(F=BIN1,P=CYLIB)
REWIND(BIN1,BIN2) 
LDSET(LIB=CYLIB,ERR=ALL,PRESET=ZERO)
LOAD(BIN2)
NOGO(BIN3)
LIBGEN(F=BIN3,P=PFTFTR,N=PFTFTR)
RETURN(BIN1,BIN2,BIN3,CYLIB,COMPILE)
REWIND(PFGFILE,PFTFTR,LGO)
  
MODIFY(P=NEWER,Z)/*EDIT RMU64 
LIBEDIT(P=0,B=COMPILE,N=RMU64,Z)/*BUILD RMUGET
COPYBF(RMU64,PFGFILE)  ** RMUGET 64 **
REPLACE(RMU64)
  
MODIFY(P=NEWER,Z)/*EDIT RMU63 
LIBEDIT(P=0,B=COMPILE,N=RMU63,Z)/*BUILD RMUGET
COPYBF(RMU63,PFGFILE)  ** RMUGET 63 **
REPLACE(RMU63)
  
COPYBF(PFTFTR,PFGFILE)  ** ULIB/PFTF ** 
PURGE(PFTFTR/NA)
RETURN(PFTR)
DEFINE(PFTR=PFTFTR) 
COPYEI(PFTFTR,PFTR,V) 
  
REWIND(NEWPL,PFGFILE) 
BEGIN(PRDOUT,INSTALL,PRDNAME=PFTF,#PNO=PNO,#PRO=PRO)
BEGIN(PFGOUT,INSTALL,PRDNAME=PFTF,LFN=PFGFILE)
BEGIN(GENDIR,INSTALL,LIB=5) 
BEGIN(SAVELGO,INSTALL,PRDNAME=PFTF) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.          PFTF  ****************************** 
EXIT. 
REVERT(ABORT)   PFTF  ******************************
*WEOR 
