zOs/JCL/COMPRESS

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=M                                                         00040001
/**********************************************************/
/*     C O M P R E S S   M I T   IEBCOPY AUCH WENN INUSE  */
/**********************************************************/
//E01      EXEC PGM=IEBCOPY,PARM='PGM=IEBCOPY,OUT=SYSUT2'
//SYSUT1   DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI.EXEC
//SYSUT2   DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI.EXEC
//SYSIN    DD *
           COPY OUTDD=SYSUT2,INDD=SYSUT1
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
/*EOF