Example 15: Unloading an area and changing the DEDB area definition when IMS management of ACBs is enabled

To run this example, the IMS catalog and the IMS management of ACBs must be enabled.

In this example, it is assumed that an area-specific randomizer is used so that a DEDB record is randomized to its original area. Also, in this example:

• The IMSACB DD statement is not specified. The ACB member is read from the IMS directory instead of the ACB library because IMSCATHLQ=IMSVS.CATALOG parameter is specified.
• To use IMS Tools Catalog Interface, the SGLXLOAD library of IMS Tools Base is included in the STEPLIB DD concatenation.
• The ACB member for the current DEDB definition is read from the IMS directory data set because IMSCATACB_INPUT=CURRENT is specified.
• The ACB member for new DEDB definition is read from the staging data set because IMSCATACB_OUTPUT=PENDING is specified.
• All database records are randomized by the randomizer that is loaded from the NEWRESLB DD data set.
• The output unloaded segment records data set is specified in the OAREA001 DD statement.
• The DBD information is written to the output unloaded segment records data set because ACBCHK=YES is specified.
• RECON data sets are allocated dynamically by using the DFSMDA members in the IMSDALIB DD data set.
• The input ADS to be unloaded is dynamically allocated. The allocation information (DD statement name and DS name of the ADS) is obtained from DBRC.

//HFP      EXEC PGM=HFPMAIN0
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL
//         DD DISP=SHR,DSN=IMSVS.PGMLIB
//         DD DISP=SHR,DSN=ITB.SGLXLOAD
//NEWRESLB DD DISP=SHR,DSN=IMSVS.PGMLIB.NEW
//IMSDALIB DD DISP=SHR,DSN=IMSVS.MDALIB
//OAREA001 DD DISP=OLD,DSN=HPFP.USRFILE
//HFPRPTS  DD SYSOUT=*
//HFPPRINT DD SYSOUT=*
//HFPSYSIN DD *
 GLOBAL
   DBRC=YES,
   IMSCATHLQ=IMSVS.CATALOG,
   IMSCATACB_INPUT=CURRENT
 UNLOAD
   DBD=DEDBJN22,
   IAREA=(DB22AR0),
   OAREA=(DB22AR0),
   IMSCATACB_OUTPUT=PENDING,
   ACBCHK=YES
/*