ATF 
.PROC,ATF*I,\ 
NOTRACE ' DISABLE AIP TRACE CODE     (NO/YES)  '=(*N=D,NO=D,YES=,*K=),
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMTOL
*CALL COMIA 
*CALL COMOUT
*CALL COMD2 
*CALL COMX2 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
  
.*
.*  START ATF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,ATF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        ATF. 
EXIT. 
REVERT(ABORT)  ATF. 
  
  
.DATA,ZZZPROC 
.PROC,ATF.
*CALL    PSRLEV 
* ATF - AUTOMATIC TAPE FACILITY 
*CALL    PSRLEV 
* 
  
.*****  ATF 
  
BEGIN(PRDIN,INSTALL,PRDNAME=ATF1,#PN=PN,#PR=PR,DISK=0)
* 
BEGIN(PRDAUX,INSTALL,PRDNAME=NAM5,#PNO=PN2,#PRO=PR2)
* 
BEGIN(UP,INSTALL,RANDOM,PCPL=CNSP,#PC=PC,#CC=CC,PCDECK=ATF,NUMAUX=1)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
RFL(70000)
GET,IPPTXT. 
SYMPL(ET=T,I,B=RPCTXT,Y=IPPTXT,L=LIST.
SYMPL(ET=T,I,B=RPCBIN,Y=IPPTXT,Y=RPCTXT,L=LIST. 
SYMPL(ET=T,I,B=ATFTXT,Y=IPPTXT,Y=RPCTXT,L=LIST. 
SYMPL(ET=T,I,B=ATFREL,Y=IPPTXT,Y=ATFTXT,Y=RPCTXT,L=LIST.
COMPASS,I,B=ATFBIN,S=PSSTEXT,S=NOSTEXT,L=LIST.
LIBGEN(F=RPCBIN,P=RPCLIB) 
REPLACE(RPCLIB,RPCTXT/NA) 
BEGIN(SAVELIB,INSTALL,LIB=RPCBIN,LIBNAME=RPCLIB)
LIBGEN(F=ATFREL,P=ATFLIB) 
BEGIN(SAVELIB,INSTALL,LIB=ATFBIN,LIBNAME=ATFLIB)
REPLACE(ATFLIB,ATFBIN,ATFTXT) 
COPYCR(COMPILE,ATF,1,1,72)
BEGIN(PFGOUT,INSTALL,PRDNAME=ATF1,LFN=ATF)
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
SYSGEN(UPSTRT,ATF,$$$JOB(JOBATF,AT,ATF)$$$) 
SYSGEN(UPSTRT,ATF,$$$PARAM(STKCON=STK)$$$)
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
RETURN(PRODUCT) 
RETURN(NETIO,NETIOD)
GET,RPCLIB,ATFLIB,ATFBIN. 
BEGIN(GETULIB,INSTALL,NETIOD,SRVLIB,MACLIB,NFMLIB,IPPLIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=IPPLIB/ATFLIB/RPCLIB/SRVLIB/MACLIB/NETIOD/NFMLIB) 
LOAD(ATFBIN)
NOGO(ATFLGO,ACTF,$ARG=$,$RFL=$) 
RENAME(LGO=ATFLGO)
BEGIN(PRDOUT,INSTALL,PRDNAME=ATF1,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
BEGIN(GENDIR,INSTALL,LIB=8) 
BEGIN(SAVELGO,INSTALL,PRDNAME=ATF)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  ATF. 
EXIT. 
REVERT(ABORT)  ATF. 
*WEOR 
