GaganGarg
Active User
Joined: 31 Mar 2010 Posts: 134 Location: India
|
|
|
|
Hi,
I want to run REORG utility for one of the tables.
Below is the jcl that I am using:
Code: |
//REORG01 EXEC PGM=DSNUTILB,PARM=(DB2F,'ABCJ904')
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD SPACE=(CYL,(300,300),RLSE),VOLUME=(,,,59)
//SYSUT1 DD SPACE=(CYL,(300,300),RLSE),VOLUME=(,,,59)
//SYSREC DD SPACE=(CYL,(300,300),RLSE),VOLUME=(,,,59)
//SYSPUNCH DD SPACE=(CYL,(2,1),RLSE)
//SYSDISC DD DSN=OPERA12.DISCARD(+1),
// DISP=(NEW,CATLG,CATLG),UNIT=(VTAPE,,DEFER),
// VOLUME=(,,,59),
// DCB=(HBC.DSCB,BLKSIZE=32760,DEN=4)
//SLSCOPY DD DSN=OPERA12.SSLS001(+1),
// DISP=(NEW,CATLG,CATLG),UNIT=(VTAPE,,DEFER),
// VOLUME=(,,,59),
// DCB=(HBC.DSCB,BLKSIZE=32760,DEN=4)
//SYSIN DD *
REORG TABLESPACE DSLS001F.SSLS001 LOG NO
COPYDDN (SLSCOPY)
DISCARD FROM TABLE DEVF.TSLS001_HST
WHEN (WK_CCYY <= YEARS(CURRENT DATE - 2 YEAR)
SORTDATA
SHRLEVEL REFERENCE
/*
|
It is throwing MAXCC=08 which is shown below:
Code: |
******************************** TOP OF DATA **********************************
DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = IMZJ904
DSNUGTIS - PROCESSING SYSIN AS EBCDIC
DSNUGPRW - REORG TABLESPACE DSLS001F.SSLS001 LOG NO
DSNUGPRW - COPYDDN (SLSCOPY)
DSNUGPRW - DISCARD FROM TABLE DEVF.TSLS001_HST
DSNUGPRW - WHEN (WK_CCYY <= YEARS(CURRENT DATE - 2 YEAR))
DSNUGPRW - INVALID KEYWORD - CURRENT
DSNUGPRW - SORTDATA
DSNUGPRW - SHRLEVEL REFERENCE
DSNUGBAC - UTILITY EXECUTION TERMINATED, HIGHEST RETURN CODE=8
******************************* BOTTOM OF DATA ********************************
|
Here WK_CCYY is a column in the table TSLS001_HST which contains the YEAR only. so i want to select the year portion of (CURRENT DATE - 2).
Can anybody please help me?
PS: JCL works fine for WK-CCYY < CURRENT DATE - 2 YEAR |
|