//BOXWELLX  JOB (),'SE-DB2',CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//*
//* EXECUTE ALL THE REPAIR UTILITIES AND PARSE THE OUTPUT
//*
//* CUT AND PASTE THE REAPIR LIST IN THE SYSIN BELOW
//* CHANGE DSNA10.SDSNEXIT      TO BE YOUR DB2 EXIT LIBRARY
//* CHANGE DSNA10.SDSNLOAD      TO BE YOUR DB2 LOAD LIBRARY
//* CHANGE SSID                 TO BE YOUR DB2 SSID
//* CHANGE ALL MY.REPAIR.SYSOUT TO BE YOUR WISHED FOR DATASET NAME
//* CHANGE ALL SYSALLDA         TO BE YOUR WISHED FOR DISK UNIT NAME
//* CHANGE ISP.SISPPROC         TO BE YOUR WISHED ISPF REXX LIBRARY
//*                      WHERE YOU HAVE COPIED THE REXX AS NAME "NPI"
//* CHANGE ISP.SISPMENU         TO BE YOUR WISHED ISPF MESSAGE LIBRARY
//* CHANGE ISP.SISPTENU         TO BE YOUR WISHED ISPF TABLE LIBRARY
//*
//SCRATCH  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   DELETE 'MY.REPAIR.SYSOUT'
   SET MAXCC = 0
/*
//REPAIR   EXEC PGM=DSNUTILB,REGION=32M,PARM='SSID,REPAIR'
//STEPLIB  DD DISP=SHR,DSN=DSNA10.SDSNEXIT
//         DD DISP=SHR,DSN=DSNA10.SDSNLOAD
//SYSPRINT DD DISP=(,CATLG),
//            DSN=MY.REPAIR.SYSOUT,
//            UNIT=SYSALLDA,
//            DCB=(RECFM=VBA,LRECL=124,BLKSIZE=27998),
//            SPACE=(CYL,(9,99),RLSE)
//SYSIN    DD *
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
  REPAIR OBJECT LOG YES DBD DIAGNOSE DATABASE XXXXXXXX
/*
//REPREAD  EXEC PGM=IKJEFT01,REGION=32M
//SYSPROC  DD DISP=SHR,
//            DSN=ISP.SISPPROC
//REPIN    DD DISP=SHR,
//            DSN=MY.REPAIR.SYSOUT
//ISPMLIB  DD DISP=SHR,
//            DSN=ISP.SISPMENU
//ISPPROF  DD DSN=&&ISPPROF,DISP=(NEW,DELETE,DELETE),
//            UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB,DSORG=PO),
//            SPACE=(TRK,(1,1,1))
//ISPFILE  DD DSN=&&ISPFILE,DISP=(NEW,DELETE,DELETE),
//            UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB),
//            SPACE=(TRK,(1,1,1))
//ISPSLIB  DD DSN=&&ISPSLIB,DISP=(NEW,DELETE,DELETE),
//            UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB,DSORG=PO),
//            SPACE=(TRK,(1,1,1))
//ISPPLIB  DD DSN=&&ISPPLIB,DISP=(NEW,DELETE,DELETE),
//            UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=80,RECFM=FB,DSORG=PO),
//            SPACE=(TRK,(1,1,1))
//ISPTLIB  DD DSN=&&ISPTLIB,DISP=(NEW,DELETE,DELETE),
//            UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=27920,RECFM=FB,DSORG=PO),
//            SPACE=(TRK,(1,1,4))
//         DD DISP=SHR,
//            DSN=ISP.SISPTENU
//ISPLOG   DD DSN=&&ISPLOG1,DISP=(NEW,DELETE,DELETE),
//            DCB=(LRECL=125,BLKSIZE=129,RECFM=VA),
//            SPACE=(TRK,(1,1))
//SYSTSPRT DD SYSOUT=*
//REPLOG   DD SYSOUT=*
//SYSTSIN  DD *
  ISPSTART CMD(NPI)
/*