PI51574: RETPD VALUE ON IC/AIC STATEMENT DOESN'T OVERRIDE RETPD ON THE GLOBAL STATEMENT WHEN STACK OPTION IS USED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• RETPD value on IC/AIC statement does not override RETPD on the
  GLOBAL statement when STACK option is used
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS High Performance Image Copy for z/OS *
  *                 Version 4 Release 2 users ( FMID=H1J0420 )   *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR fixes following two problems: *
  *                      - IMS HP Image Copy does not overwrite  *
  *                        RETPD and EXPDT keyword, that is      *
  *                        defined in GLOBAL statement, by       *
  *                        IC/AIC, CIC/ACIC, and GROUP statement *
  *                        when using STACK option.              *
  *                      - HP Image Copy function terminates     *
  *                        with ABEND S0C4 ( ABEND0C4 ) under    *
  *                        the following conditions:             *
  *                        - STACK keyword is specified.         *
  *                        - Output image copy data set is       *
  *                          allocated by a JCL DD card.         *
  *                        - The length of the UNIT name for the *
  *                          output image copy data set is 8     *
  *                          bytes.                              *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  This APAR fixes following two problems:
  - IMS HP Image Copy does not overwrite RETPD and EXPDT keyword,
    that is defined in GLOBAL statement, by IC/AIC, CIC/ACIC,
    and GROUP statement when using STACK option.
  
    When RETPD or EXPDT keyword is supplied in IC/AIC, CIC/ACIC,
    and GROUP statement with STACK option, the value of them are
    not used in the process and expiration date of each allocated
    image copy data set is not expected value.
    IMS HP Image Copy allocates dummy data set dynamically when
    using STACK option.  If the RETPD or EXPDT is defined in
    GLOBAL statement, its value is used as an allocation
    parameter.  However, about allocation information of each
    image copy data set that is supplied by JFCB control block,
    IMS HP Image Copy does not modify the EXPDT field by
    specified value in other statements.
  
  - IMS HP Image Copy function terminates with ABEND S0C4
     ( ABEND0C4 ) under the following conditions:
    - STACK keyword is specified.
    - Output image copy data set is allocated by a JCL DD card.
    - The length of the UNIT name for the output image copy data
      set is 8 bytes.
  
    When stack output data set is allocated by a JCL DD card, IMS
    HP Image Copy calculates the length of the UNIT name by
    finding blank character.  However, if the length of the UNIT
    name is 8 bytes, IMS HP Image Copy refers the address beyond
    GETMAINed area until it finds blank character.
    As a result, IMS HP Image Copy terminates with ABEND S0C4
  

Problem conclusion

• By this APAR, IMS HP Image copy modifies the EXPDT field in
  JFCB control block correctly by specified value in other
  statements.  Also by this APAR, IMS HP Image Copy calculates
  the length of the UNIT name correctly, if stack output data set
  is allocated by a JCL DD card.
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  IMS High Performance Image Copy for z/OS Version 4 Release 2
  User's Guide SC19-2756-01 ( SC19275601 ) should be changed as
  follows:
  
  Part 3. Running IMS HP Image Copy
  Chapter 9. IMS HP Image Copy control statements and keywords
    ICEIN control statement keywords
      RETPD keyword
    :
    Default value
      None.
  | Note:
  | - When the Image Copy function using the STACK option is
  |   performed over two consecutive system days, RETPD parameter
  |   is applied for each image copy data set of the STACK DD on
  |   the basis of creation date of first image copy data set in
  |   the STACK DD.
    Considerations
  | - This keyword is effective only when output image copy data
  |   set is dynamically allocated.
    - If you specify FASTIC=(,COPY), this keyword is ignored.
    - EXPDT= and RETPD= are mutually exclusive.
  
      RETPD2 keyword
    :
    Default value
      None.
  | Note:
  | - When the Image Copy function using the STACK option is
  |   performed over two consecutive system days, RETPD parameter
  |   is applied for each image copy data set of the STACK DD on
  |   the basis of creation date of first image copy data set in
  |   the STACK DD.
  | Considerations
  | - This keyword is effective only when output image copy data
  |   set is dynamically allocated.
  
      RETPDn keyword
    :
    Default value
      None.
  | Note:
  | - When the Image Copy function using the STACK option is
  |   performed over two consecutive system days, RETPD parameter
  |   is applied for  each image copy data set of the STACK DD on
  |   the basis of creation date of first image copy data set in
  |   the STACK DD.
  | Considerations
  | - This keyword is effective only when output image copy data
  |   set is dynamically allocated.
  

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:

  UI33396

Modules/Macros

• FABJACQG FABJAPIM FABJASPM FABJATRC FABJCMDB
  FABJCRC0 FABJCRC1 FABJCRC3 FABJCTCV FABJCZCV FABJDALC FABJDALO
  FABJDALS FABJDATE FABJDBAL FABJDBCM FABJDBC1 FABJDBDA FABJDBDB
  FABJDBD2 FABJDBD3 FABJDBD4 FABJDBD9 FABJDBF0 FABJDBLK FABJDBRA
  FABJDBRB FABJDBR2 FABJDBR3 FABJDBR4 FABJDBR9 FABJDCTL FABJDDIM
  FABJDEMP FABJDFCA FABJDFCB FABJDFC2 FABJDFC3 FABJDFC4 FABJDFC9
  FABJDMPA FABJDMPB FABJDMP0 FABJDMP2 FABJDMP3 FABJDMP4 FABJDMP9
  FABJDOPN FABJDPSA FABJDPSB FABJDPS2 FABJDPS3 FABJDPS4 FABJDPS9
  FABJDPUT FABJDREQ FABJDRQS FABJDRSN FABJFCAI FABJFCCA FABJFCCB
  FABJFCCM FABJFCC2 FABJFCC3 FABJFCC4 FABJFCC9 FABJFCDA FABJFCDB
  FABJFCD2 FABJFCD3 FABJFCD4 FABJFCD9 FABJFDMP FABJGDGB FABJGLRP
  FABJICDD FABJIDXA FABJIDXB FABJIDX2 FABJIDX3 FABJIDX4 FABJIDX9
  FABJINT1 FABJINT2 FABJINT3 FABJIPRC FABJISDD FABJLINK FABJMAIN
  FABJMAS1 FABJMDPA FABJMDPB FABJMDP2 FABJMDP3 FABJMDP4 FABJMDP9
  FABJMRGE FABJMSUL FABJNTFC FABJNTFI FABJNTFS FABJOFDD FABJOFL0
  FABJOFL1 FABJORCA FABJORCB FABJORC2 FABJORC3 FABJORC4 FABJORC9
  FABJPARM FABJPRM2 FABJPRM3 FABJRCHA FABJRCHB FABJRCH2 FABJRCH3
  FABJRCH4 FABJRCH9 FABJRDBA FABJRDBB FABJRDB2 FABJRDB3 FABJRDB4
  FABJRDB9 FABJRETC FABJRETM FABJRFCA FABJRFCB FABJRFC2 FABJRFC3
  FABJRFC4 FABJRFC9 FABJRPT0 FABJRPT1 FABJSAS1 FABJSAS2 FABJSDBK
  FABJSTA  FABJTERM FABJTFSI FABJTGEN FABJTGET FABJTOI  FABJTOI2
  FABJUIC1 FABJXCR  FABJXHPC FABJXLIM H1J0420J
  

Fix information

• Fixed component name

  IMS HP IMAGE CO

• Fixed component ID

  5655K9600

Applicable component levels

• R420 PSY UI33396

     UP15/12/02 P F512

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.