PK39968: PROVIDE THE OPTIONAL FUNCTION TO GET DIAGNOSTIC DATA WHEN HPIC FINDS A CONFLICT READING DBRC RECORDS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• This code will REPRO the entire RECON data set when DBRC
  can't read Image Copy information due to incomplete DB/DBDS
  records.
  

Local fix

• No work around
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS High Performance Image Copy for z/OS *
  *                 Version 4 Release 1 users ( FMID=H1J0410 )   *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR provides a diagnostic         *
  *                      function that writes REPRO data of DBRC *
  *                      RECON data set when DB record and DBDS  *
  *                      record are conflict.                    *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  This APAR provides a diagnostic function that writes REPRO data
  of DBRC RECON data set when DB record and DBDS record are
  conflict.
  The data is created by following conditions:
  - FABJRDMP DD is defined
  - DBDS record is found in RECON, but its corresponding DB record
    is not found at the Image Copy function or Recovery
    function
  - IC record is found in RECON, but its corresponding DBDS record
    is not found at the Recovery function.
  When these cases happen, HPIC runs REPRO internally and makes
  RECON copy as QSAM.
  

Problem conclusion

• FABJMAIN has been modified to set a new indicator to get a
  diagnostic data.
  
  FABUARCN has been modified to initialize the above indicator to
  get a diagnostic data.
  
  FABJARC0 has been reassembled.
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  IMS High Performance Image Copy for z/OS Version 4 Release 1
  User's Guide SC18-9409-00 ( SC18940900 ) should be changed as
  follows:
  
  Add new DD statement information:
  2 Operating Instructions
   2.2 JCL Requirements
    2.2.1 FABJMAIN JCL
    +------------------------------------------------------------+
    |Table 1. DD statements of the FABJMAIN JCL                  |
    |----------+--------+-------+------------+-------------------|
    | DDNAME   | USE    | RECFM | FORMAT     |Required or        |
    |          |        |       |            |  Optional         |
    |----------+--------+-------+------------+-------------------|
        :
  | |----------+--------+-------+------------+-------------------|
  | | FABJRDMP | output |  VBA  | LRECL=     |  Optional         |
  | |          |        |       | (RECON CI  |                   |
  | |          |        |       |  size)+4   |                   |
  | |----------+--------+-------+------------+-------------------|
  
    :
  
  | FABJRDMP DD
  | This is optional output data set for diagnosis which the RECON
  | REPRO output is stored as QSAM.
  | HPIC runs REPRO and store RECON data set into the data set of
  | FABJRDMP DD, when the DD is defined under following
  | conditions:
  |  - DBDS record is found in RECON, but its corresponding DB
  |    record is not found at the Image Copy function or Recovery
  |    function
  |  - IC record is found in RECON, but its corresponding DBDS
  |    record is not found at the Recovery function.
  
  | The tape drives are not supported.
  
  | It is optional.
  
  | The specification is as follows:
  |    //FABJRDMP DD  DISP=OLD,DSN=dataset_name
  
  |    dataset_name: the data set name where REPRO output is
  |    stored.
  
  | The following JCL is a sample.
  | //DEF#DMP EXEC PGM=IEFBR14
  | //RDUMPDS DD DSN=TEMPDS.RCNDUMP,
  | //           DISP=(,CATLG),
  | //           DCB=(DSORG=PS,RECFM=VBA,LRECL=2048),
  | //           SPACE=(CYL,(1,1)),UNIT=SYSDA
  | //ICOPY   EXEC PGM=FABJMAIN,REGION=0M,COND(4,LT)
  | //STEPLIB   DD DISP=SHR,DSN=&HPSLIB
  | //          DD DISP=SHR,DSN=&IMSRES
  | //DFSRESLIB DD DISP=SHR,DSN=&IMSRES
  | //IMS       DD DISP=SHR,DSN=xxx
  | //IMSDALIB  DD DISP=SHR,DNS=xxxx
  | //RECON1    DD DISP=SHR,DSN=xxxxx
  | //RECON2    DD DISP=SHR,DSN=xxxxxx
  | //RECON3    DD DISP=SHR,DSN=xxxxxxx
  | //SYSPRINT  DD SYSOUT=*
  | //ICEPRINT  DD SYSOUT=*
  | //DFSPRINT  DD SYSOUT=*
  | //FABJRDMP  DD DISP=OLD,DSN=TEMPDS.RCNDUMP
  | //ICEIN     DD *
  |           :
  

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:

  UK22520

Modules/Macros

• FABJARC0 FABJMAIN FABUARCN
  

Fix information

• Fixed component name

  IMS HP IMAGE CO

• Fixed component ID

  5655K9600

Applicable component levels

• R410 PSY UK22520

     UP07/02/28 P F702

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.