TAF 
.PROC,TAF*I,\ 
DEBUG   ' ENABLE DEBUG CODE          (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
NOLOG   ' DO NOT BUILD TAFLOG        (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
TASKLB  ' BUILD TASKLIB              (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* TAF 
*CALL     PSRLEV
* 
  
.*****  TAF 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,TAF,INSTALL.
.*         TAF CAN BE INSTALLED IN DEBUG MODE BY INCLUDING THE
.*         KEYWORD PARAMETER, DEBUG, ON THE BUILD COMMAND.
.*         FOR EXAMPLE, BEGIN,TAF,INSTALL,DEBUG.
.*
.*         TASKLIB CAN BE BUILT BY INCLUDING THE KEYWORD
.*         PARAMETER, TASKLB, ON THE BUILD COMMAND. 
.*         EX: BEGIN,TAF,INSTALL,TASKLB.
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
.*         CREATES ULIBS: TRANLIB, BCLIB, TRANF4, TRANF5, TRANC5 AND
.*         ADDS THEM TO FILE *PRODUCT*. 
.*         THE FOLLOWING PROC IS MOVED FROM OPL999 TO FILE *PRODUCT*
.*             TAFPRC 
.*         IF THE KEYWORD *TASKLB* IS SPECIFIED, THEN THE DIRECT ACCESS 
.*         FILE *TASKLIB* IS CREATED. 
  
.***    DEPENDENCIES: 
.*           REQUIRES  NETTEXT FROM *NAM5*  BUILD.
  
  
.*
.*  START TAF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,TAF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        TAF. 
EXIT. 
REVERT(ABORT)  TAF. 
  
  
.DATA,ZZZPROC 
.PROC,TAF.
*CALL     PSRLEV
  
  
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
UNLOAD(LIBDIR)
BEGIN(GETULIB,INSTALL,SYSLIB) 
  
*****************  TAF     ********************** 
IFE($DEBUG$.EQ.$YES$,A) 
NOTE(MODIR,NR)+*IDENT DUMMY+*DEFINE #DEBUG
ENDIF(A)
NOTE(MODIR,NR)+*EDIT TAF,TAFREC,EOR1,DMREC,EOR2,KTSDMP,LIBTASK
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=NOSTEXT,S=NETTEXT,S=LDRTEXT,S=SSYTEXT,L=LIST)  TAF,TAFREC 
COMPASS(A,I,S=NOSTEXT,S=IOTEXT,S=LDRTEXT,S=PSSTEXT,L=LIST)   DMREC
COMPASS(A,I,S=NOSTEXT,L=LIST)                       1TP,KTSDMP,LIBTASK
  
IF,($NOLOG$.EQ.$NO$),TAF1.
BEGIN(GETULIB,INSTALL,COBOL5) 
RENAME(COB5LIB=COBOL5)
NOTE(MODIR,NR)+*EDIT TAFLOG 
BEGIN(,MODIFY1) 
COBOL5(I,CC1,EL=T,B=BIN1,L=LIST)
COMPASS(A,I,S=NOSTEXT,B=BIN1,L=LIST)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=SYSLIB/COB5LIB) 
LOAD(BIN1)
NOGO(LGO) 
ENDIF,TAF1. 
  
NOTE(MODIR,NR)+*EDIT TAFPRC+*NOSEQ
BEGIN(,MODIFY1) 
REPLACE(COMPILE=TAF)
COPYBF(COMPILE,PFGFILE) 
  
* BUILD TAF ULIBS.  TRANLIB  BCLIB  TRANF4  TRANF5  TRANC5
  
*****************  TRANLIB ********************** 
NOTE(MODIR,NR)+*EDIT AAMI,EOR1,AAML,BEGIN.CMDUMP,DSDUMP.SETCHT
NOTE(MODIR,NR)+*EDIT SUBMT.WSTAT
BEGIN(,MODIFY1,A) 
UNLOAD(LIB) 
COMPASS(A,I,S=NOSTEXT,S=IOTEXT,B=LIB,L=LIST)
COMPASS(A,I,S=NOSTEXT,S=LDRTEXT,S=SSYTEXT,B=LIB,L=LIST) 
GTR(LIB,TRLIB)REL/AAMI,AAML,BEGIN-WSTAT 
UNLOAD(LIB) 
BEGIN(GENLIB,INSTALL,LIBRARY=TRANLIB,LIB=TRLIB) 
BEGIN(SAVELIB,INSTALL,LIB=TRLIB,LIBNAME=TRANLIB)
  
