Example

Assume the following JCL for these examples:

Figure 136 JCL for DDINFO Function Example

//STEP1    EXEC PGM=IEBCOPY

//SYSPRINT DD   SYSOUT=*

//I1       DD   DSN=PROD.FILE.TEST1,DISP=SHR

//O1       DD   DSN=TAPE.TEST1,DISP=(NEW,PASS),

//              VOL=SER=TAPE1,UNIT=TAPE,LABEL=(1,SL)

//STEP2    EXEC CONTROLB,RULE=RULE1

//TSTDSN1  DD   DSN=M01.EXAMP.LIBR,DISP=SHR

//         DD   DSN=M02.ISPF.ISPPROF(MEMNAME),

//              DISP=SHR

//         DD   DSN=M01.TEXT.LIBR(+1),DISP=SHR

//TSTDSN2  DD   DSN=M03.TEXT.LIB1,DISP=SHR

Table 165 DDINFO Function Example