PI26112: VOLSER PARAMETER PROBLEM WHEN COPYING HALDB

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• There are two problems:
  - To copy a HALDB to volume IMSP0G by image copy,
    I specified VOLSER(IMSP0G) parameter to COPYDBRC
    command in IHCSYSIN DD. However, new HALDB datasets
    were not allocated to volser IMSP0G, but volser IMSPD2
    which contains the copied HALDB.
  - To copy a HALDB to volume IMSP0G by DFSMSdss, I specified
    VOLSER(IMSP0G) parameter to COPYDBRC command in IHCSYSIN DD.
    However, ADR472E was issued because DFSMSdss was unable to
    select a target volume.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of IBM IMS Database Solution Pack V2.1 *
  *                 IMS HALDB Toolkit                            *
  ****************************************************************
  * PROBLEM DESCRIPTION: COPYDBRC function does not handle       *
  *                      VOLSER parameter properly.              *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  COPYDBRC function does not handle VOLSER parameter properly as
  follows:
   - VOLUME parameter of IDCAMS statement for the new dataset is
     created by copying from existing dataset when IDCAMS(YES) and
     VOLSER parameters are specified.
   - OUTDYNAM statement of DFSMSdss statement is not created when
     DFDSS(YES) and VOLSER parameters are specified.
  In addition, two problems are being addressed by this APAR.
   - Sample JCL, IHCECLON, goes into loop with the following
     message:
       IHC01000E  No COPY1 RECON detected
   - In a HALDB environment without DBRC, the DB recovery utility
     fails with RC=122 for a VSAM DBDS.
  

Problem conclusion

• IHCWCPY0 and IHCXIDCA have been changed to handle VOLSER
  parameter of COPYDBRC command properly.
  IHCECLON JCL has been changed to have a new INITRCN job step,
  and to modify DBRC job step.
  IHCUTIR1 has been changed to correct the logic for a VSAM DBDS.
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  IBM IMS Database Solution Pack for z/OS Version 2 Release 1
  IMS High Availability Large Database Toolkit for z/OS User's
  Guide (SC19-4102-00)
  ----------------------------------------------------------------
  Chapter 5. Using DBRC enhancement utilities
   - Cloning DBRC definitions for test environments
    - Figure 14. Sample JCL from member IHCECLON
  
   //*------------------------------------------------------------
   //*
   //*           Clone DBRC definitions to alternate RECON
   //*
   //*------------------------------------------------------------
   //*------------------------------------------------------------
   //*           Allocate RECON datasets
   //*------------------------------------------------------------
   //ALLO   EXEC PGM=IDCAMS
   //SYSPRINT DD SYSOUT=*
   //SYSIN    DD *
    DELETE the.other.RECON1
    DELETE the.other.RECON2
    DELETE the.other.RECON3
    SET MAXCC=0
    DEFINE CLUSTER(NAME(the.other.RECON1) VOL(volser) KEYS(32 0) -
           CISZ(8192) RECSZ(8100 8192)  CYLINDERS(2 2) -
           FREESPACE(30,10) INDEXED SHR(3 3) SPEED)
    DEFINE CLUSTER(NAME(the.other.RECON2) VOL(volser) KEYS(32 0) -
           CISZ(8192) RECSZ(8100 8192)  CYLINDERS(2 2) -
           FREESPACE(30,10) INDEXED SHR(3 3) SPEED)
    DEFINE CLUSTER(NAME(the.other.RECON3) VOL(volser) KEYS(32 0) -
           CISZ(8192) RECSZ(8100 8192)  CYLINDERS(2 2) -
           FREESPACE(30,10) INDEXED SHR(3 3) SPEED)
   //*------------------------------------------------------------
   //*           Create HALDB statements
   //*------------------------------------------------------------
   //CRE    EXEC PGM=IHCHALDB,
   //            REGION=60M
   //STEPLIB  DD DISP=SHR,DSN=your.SIHCLOAD
   //         DD DISP=SHR,DSN=your.SDFSRESL
   //DFSRESLB DD DISP=SHR,DSN=your.SDFSRESL
   //IMS      DD DISP=SHR,DSN=your.DBDLIB
   //RECON1   DD DISP=SHR,DSN=your.RECON1
   //RECON2   DD DISP=SHR,DSN=your.RECON2
   //RECON3   DD DISP=SHR,DSN=your.RECON3
   //MSGPRINT DD SYSOUT=*
   //SYSUDUMP DD SYSOUT=*
   //SYSOUT   DD SYSOUT=*
   //IHCSYSIN DD *
    COPYDBRC DBD(nnnnn) -
            DSNPREF(new.hlq) -
            DSNDBD(1) -
            INCLIND(YES) -
            TODD(DBRCOUT)
   /*
   //DBRCOUT  DD DISP=(,PASS),SPACE=(TRK,(1,1)),UNIT=SYSALLDA
  |//*---------------------------------------------------------
  |//*           INIT.RECON
  |//*---------------------------------------------------------
  |//INITRCN  EXEC PGM=DSPURX00,REGION=50M,COND=(4,LE)
  |//STEPLIB  DD DISP=SHR,DSN=your.SDFSRESL
  |//RECON1   DD DISP=SHR,DSN=the.other.RECON1
  |//RECON2   DD DISP=SHR,DSN=the.other.RECON2
  |//RECON3   DD DISP=SHR,DSN=the.other.RECON3
  |//DFSRESLB DD DISP=SHR,DSN=your.SDFSRESL
  |//IMS      DD DISP=SHR,DSN=your.DBDLIB
  |//SYSPRINT DD SYSOUT=*
  |//SYSIN    DD *
  | INIT.RECON NOFORCER CATDS TAPEUNIT(3480)
  |/*
   //*---------------------------------------------------------
   //*           APPLY TO OTHER DBRC
   //*---------------------------------------------------------
   //DBRC   EXEC PGM=IHCWHALD,
   //            REGION=60M
   //STEPLIB  DD DISP=SHR,DSN=your.SIHCLOAD
   //         DD DISP=SHR,DSN=your.SDFSRESL
   //DFSRESLB DD DISP=SHR,DSN=your.SDFSRESL
   //RECON1   DD DISP=SHR,DSN=the.other.RECON1
   //RECON2   DD DISP=SHR,DSN=the.other.RECON2
   //RECON3   DD DISP=SHR,DSN=the.other.RECON3
   //IMS      DD DISP=SHR,DSN=your.DBDLIB
   //TRACE    DD DUMMY
   //SYSPRINT DD SYSOUT=*
   //MSGPRINT DD SYSOUT=*
  |//SYSIN    DD DISP=(OLD,DELETE),DSN=*.CRE.DBRCOUT
   //IHCSYSIN DD *
      RUN   PGM(IHCYDBR0)
   //
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UI22838

Modules/Macros

• IHCECLON IHCULEV0 IHCUTIR1 IHCWCPY0 IHCXIDCA
  

Fix information

• Fixed component name

  IM DB SOLUTION

• Fixed component ID

  5655S7700

Applicable component levels

• R210 PSY UI22838

     UP14/11/11 P F411

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.