zOs/JCL/PVX0200T
//PVX0200T JOB (OS09,KE10,,SE00000000),
// TIME=NOLIMIT,
// MSGCLASS=E
//*
//*********************************************************************
//* START POSY TCP/IP-SERVER *
//* ======================== *
//* *
//*-------------------------------------------------------------------*
//* VERANTWORTLICH: PVS-TEAM *
//* --------------- BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN *
//*********************************************************************
//*MAIN CLASS=PVS
// SET RZID=1
// SET ENV=T
// SET STATUS=0
//*-------------------------------------------------------------------*
// SET SUBMIT=(A,INTRDR)
//* SET SUBMIT=*
//*-------------------------------------------------------------------*
//USEDPROC JCLLIB ORDER=(POSY.RZ&RZID..&ENV.&STATUS..AKT.TEMPLATE)
// INCLUDE MEMBER=JES#X&RZID.&ENV.X
//*
//*-------------------------------------------------------------------*
//* START POSY TCP/IP-SERVER *
//*-------------------------------------------------------------------*
//POSYSRV EXEC PGM=A1PO009,
// COND=(4,LT),
// PARM='&PORTNO,START'
//*
//SYSTCPD DD DISP=SHR,DSN=&SYSTCPD 00410100
//JCLDAT DD SYSOUT=&SUBMIT
//*
//SYSOUT DD SYSOUT=* 00410100
//SYSPRINT DD SYSOUT=* 00292000
//SYSUDUMP DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//ASCDUMP DD SYSOUT=* 00330000
//SYSABEND DD SYSOUT=* 00340000
//*-------------------------------------------------------------------*