zOs/JCL/QZCDPUT4

//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//         SET PKG=CMN.DIV.P0.DB2J.#000197
//V3       EXEC PGM=QZCDPUT,PARM='A'                                    00051000
//STEPLIB    DD DISP=SHR,DSN=&PKG..LLB                                  00052000
//SYSPRINT   DD SYSOUT=*                                                00053000