zOs/JCL/DB2RCEST

//Y4RECTIM JOB (STR48306,0000,,0000),'DB2-REPORT',
//           MSGCLASS=T,REGION=0M,NOTIFY=&SYSUID
//*MAIN CLASS=LOG  DEADLINE=(2330,A,12/07/2005),HOLD=YES
//*
//REPORT  EXEC PGM=DSNUTILB,PARM='DBOF,A234579.REPORT'
//SYSPRINT  DD SYSOUT=*
//SYSPRINX  DD DSN=&&TEMP,DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(20,20)),
//          RECFM=FBA,LRECL=133,BLKSIZE=26600
//SYSIN     DD *
  REPORT RECOVERY TABLESPACE HB01A1P.A504A
        CURRENT  LOCALSITE  ARCHLOG 1
//
//RCVTIME  EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC  DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//*YSEXEC  DD DSN=A234579.TSO.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//PRINT    DD SYSOUT=*
//REPORT   DD DSN=*.REPORT.SYSPRINT,DISP=OLD
//SYSTSIN  DD *
  %DB2RCEST
//