Garpen
New User
Joined: 03 Jan 2007 Posts: 14 Location: Sweden
|
|
|
|
One way :
//REORG EXEC PGM=DSNUTILB,PARM='DSNT,,',REGION=32M
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDISC DD DSN=&&SYSDISC,
// DISP=(,PASS),SPACE=(CYL,(150,50))
//SYSREC DD DSN=&&SYSREC,
// DISP=(,PASS),SPACE=(CYL,(150,50))
//SYSUT1 DD DSN=&&SYSUT1,
// DISP=(,PASS),SPACE=(CYL,(150,50))
//SORTOUT DD DSN=&&SORTOUT,
// DISP=(,PASS),SPACE=(CYL,(150,50))
//SYSIN DD *
REORG TABLESPACE dbname.tsname SORTNUM 8 SORTKEYS |
|