NOTE(MODIR,NR)+*EDIT BAAML
BEGIN(,MODIFY1,A) 
UNLOAD(LIB1)
COMPASS(A,I,S=NOSTEXT,S=SSYTEXT,B=LIB1,L=LIST)
BEGIN(GENLIB,INSTALL,LIBRARY=BCLIB,LIB=LIB1)
BEGIN(SAVELIB,INSTALL,LIB=LIB1,LIBNAME=BCLIB) 
  
NOTE(MODIR,NR)+*IDENT DUMMY+*DEFINE TRANF4+*EDIT TARL,TMSG
BEGIN(,MODIFY1,A) 
UNLOAD(LIB1)
COMPASS(A,I,S=NOSTEXT,B=LIB1,L=LIST)
BEGIN(GENLIB,INSTALL,LIBRARY=TRANF4,LIB=LIB1) 
BEGIN(SAVELIB,INSTALL,LIB=LIB1,LIBNAME=TRANF4)
  
NOTE(MODIR,NR)+*IDENT DUMMY+*DEFINE TRANF5+*EDIT TARL,TMSG
BEGIN(,MODIFY1,A) 
UNLOAD(LIB1)
COMPASS(A,I,S=NOSTEXT,B=LIB1,L=LIST)
BEGIN(GENLIB,INSTALL,LIBRARY=TRANF5,LIB=LIB1) 
BEGIN(SAVELIB,INSTALL,LIB=LIB1,LIBNAME=TRANF5)
  
NOTE(MODIR,NR)+*IDENT DUMMY+*DEFINE TRANC5+*EDIT TARL,TMSG
BEGIN(,MODIFY1,A) 
UNLOAD(LIB1)
COMPASS(A,I,S=NOSTEXT,B=LIB1,L=LIST)
BEGIN(GENLIB,INSTALL,LIBRARY=TRANC5,LIB=LIB1) 
BEGIN(SAVELIB,INSTALL,LIB=LIB1,LIBNAME=TRANC5)
  
  
IFE($TASKLB$.EQ.$YES$,B)   BUILD TASKLIB. 
RETURN(LIB1)
PURGE(TASKLIB/NA) 
DEFINE(TASKLIB) 
NOTE(MODIR,NR)+*EDIT LIBTASK,EOR1,BTASK.XTASK 
MODIFY1.
COMPASS(A,I,S=NOSTEXT,B=LIBTASK,L=0)
COMPASS(A,I,S=NOSTEXT,B=TASKBIN,L=LIST) 
BEGIN(GETULIB,INSTALL,SYSLIB) 
RFL(110000) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=TRANF4/TRANLIB/SYSLIB)
LOAD(TASKBIN) 
NOGO(TASKBN)
/LIBTASK(CR,B=TASKBN,LO,L=LIST,Z)*/XTRAN,T1=XTASK 
REWIND(TASKLIB) 
COPYBF(TASKLIB,PFGFILE) 
RETURN(TASKLIB) 
ENDIF(B)
BEGIN(PFGOUT,INSTALL,PRDNAME=TAF1,LFN=PFGFILE)
  
.IF, ( R1G .NE. 0 ) ,GENPL. 
RETURN,NEWPL. 
GTR,OPL,ZZZ.OPLC/COPYRT,OPLC/COMKMAC-OPL/XTASK
LIBEDIT(P=ZZZ,N=NEWPL,B=0,Z)/*BUILD TAF 
RETURN,ZZZ. 
BEGIN(PRDOUT,INSTALL,PRDNAME=TAF1,#PNO=PN99,#PRO=PR99)
.ENDIF(GENPL) 
BEGIN(GENDIR,INSTALL,LIB=54)
BEGIN(SAVELGO,INSTALL,PRDNAME=TAF1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        TAF ************************************ 
EXIT. 
REVERT(ABORT)  TAF ************************************ 
*WEOR 
