Figure 1. Example JCL for a Remote DL/I TP Profile

Figure 1. Example JCL for a Remote DL/I TP Profile

//RMTDLI   JOB
//********************************************************************
//* Remote DL/I Server
//*
//* Tailor this JCL to point at your IMS installation's RESLIB
//* datasets.
//*
//* You can provide the DD statements for your PSBLIB, DBDLIB, and
//* IMS databases here in the TP profile or in the Remote DL/I
//* Server Environment File. You cannot specify the same DD statement
//* in both places!
//*
//* The PARM= parameters are passed as is when starting the
//* IMS batch environment excluding the first three parameters.
//* The first three parameters are always provided by the Remote
//* DL/I server program.
//*
//********************************************************************
//RMTDLI    EXEC PGM=IWZRDM01,REGION=8M,         << Remote DL/I pgm
//   PARM='DLI,PGMNAME,PSBNAME,,0000,,,,,,,,,N,N'
//STEPLIB   DD DISP=SHR,DSN=REMOTE.DLI.LOAD      << Remote DL/I loadlib
//          DD DISP=SHR,DSN=CEEV1R50.SCEERUN     << Language Env lib
//          DD DISP=SHR,DSN=IMSVS.IMS5.RESLIB
//DFSRESLB  DD DISP=SHR,DSN=IMSVS.IMS5.RESLIB
//IEFRDER   DD DUMMY
//IEFRDER2  DD DUMMY
//DFSVSAMP  DD DISP=SHR,DSN=IMS.DFSVSAMP
//SYSUDUMP  DD SYSOUT=*
//* PSB and DBD libraries
//IMS       DD DISP=SHR,DSN=IMS.PSBLIB
//          DD DISP=SHR,DSN=IMS.DBDLIB
//* IMS databases
//RDLIDSN   DD DISP=SHR,DSN=IMS.RDLI.RDLIDSN
//RDLIDSNO  DD DISP=SHR,DSN=IMS.RDLI.RDLIDSNO
//* DD Statements required by Remote DL/I
//IWZRDOUT  DD SYSOUT=*