还是那只鱼-newcoin's blog

Display出database中所有的index以及tablespace的名字，以及是否处于某种pending的状态.

//SYSDISP  PROC

//RESET    EXEC PGM=IKJEFT01,DYNAMNBR=20

//STEPLIB  DD  DSN=SUN.SDSNLOAD,DISP=SHR

//SYSTSPRT DD  SYSOUT=*

//SYSPRINT DD  SYSOUT=*

//SYSUDUMP DD  SYSOUT=*

//OUTPUT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=27930)

//SYSTSIN  DD  DUMMY

//      PEND

//DISP01   EXEC SYSDISP

//SYSTSIN  DD  *

DSN SYSTEM(SUN)

-DIS DATABASE(DATABASE1) LIMIT(999)

END

/*

对处于pending状态的index进行REBUILD操作。

//REPAIR1 EXEC PGM=DSNUTILB,PARM=’SUN’,COND=EVEN

//STEPLIB  DD  DSN=SUN.SDSNLOAD,DISP=SHR

//SYSPRINT DD  SYSOUT=*

//UTPRINT  DD  SYSOUT=*

//SYSUDUMP DD  SYSOUT=*

//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,10))

//SYSIN    DD  *

REBUILD INDEX(schema.index)

/*