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=*