A fix is available
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 number
PI26112
Reported component name
IM DB SOLUTION
Reported component ID
5655S7700
Reported release
210
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2014-09-19
Closed date
2014-11-07
Last modified date
2014-12-01
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
SC19410200 |
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.
[{"Line of Business":{"code":null,"label":null},"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SSCV358","label":"IMS Database Solution Pack"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"2.1.0"}]
Document Information
Modified date:
23 October 2020