Obtaining TESTEXIT from SYS1.SAMPLIB

Figure 1 shows sample JCL for obtaining a punched deck of TESTEXIT from SYS1.SAMPLIB.

Figure 1. Sample JCL for Obtaining a Punched Deck of TESTEXIT

//PUNCH     JOB       MSGLEVEL=1
//          EXEC      PGM=IEBPTPCH
//SYSPRINT  DD        SYSOUT=A
//SYSUT1    DD        DSNAME=SYS1.SAMPLIB,DISP=(OLD,KEEP),
//          UNIT=xxxx,VOLUME=SER=xxxxxx¹
//SYSUT2    DD        UNIT=2540-2
//SYSIN     DD        *
            PUNCH     TYPORG=PO,MAXNAME=1,MAXFLDS=1
            MEMBER    NAME=TESTEXIT
            RECORD    FIELD=(80)

¹The volume and unit parameters depend on your installation's request.