DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape

EJECT
*
*******************************************
* WORK AREA AND CONSTANTS *
*******************************************
SPACE
DS ØF
SAVEAREA DS 18F'Ø' MY SAVE AREA
RETCODE DC F'8' RETURN CODE
PARAM DC CL4' ' DB2 NAME FROM PARM LIST
PACKWKØ1 DS PL8
PACKWKØ2 DS PL8
EDWORK1Ø DS CL1Ø
LOOPCNT DC XL2'ØØØØ'
***********************************************************************
* OUTREC RECORD - PARAMETER DSECT *
***********************************************************************
OUTREC DC CL8Ø' ' OUTREC AREA
SPACE
PRTARVP DS ØCL8Ø ARVP PRINT AREA
DC CL4Ø' **** DSN6ARVP PARAMETER LIST **** '
DC CL4Ø' '
DC CL2' '
DC CL1Ø'ALCUNIT : '
DC CL7' '
PALCUNIT DC CL3' ' CYL/TRK/BLK
DC CL18' '
DC CL2' '
DC CL1Ø'ARCWTOR : '
DC CL7' '
PARCWTOR DC CL3' ' WTOR YES/NO
DC CL18' '
DC CL2' '
DC CL1Ø'ARCRETN : '
PARCRETN DC CL1Ø' ' RETENTION PERIOD
DC CLØ3'DAY'
DC CL15' '
DC CL2' '
DC CL1Ø'BLKSIZE : '
PBLKSIZE DC CL1Ø' ' BLKSIZE
DC CL18' '
DC CL2' '
DC CL1Ø'CATALOG : '
DC CL7' '
PCATALOG DC CL3' ' CATALOG YES/NO
DC CL18' '
DC CL2' '
DC CL1Ø'COMPACT : '
DC CL7' '
PCOMPACT DC CL3' ' COMPACT YES/NO
DC CL18' '
36
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.