zOs/JCL/QXT0133P

//QXT0133P JOB (PD00,KE50,,SP00000000),
//             'RLM-FILE-TRANS',
//             MSGCLASS=E,
//             REGION=99366K
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ4AKT.PERM.@007.JVA  %%INCMEM JOBLRZ4P
//*MAIN CLASS=DBCP
//********************************************************************
//*                         JCLPREP   04/19/2006   10:34:31   A509191
//********************************************************************
//*
//P00     EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
 DEL 'DBCP.LOGMAST.REPORT.OUT' SCR
 IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P01     EXEC PGM=IEFBR14
//DD1       DD DSN=DBCP.LOGMAST.REPORT.OUT,
//             DISP=(,CATLG,DELETE),
//             MGMTCLAS=COM#B091,STORCLAS=ANY,
//             SPACE=(CYL,(5,1),RLSE),
//             RECFM=FBA,LRECL=81,BLKSIZE=27945
// ENDIF
//*
// IF RC < 5 THEN
//P02     EXEC PGM=ALPMAIN,
//             PARM='DBCP ,MSGLEVEL(2),ALPOPTS(ALP$OPTS)',
//             REGION=0M
//STEPLIB   DD DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//          DD DSN=DSN.BMC.RZ4.P0.RECOV.LOAD,DISP=SHR
//ALPPRINT  DD SYSOUT=*
//SQLPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSERR    DD SYSOUT=*
//SYSTERM   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSIN     DD *,DLM=##
 /* A251112.LOGSCAN                                                  */
 /* DB2 LOGSCAN REVISION                                             */

  OPTION
     FILTERREL AND EXECUTION MODE CURRENT

  SORTOPTS
     FILSZ NONE
     HISTORY WRITE

  WORKID A251112.LOGSCAN
     DESC "DB2 LOGSCAN REVISION"


  LOGSCAN
     REPORT TYPE SUMMARY
        ORDER BY PLAN NAME,
                 AUTH ID,
                 TABLE NAME
        DATASET DBCP.LOGMAST.REPORT.OUT MOD
           CYLINDERS SPACE(1,1) UNIT(SYSDA) RELEASE
     FILSZ EST 50000 AVGRECLEN 225
     DB2CATALOG NO
     FROM  DATE(-1) TIME(00.00.00.000000)
     TO    DATE(-0) TIME(00.00.00.000000)
     WHERE
        AUTH ID NOT LIKE 'S%'
        AND AUTH ID <> 'BSDB2'
        AND PLAN NAME <> 'DISTSERV'
        AND TABLESPACE NAME <> 'DB2SAVE.XINFOLOG'
        AND PLAN NAME NOT LIKE 'DQC%'
##
//SQLCODES DD DUMMY
// ENDIF
//*
// IF RC < 5 THEN
//P03     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=PCL.U0000.P0.RZ4AKT.PERM.@005.JPO,DISP=SHR
//REPORT    DD DSN=DBCP.LOGMAST.REPORT.OUT,
//             DISP=(OLD,DELETE,KEEP)
//LOGOUT    DD DSN=DBCP.LOGMAST.REPORT.DATA,
//             DISP=MOD
//SYSTSIN   DD *
  %Y4PLOGM1
// ENDIF