//*-------------------------------------------------------------------* //* TCPIP Proc //* Sample JCL only - Changes are required to run in your data center //* Verify all parameters with the appropriate vendor manual //*-------------------------------------------------------------------* //TCPIP PROC PARMS='CTRACE(CTIEZB00)' //TCPIP EXEC PGM=EZBTCPIP,REGION=0M,TIME=1440, // PARM='&PARMS' //SYSPRINT DD SYSOUT=G,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136) //ALGPRINT DD SYSOUT=G,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136) //CFGPRINT DD SYSOUT=G,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136) //SYSOUT DD SYSOUT=G,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136) //CEEDUMP DD SYSOUT=G,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136) //SYSERROR DD SYSOUT=G //PROFILE DD DISP=SHR,DSN=SYS3.TCPPARMS(PROFILE) //SYSTCPD DD DISP=SHR,DSN=SYS3.TCPPARMS(TCPDATA)