Below is an example of the STC user server JCL. The changes required are highlighted in bold:
//TAURHLQ SET TAURHLQ=HLQ.ZSERVER //ISPFHLQ SET ISPFHLQ=ISP //TCPDATA SET TCPDATA=TCPIP.TCPDATA //********************************************************************* //* START TSO/E-ISPF-SESSION AS STARTED JOB //********************************************************************* //* SET ACEE FOR USER //********************************************************************* //TAURSJOB EXEC PGM=TAURSJOB //STEPLIB DD DISP=SHR,DSN=&TAURHLQ..LOADLIB //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //IPCONFIG DD DISP=SHR,DSN=&TAURHLQ..CONFIG(IVPACEE) //********************************************************************* //* START TSO/E-ISPF-SESSION BATCH //* MOVE TEMP ALLOCATIONS TO IVPINIT1 RPI 611619 //********************************************************************* //IVPISPF EXEC PGM=IKJEFT1B,PARM='%IVPINIT1', // DYNAMNBR=200,REGION=0M,TIME=NOLIMIT,COND=(4,LT) //STEPLIB DD DSN=&TAURHLQ..LOADLIB,DISP=SHR //IPCONFIG DD DISP=SHR,DSN=&TAURHLQ..CONFIG(IVPUSR) //SYSTCPD DD DISP=SHR,DSN=&TCPDATA //SYSEXEC DD DSN=&TAURHLQ..EXEC,DISP=SHR // DD DSN=&TAURHLQ..REXX,DISP=SHR //ISPPLIB DD DSN=&TAURHLQ..PANELS,DISP=SHR // DD DSN=&ISPFHLQ..SISPPENU,DISP=SHR // DD DSN=ISF.SISFPLIB,DISP=SHR //ISPSLIB DD DSN=&TAURHLQ..SKELS,DISP=SHR // DD DSN=&ISPFHLQ..SISPSENU,DISP=SHR // DD DSN=ISF.SISFSLIB,DISP=SHR //ISPMLIB DD DSN=&ISPFHLQ..SISPMENU,DISP=SHR // DD DSN=ISF.SISFMLIB,DISP=SHR //ISPTLIB DD DSN=&ISPFHLQ..SISPTENU,DISP=SHR // DD DSN=ISF.SISFTLIB,DISP=SHR //ISPLOG DD SYSOUT=*,DCB=(RECFM=VA,LRECL=125) //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //ZCOTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //ZCOTSIN DD DUMMY //SYSOUT DD SYSOUT=* //CEEAPI03 DD SYSOUT=* //CEEREX30 DD SYSOUT=* //ISPDPTRC DD SYSOUT=* // PEND
The TCPDATA is used by the SYSTCPD DD statement to specify the TCPIP settings for use in the LE environment.
The allocation statements for the following temporary data sets listed below have been moved from this JCL to the IVPINIT1 REXX procedure: ISPCTL0, ISPCTL1, ISPCTL2, ISPWRK0, ISPWRK1, ISPWRK2, ISPLST1 and ISPLST2. This is because under certain system conditions (RACF class TEMPDSN defined) the allocation of the temporary ISPF data sets in the user server JCL will cause RACF violations.