Examples for using the compression routines

Use the following examples for dumping database data sets using the compression routine.

Subtopics:

Example 1: Dumping a single database data set

The following figure is an example of a job to dump a data set with the ddname DBHI3A from a database named DI32DB01. The output data set ddname is DBAOUT1.

Figure 1. JCL example for dumping a single data set with compression
//DBDUMP   JOB
//*
//STEP1   EXEC PGM=DFSUDMP0,REGION=0K
//STEPLIB   DD DSNAME=HPS.SHPSLMD0,DISP=SHR
//          DD DSNAME=IMS.SDFSRESL,DISP=SHR
//DFSRESLB  DD DSNAME=IMS.SDFSRESL,DISP=SHR
//IMS       DD DSNAME=IMS.DBDLIB,DISP=SHR
//SYSPRINT  DD SYSOUT=A
//DBHI3A    DD DSNAME=IMS.DBHI3A,DISP=SHR
//DBAOUT1   DD DSNAME=IMS.DBAOUT1,DISP=(NEW,KEEP),
//             UNIT=TAPE,VOL=SER=DBDMP1,LABEL=(,SL)
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7
//SYSIN     DD *
D1 DI32DB01 DBHI3A   DBAOUT1          Y        DUMP SINGLE DS WITH COMP

Example 2: Dumping multiple database data sets

The following figure is an example of a job to dump two data sets with ddnames DBHI3A and DBHI3B from database named DI32DB01. Two copies of the data set DBHI3A are created.

Figure 2. JCL example for dumping multiple data sets with compression
//DBDUMP   JOB
//*
//STEP1   EXEC PGM=DFSRRC00,PARM='ULU,DFSUDMP0',REGION=0K
//STEPLIB   DD DSNAME=HPS.SHPSLMD0,DISP=SHR
//          DD DSNAME=IMS.SDFSRESL,DISP=SHR
//DFSRESLB  DD DSNAME=IMS.SDFSRESL,DISP=SHR
//IMS       DD DSNAME=IMS.DBDLIB,DISP=SHR
//SYSPRINT  DD SYSOUT=A
//DBHI3A    DD DSNAME=IMS.DBHI3A,DISP=SHR
//DBHI3B    DD DSNAME=IMS.DBHI3B,DISP=SHR
//DBAOUT1   DD DSNAME=IMS.DBAOUT1,DISP=(NEW,KEEP),
//             UNIT=TAPE,VOL=SER=DBDMP1,LABEL=(,SL)
//DBAOUT2   DD DSNAME=IMS.DBAOUT2,DISP=(NEW,KEEP),
//             UNIT=TAPE,VOL=SER=DBDMP2,LABEL=(,SL)
//DBBOUT1   DD DSNAME=IMS.DBBOUT1,DISP=(NEW,KEEP),
//             UNIT=TAPE,VOL=SER=DBDMP3,LABEL=(,SL)
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7
//SYSIN     DD *
D2 DI32DB01 DBHI3A   DBAOUT1  DBAOUT2 Y        DATA SET 1-DUMP 1+2
D1 DI32DB01 DBHI3B   DBBOUT1          Y        DATA SET 2-DUMP 1