Below is an example of the CEA user server JCL. The changes required are highlighted in bold:
//CEAPROC PROC P1=TRACE,P2=TAURSERV,P3=CEAPROC //CEAPROC EXEC PGM=IKJEFT01,DYNAMNBR=175, // PARM='%CEALOGON &P1 &P2 &P3',TIME=120 //TAURHLQ SET TAURHLQ=HLQ.ZSERVER //TCPDATA SET TCPDATA=TCPIP.TCPDATA //******************************************************************** //* Z/SERVER //********************************************************************* //STEPLIB DD DISP=SHR,DSN=&TAURHLQ..LOADLIB //IPCONFIG DD DISP=SHR,DSN=&TAURHLQ..CONFIG(IVPCEAU) //SYSTCPD DD DISP=SHR,DSN=&TCPDATA //CEEREX30 DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEATSPRT DD SYSOUT=* //ZCOTSPRT DD TERM=TS //ZCOTSIN DD TERM=TS //READER DD SYSOUT=(*,INTRDR) //MAINTASK DD SYSOUT=* //T0000001 DD SYSOUT=* //CMDTASK DD SYSOUT=* //SRVTASK DD SYSOUT=* //CEATASK DD SYSOUT=* //CEAISPF DD SYSOUT=* //LISTENER DD SYSOUT=* //********************************************************************* //* ADD YOUR OWN LOGON PROCEDURE HERE //* BUT KEEP ALL &TAURHLQ DATA SETS IN THE RIGHT PLACES //********************************************************************* //SYSUADS DD DISP=SHR,DSN=SYS1.UADS //SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST //SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB // DD DISP=SHR,DSN=SYS1.SBLSCLI0 //SYSEXEC DD DISP=SHR,DSN=&TAURHLQ..EXEC // DD DISP=SHR,DSN=&TAURHLQ..REXX // DD DISP=SHR,DSN=ISP.SISPEXEC //SYSHELP DD DISP=SHR,DSN=SYS1.HELP // DD DISP=SHR,DSN=ISP.SISPHELP //ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU // DD DISP=SHR,DSN=SYS1.SBLSMSG0 // DD DISP=SHR,DSN=ISF.SISFMLIB // DD DISP=SHR,DSN=&TAURHLQ..MSGS //ISPEXEC DD DISP=SHR,DSN=ISP.SISPEXEC //ISPLLIB DD DISP=SHR,DSN=&TAURHLQ..LOADLIB //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU // DD DISP=SHR,DSN=&TAURHLQ..PANELS // DD DISP=SHR,DSN=SYS1.SBLSPNL0 // DD DISP=SHR,DSN=ISF.SISFPLIB //ISPSLIB DD DISP=SHR,DSN=&TAURHLQ..SKELS // DD DISP=SHR,DSN=ISP.SISPSLIB // DD DISP=SHR,DSN=ISP.SISPSENU // DD DISP=SHR,DSN=ISF.SISFSLIB // DD DISP=SHR,DSN=SYS1.SBLSKEL0 //ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU // DD DISP=SHR,DSN=SYS1.SBLSTBL0 // DD DISP=SHR,DSN=ISF.SISFTLIB // DD DISP=SHR,DSN=SYS1.SMP.OTABLES //ISPCTL1 DD DISP=NEW,UNIT=SYSALLDA,SPACE=(CYL,(1,1)), // DCB=(LRECL=80,BLKSIZE=800,RECFM=FB) //ISPCTL2 DD DISP=NEW,UNIT=SYSALLDA,SPACE=(CYL,(1,1)), // DCB=(LRECL=80,BLKSIZE=800,RECFM=FB) //ISPLST1 DD DISP=NEW,UNIT=SYSALLDA,SPACE=(CYL,(1,1)), // DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA) //ISPLST2 DD DISP=NEW,UNIT=SYSALLDA,SPACE=(CYL,(1,1)), // DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA) //SDSFMENU DD DSN=ISF.SISFPLIB,DISP=SHR //ISPTABL DD DSN=SYS1.SMP.OTABLES,DISP=SHR // PEND
The CEAPROC procedure statement has been added and now defines three new parameters, which are used in the CEAPROC EXEC statement:
The TCPDATA is used by the SYSTCPD DD statement to specify the TCPIP settings for use in the LE environment.
There is also an additional final PEND statement.