TDU 
.PROC,TDU*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
BEGIN(SUBPROC,INSTALL,TDU,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.          TDU. 
EXIT. 
REVERT(ABORT)   TDU.
.DATA,ZZZPROC 
.PROC,TDU.
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)   MAKE PROPER MODIFY PROC LOCAL
BEGIN(PRDIN,INSTALL,PRDNAME=TDU1,#PN=PN,#PR=PR) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
COPYBF,TDU1,TDTOOL1.
COPYBF,TDU1,CYBCLIB.
COPYBF,TDU1,TDTOOL3.
REWIND,TDTOOL1,CYBCLIB,TDTOOL3. 
BEGIN(GETULIB,INSTALL,SYSLIB) 
NOTE(MODIR,NR);*OPLFILE TDTOOL3 
NOTE(MODIR,NR);*EDIT TDUEX,TDUIN,TDUOUT,TDUTAB
PACK(MODIR) 
BEGIN(,MODIFY1) 
TDTOOL1,I,L=LIST. 
LDSET(LIB=CYBCLIB,PRESET=ZERO,ERR=ALL)
LOAD,LGO. 
NOGO,TDUEX. 
RENAME(LGO=TDUEX) 
NOTE(MODIR,NR);*EDIT TDU
BEGIN(,MODIFY1) 
GTR(COMPILE,LGO)PROC/TDU
COPYEI(LGO,GLOBLGO,V) 
RENAME(NEWPL=TDU1)
BEGIN(PRDOUT,INSTALL,PRDNAME=TDU1,#PNO=PNO,#PRO=PRO)
RETURN,TDU1,TDTOOL1,CYBCLIB,TDTOOL3.
RETURN(OPL,COMPILE) 
BEGIN(GENDIR,INSTALL,LIB=5) 
BEGIN(SAVELGO,INSTALL,PRDNAME=TDU1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.          TDU  ******************************
EXIT. 
REVERT(ABORT)   TDU  ****************************** 
*WEOR 
