zOs/JCL/QZCDPUT

$*(
set current sqlid = 'S100447';
alter tablespace CD03A1P  A150A compress yes;
alter tablespace CD03A1P  A152A compress yes;
commit
....
//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//SEND  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,PARM=WSH
//SYSPROC    DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTSPRT   DD SYSOUT=*
//*UT        DD SYSOUT=*
//SYSTSIN    DD DUMMY
//WSH        DD *
$*)
$#@
  $=pkg=CMN.DIV.P0.DB2J.#000197
  $=rz=RR2
if 1 then $@[
  call csmCopL $pkg".llb(qzcdPut)" ,
              ,  $rz"/A540769.WK.llb"
  call csmcopy $pkg".dbr(qzcdPut)", $rz"/A540769.WK.dbr"
$]
$;
$>$rz/intRdr
$@=[
//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//* bind
//BIND   EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DBRMLIB  DD DISP=SHR,DSN=A540769.WK.DBR
//SYSTSIN  DD *
   DSN S(DBOF)
   BIND PACKAGE(QZ) -
     OWNER(CMNBATCH) -
     QUALIFIER(OA1P) -
     MEMBER(QZCDPUT) -
     CURRENTDATA(NO) -
     DEGREE(1) -
     DYNAMICRULES(BIND) -
     EXPLAIN(YES) -
     FLAG(I) -
     ISOLATION(CS) -
     SQLERROR(NOPACKAGE) -
     VALIDATE(BIND) -                                                   00050800
     ACTION(REPLACE)                                                    00050900
$*(
//CURS152  EXEC PGM=QZCDPUT,PARM='E1'                                   00051000
//STEPLIB    DD DISP=SHR,DSN=A540769.WK.LLB                             00052000
//SYSPRINT   DD SYSOUT=*                                                00053000
//INTO152  EXEC PGM=QZCDPUT,PARM='F1'                                   00051000
//STEPLIB    DD DISP=SHR,DSN=A540769.WK.LLB                             00052000
//SYSPRINT   DD SYSOUT=*                                                00053000
$*)
//CURSCLPI EXEC PGM=QZCDPUT,PARM='P1'                                   00051000
//STEPLIB    DD DISP=SHR,DSN=A540769.WK.LLB                             00052000
//SYSPRINT   DD SYSOUT=*                                                00053000
//INTOCLPI EXEC PGM=QZCDPUT,PARM='Q1'                                   00051000
//STEPLIB    DD DISP=SHR,DSN=A540769.WK.LLB                             00052000
//SYSPRINT   DD SYSOUT=*                                                00053000
//INTOCLPI EXEC PGM=QZCDPUT,PARM='R1'                                   00051000
//STEPLIB    DD DISP=SHR,DSN=A540769.WK.LLB                             00052000
//SYSPRINT   DD SYSOUT=*                                                00053000
$]
$#out                                              20140606 07:52:20
$#out                                              20140606 07:51:18
$#out                                              20140606 07:49:52
$#out                                              20140606 07:44:27
$#out                                              20140604 16:08:47
$#out                                              20140604 15:27:39