1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
| //MONJOB01 JOB (EXEC),'CHECK LIST DB2OBJ ',CLASS=S,MSGCLASS=T,
// REGION=8M,NOTIFY=&SYSUID,RESTART=*
//*------------------------------------------------------------------*
//*--- CE JOB GENERE UN CHECK DATA DE TOUS LES TABLE SPACES D'UNE DB *
//*--- CAR ON NE PEUT PAS UTILISER DE LISTDEF POUR UN CHECK DATA *
//*--- ---*
//*--- CHANGER LE SSID (DB2T) ET LE CREATOR (SCH1) ---*
//*------------------------------------------------------------------*
//DLSQL001 EXEC PGM=IEFBR14 DELETE PREVENTIF
//SYSPRINT DD SYSOUT=*
//DELETE DD DSN=&SYSUID..DB2CHKLI.SQL001,
// SPACE=(TRK,(1,1),RLSE),DISP=(MOD,DELETE,DELETE)
//*----------------------------------------------------------*
//EXSQL001 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DISP=SHR,DSN=SYSA.LOADLIB
// DD DISP=SHR,DSN=DB2T.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD DUMMY
//CEEDUMP DD SYSOUT=*
//SYSREC00 DD UNIT=TESTDA,SPACE=(CYL,(5,5),RLSE),DISP=(,CATLG),
// DSN=&SYSUID..DB2CHKLI.SQL001
//SYSPUNCH DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DB2T)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARM('SQL')
/*
//SYSIN DD *
SELECT CHAR('CHECK DATA TABLESPACE ') ,
SUBSTR(STRIP(CHAR(DBNAME))!!'.' !!
STRIP(SUBSTR(NAME , 1 , 8))
, 1, 18) AS TSN,
CHAR('SCOPE PENDING ')
FROM SYSIBM.SYSTABLESPACE
WHERE STATUS IN('P', 'S')
AND (DBNAME LIKE 'B_CC%')
ORDER BY TSN ;
/*
//*------------------------------------------------------------------*
//DLCHK001 EXEC PGM=IEFBR14 DELETE PREVENTIF
//SYSPRINT DD SYSOUT=*
//DELETE DD DSN=&SYSUID..DB2CHKLI.SYSERR,
// SPACE=(TRK,(1,1),RLSE),DISP=(MOD,DELETE,DELETE)
//*------------------------------------------------------------------*
//EXCHK001 EXEC PGM=DSNUTILB,REGION=0M,PARM='DB2T,ESCCHK01'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//STPRIN01 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DSNTRACE DD SYSOUT=*
//SORTWK01 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK02 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK03 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK04 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SORTWK05 DD UNIT=(WORKDA,P),SPACE=(CYL,(15,50))
//SYSDISC DD SYSOUT=*
//*--- FIN DSNRPROC
//SYSERR DD UNIT=TESTDA,SPACE=(CYL,(5,5),RLSE),DISP=(,CATLG),
// DSN=&SYSUID..DB2CHKLI.SYSERR
//SYSIN DD DISP=SHR,DSN=DVZ67.DB2CHKLI.SQL001
//
// |
Partager