JCL requirements for the DL/I test program (DFSDDLT0)
DFSDDLT0 uses these DD statements.
Execution JCL depends on the installation data set naming
standards as well as the IMS environment
(batch or online).
//SAMPLE JOB ACCOUNTING,NAME,MSGLEVEL=(1,1),MSGCLASS=3,PRTY=8 33001100
//GET EXEC PGM=DFSRRC00,PARM='DLI,DFSDDLT0,PSBNAME' 33001200
//STEPLIB DD DSN=IMS.SDFSRESL,DISP=SHR 33001300
//IMS DD DSN=IMS2.PSBLIB,DISP=(SHR,PASS) 33001400
// DD DSN=IMS2.DBDLIB,DISP=(SHR,PASS) 33001500
//DDCARD DD DSN=DATASET,DISP=(OLD,KEEP) 33001600
//IEFRDER DD DUMMY 33001700
//PRINTDD DD SYSOUT=A 33001800
//SYSUDUMP DD SYSOUT=A 33001900
//SYSIN DD * 33002000
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
U THIS IS PART OF AN EXAMPLE 33002100
S 1 1 1 1 1 PCB-NAME 33002200
L GU 33002300
/*
//SYSIN2 DD *
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
ABEND 33002300
/*
The following code example shows how to code JCL for DFSDDLT0 in a BMP. Use of a procedure is optional and is only shown here as an example.
Example JCL code for DFSDDLT0 in a BMP
//SAMPLE JOB ACCOUNTING,NAME,MSGLEVEL=(1,1),MSGCLASS=A 00010047
//*************************************************************
//* BATCH DL/I JOB *
//*************************************************************
//BMP EXEC IMSBATCH,MBR=DFSDDLT0,PSB=PSBNAME
//BMP.PRINTDD DD SYSOUT=A
//BMP.PUNCHDD DD SYSOUT=B
//BMP.SYSIN DD *
U ***THIS IS PART OF AN EXAMPLE OF SYSIN DATA 00010000
S 1 1 1 1 1 1 00030000
L GU 00040000
L 0099 GN 00050000
/*
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
//BMP.SYSIN2 DD *
U ***THIS IS PART OF AN EXAMPLE OF SYSIN2 DATA ******************* 00020000
ABEND 00050000
/*