Example 7: Reloading an area that is registered with DBRC by using the LOADCTL subcommand

The following figure shows example JCL for reloading an area that is registered with DBRC and the LOADCTL subcommand.

This example shows the case of a Reload by using the unloaded segment records data set that is produced by Example 1: Unloading an area that is registered with DBRC.

In this example:

  • RECON data sets are allocated dynamically by using the DFSMDA members in the IMSDALIB DD data set.
  • The input unloaded segment records data set for the area is HPFP.USRFILE.DB22AR0, which is specified by the IDSNMASK='HPFP.USRFILE.&AREA' parameter. This data set is allocated dynamically.
  • The output ADSs to be unloaded are dynamically allocated. The allocation information (DD statement name and DS name of the ADS) is obtained from DBRC. The output ADSs must be defined before running this example.
  • After reloading, the RECOV NEEDED status of area DB22AR0 is changed to OFF, and all three ADSs of the area are made AVAILABLE with DBRC.
  • By the specification of the first LOADCTL subcommand, up to 10 segments of segment name DD1 are inserted ordinarily, and segments after the 11th are inserted into IOVF.
  • By the specification of the second LOADCTL subcommand, up to five segments of segment name DD4 are inserted ordinarily, and segments over six, DD4, and its dependent segments are inserted into DOVF.
  • By the specification of the third LOADCTL subcommand, all dependent segments of segment name DD5 are inserted into IOVF.
Figure 1. Reloading an area that is registered with DBRC by using the LOADCTL subcommand
//HFP      EXEC PGM=HFPMAIN0 
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0 
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL 
//         DD DISP=SHR,DSN=IMSVS.PGMLIB 
//IMSACB   DD DISP=SHR,DSN=IMSVS.ACBLIB 
//IMSDALIB DD DISP=SHR,DSN=IMSVS.MDALIB 
//HFPRPTS  DD SYSOUT=* 
//HFPPRINT DD SYSOUT=* 
//HFPSYSIN DD * 
GLOBAL 
  DBRC=YES 
RELOAD 
  DBD=DEDBJN22, 
  IAREA=(DB22AR0), 
  IDSNMASK='HPFP.USRFILE.&AREA',
  OAREA=(DB22AR0)
  LOADCTL SEGMENT=(DD1,ONLY),LOCATION=IOVF,ILC=10
  LOADCTL SEGMENT=(DD4,BOTH),LOCATION=DOVF,ILC=5
  LOADCTL SEGMENT=(DD5,DEPENDENTS),LOCATION=IOVF,ILC=0
/*