zOs/JCL/MA1APVS
//MA1APVS PROC
//********************************************************************
//*
//* POSY TCP/IP-SERVER AS STARTED TASK
//*
//* BEI PROBLEMEN BITTE PVS-TEAM BENACHRICHTIGEN <<<<<<<<<<<<
//*
//* THIS SOURCE SUPPORTS THE 4 FOLLOWING CONFIGURATIONS
//* WITH DIFFERENT PROC NAMES:
//*
//* RZ2 PROD ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ2 PTA ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ1 PROD ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ1 TEST ==> MA1APVS IN JOBP.SYSA.PROC(MA1APVS)
//*
//* VERSIONS
//* V01 17.06.05 W. KELLER STARTED TASK, MERGE OF THE 4 CONFIGS
//*
//********************************************************************
//* VARIABLES FOR EACH CONFIGURATION
//* ==> REMOVE ASTERIKS BEFORE ACTIVE CONFIGURATION
//* ==> INSERT ASTERIKS BEFORE ALL OTHER CONFIGURATIONS
//********************************************************************
//*--------------------------------------------- RZ1 TEST
//* RZ1.T0 ==> RZID=1, ENV=T STATUS=0
//* IPADDR=169.62.110.97 = PVXT-RZ1.CSINTRA.NET
//* IPSTACK=TXX51Q0
// SET POSYLOAD=POSY.RZ1.T0.AKT.LOADLIB
// SET PORTNO=03120
// SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
// SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ1 PROD
//* RZ1.P0 ==> RZID=1, ENV=P STATUS=0
//* IPADDR=169.62.110.98 = PVXP-RZ1.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ1.P0.AKT.LOADLIB
//* SET PORTNO=03121
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ2 PROD
//* RZ2.P0 ==> RZID=2, ENV=P STATUS=0
//* IPADDR=169.62.60.39 = PVXP-RZ2.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ2.P0.AKT.LOADLIB
//* SET PORTNO=03122
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ2 PTA
//* RZ2.R0 ==> RZID=2, ENV=R STATUS=0
//* IPADDR=169.62.60.219 = PVXP-RR2.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ2.P0.AKT.LOADLIB
//* SET PORTNO=03123
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- CONSTANTS
// SET SUBMIT=(A,INTRDR)
//* SET SUBMIT=*
//*
//*********************************************************************
//* START POSY TCP/IP-SERVER
//*********************************************************************
//POSYSRV EXEC PGM=A1PO009,
// COND=(4,LT),
// PARM='&PORTNO,START'
//STEPLIB DD DISP=SHR,DSN=&POSYLOAD
// DD DISP=SHR,DSN=&EZASOKET
//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
//CEEDUMP DD SYSOUT=* 00340000
//*********************************************************************
//MA1APVS PEND