HSMPRESS helps you maintain and monitor DFSMShsm. HSMPRESS
contains a job that reorganizes the control data sets. Refer to Figure 1 for an example listing of the HSMPRESS
member.
Ensure that the following parameters are changed before running
HSMPRESS:
- Parameter
- Description
- ?UID
- Defines the authorized user ID for the DFSMShsm-started
procedure. An authorized user ID is up to 7 characters long. This
ID is also used as the high-level qualifier for the DFSMShsm-managed
data sets.
- ?NEW
- Defines an extention name for the new CDS being created from the
import. Because of the name change made to the CDS, you must update
the associated proclib member with the new CDS names.
If you wish to enlarge the CDS, preallocate a larger data set with
the new size (either a new data set or delete the old data set and
reallocate it with the same name), and then import. Again, if a new
name is used, be sure to update the associated proclib member with
the new CDS names.
This procedure assumes that the MCDS and BCDS are single cluster
CDSs.
Guideline: Use the QUERY CONTROLDATASETS command to determine
how full the control data sets are. Do not perform frequent “reorgs”
of DFSMShsm control
data sets. Unlike other databases, reorganizing DFSMShsm control
data sets degrades performance for about three weeks. The only time
that you should perform a reorganization is when you are moving or
reallocating the data sets to a larger size or multiple clusters to
account for growth. For these rare instances, use the HSMPRESS job.
Note: xCDSs DD statements with DISP=OLD keep other jobs from
accessing the CDSs during the EXPORT/IMPORT process.
Attention: Before running this job, you must shut down
all instances of DFSMShsm that
share the CDSs.
Figure 1. Example Listing of Member
HSMPRESS Part 1 of 2//COMPRESS JOB ?JOBPARM
//*
//****************************************************************/
//* THIS SAMPLE JOB IS TO COMPRESS THE CONTROL DATA SETS. */
//* */
//* NOTE: BEFORE RUNNING THIS JOB, YOU MUST SHUT DOWN ALL */
//* ALL INSTANCES OF DFSMSHSM THAT SHARE THE CDS'S. */
//* */
//* REPLACE THE ?UID VARIABLE WITH THE NAME OF THE DFSMSHSM- */
//* AUTHORIZED USER ID (1 TO 7 CHARACTERS). */
//* */
//* (NOTE: UID AUTHORIZATION IS VALID IN A NON-FACILITY CLASS */
//* ENVIRONMENT ONLY, OTHERWISE, FACILITY CLASS PROFILES WILL BE */
//* USED FOR AUTHORIZATION CHECKING.) */
//* */
//* REPLACE THE ?NEW VARIABLE WITH AN EXTENSION NAME FOR THE */
//* NEW CDS BEING CREATED FROM THE IMPORT. BECAUSE OF THE NAME */
//* CHANGE MADE TO THE CDS, MAKE SURE TO UPDATE THE ASSOCIATED */
//* PROCLIB MEMBER WITH THE NEW CDS NAME(S). */
//* */
//* IF YOU WISH TO ENLARGE THE CDS, PREALLOCATE A LARGER DATA */
//* SET WITH THE NEW SIZE (EITHER A NEW DATA SET, OR DELETE THE */
//* OLD DATA SET AND REALLOCATE WITH SAME NAME) THEN IMPORT. */
//* AGAIN, IF A NEW NAME IS USED, BE SURE TO UPDATE THE */
//* ASSOCIATED PROCLIB MEMBER WITH THE NEW CDS NAME(S). */
//* */
//* THIS PROCEDURE ASSUMES THAT THE MCDS AND BCDS ARE SINGLE */
//* CLUSTER CDS'S. */
//* */
//* Note: xCDS'S DD STMTS WITH DISP=OLD WILL KEEP OTHER JOBS */
//* FROM ACCESSING THE CDS'S DURING THE EXPORT/IMPORT PROCESS. */
//****************************************************************/
//*
//ALLOCATE EXEC PGM=IEFBR14
//EXPMCDS DD DSN=?UID.EXPORT.MCDS,DISP=(,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(20,2))
//EXPBCDS DD DSN=?UID.EXPORT.BCDS,DISP=(,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(20,2))
//EXPOCDS DD DSN=?UID.EXPORT.OCDS,DISP=(,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(20,2))
//*
//IDCAMS EXEC PGM=IDCAMS,REGION=512K
//MCDS DD DSN=?UID.MCDS,DISP=OLD
//BCDS DD DSN=?UID.BCDS,DISP=OLD
//OCDS DD DSN=?UID.OCDS,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENT(?UID.MCDS ?UID.BCDS ?UID.OCDS) ALL
EXAMINE NAME(?UID.MCDS) INDEXTEST
IF LASTCC = 0 THEN -
EXPORT ?UID.MCDS ODS(?UID.EXPORT.MCDS) TEMPORARY
IF LASTCC = 0 THEN -
IMPORT IDS(?UID.EXPORT.MCDS) ODS(?UID.MCDS.?NEW) -
OBJECTS -
((?UID.MCDS -
NEWNAME(?UID.MCDS.?NEW)) -
(?UID.MCDS.DATA -
NEWNAME(?UID.MCDS.?NEW.DATA)) -
(?UID.MCDS.INDEX -
NEWNAME(?UID.MCDS.?NEW.INDEX))) -
CATALOG(?UCATNAM)
IF MAXCC = 0 THEN -
DELETE ?UID.EXPORT.MCDS NONVSAM
EXAMINE NAME(?UID.BCDS) INDEXTEST
IF LASTCC = 0 THEN -
EXPORT ?UID.BCDS ODS(?UID.EXPORT.BCDS) TEMPORARY
Figure 2. Example Listing of Member HSMPRESS Part
2 of 2IF LASTCC = 0 THEN -
IMPORT IDS(?UID.EXPORT.BCDS) ODS(?UID.BCDS.?NEW) -
OBJECTS -
((?UID.BCDS -
NEWNAME(?UID.BCDS.?NEW)) -
(?UID.BCDS.DATA -
NEWNAME(?UID.BCDS.?NEW.DATA)) -
(?UID.BCDS.INDEX -
NEWNAME(?UID.BCDS.?NEW.INDEX))) -
CATALOG(?UCATNAM)
IF MAXCC = 0 THEN -
DELETE ?UID.EXPORT.BCDS NONVSAM
EXAMINE NAME(?UID.OCDS) INDEXTEST
IF LASTCC = 0 THEN -
EXPORT ?UID.OCDS ODS(?UID.EXPORT.OCDS) TEMPORARY
IF LASTCC = 0 THEN -
IMPORT IDS(?UID.EXPORT.OCDS) ODS(?UID.OCDS.?NEW) -
OBJECTS -
((?UID.OCDS -
NEWNAME(?UID.OCDS.?NEW)) -
(?UID.OCDS.DATA -
NEWNAME(?UID.OCDS.?NEW.DATA)) -
(?UID.OCDS.INDEX -
NEWNAME(?UID.OCDS.?NEW.INDEX))) -
CATALOG(?UCATNAM)
IF MAXCC = 0 THEN -
DELETE ?UID.EXPORT.OCDS NONVSAM
LISTCAT ENT(?UID.MCDS.NEW ?UID.BCDS.NEW ?UID.OCDS.NEW) ALL
/*