zOs/WK/DP083CHK

//A540769C JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  CREATED BY :  A540769
//*  TIMESTAMP  :  06/20/2006.09.40.21
//*  ENVIRONMENT:  ISPF 5.7MVS     TSO
//*  RELEASE    :  V7.4.02 08/31/2004
//*  DB2 VERSION:  810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
//   PARM=(DBOF,'A540769C.CHECK'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD DSN=A540769.TMP.PRNT,
              DISP=(NEW,CATLG,CATLG),
              MGMTCLAS=BAT#AT,DATACLAS=EYY0X,
              SPACE=(CYL,(2000,2000),RLSE)
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF LST INCLUDE TABLESPACE DP08A1P.A083A PARTLEVEL
 --  COPY LIST LST FULL YES COPYDDN(TCOPYD) SHRLEVEL REFERENCE
     CHECK DATA
                TABLESPACE DP08A1P.A083A
     SHRLEVEL REFERENCE
     SCOPE PENDING
     WORKDDN(TSYUTD, TSOUTD) ERRDDN TERRD
     SORTDEVT DISK
     FOR EXCEPTION IN OA1P.TDP083A1
                USE   $$DELETE.TDP083$$
                DELETE YES LOG NO
     COPY LIST LST FULL YES COPYDDN(TCOPYD) SHRLEVEL REFERENCE