PI50882: AFTER UI25594, USE OF INITIALIZE WITH TARGET DATA ITEM THAT IS A GROUP CONTAINING TABLES PRODUCES UNEXPECTED RESULTS.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• After UI25594, use of the INITIALIZE statement with a target
  data item that is a group that contains tables results in
  changes to data items in the tables that should be left
  unaffected by the INITIALIZE operation.
  
  USERS AFFECTED:  Users of Enterprise COBOL V5.1 compiling
  and running programs that have INITIALIZE statements with a
  target data item that is a group that contains tables (OCCURS).
  If the table contains FILLER, USAGE INDEX, USAGE POINTER,
  SAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER,
  USAGE OBJECT-REFERENCE data items, or if the INITIALIZE
  statement has a REPLACING phrase which does not specify all
  data categories represented by data items in the table, then
  such data items can be incorrectly modified by the INITIALIZE
  statement.
  
  PROBLEM DESCRIPTION:  Incorrect output.  The above
  INITIALIZE statements would change more fields than they were
  supposed to.  The fields that should not have been changed
  (i.e., FILLERUSAGE INDEX, USAGE POINTER, USAGE FUNCTION-POINTER,
  USAGE PROCEDURE-POINTER, and USAGE OBJECT-REFERENCE fields) may
  be set to arbitrary values instead of maintaining the values
  they possessed prior to the INITIALIZE statement being executed.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling     *
  *                 and running programs that have INITIALIZE    *
  *                 statements with a target data item that is a *
  *                 group that contains tables (OCCURS).         *
  *                 If the table contains FILLER, USAGE INDEX,   *
  *                 USAGE POINTER,USAGE FUNCTION-POINTER, USAGE  *
  *                 PROCEDURE-POINTER,USAGE OBJECT-REFERENCE     *
  *                 data items, or if the INITIALIZE statement   *
  *                 has a REPLACING phrase which does not        *
  *                 specify all data categories represented by   *
  *                 data items in the table, then such data      *
  *                 items can be incorrectly modified by the     *
  *                 INITIALIZE statement.                        *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output.  The above            *
  *                      INITIALIZE statements would change more *
  *                      fields than they were supposed          *
  *                      to.  The fields that should not have    *
  *                      been changed (i.e., FILLER, USAGE       *
  *                      INDEX, USAGE POINTER, USAGE             *
  *                      FUNCTION-POINTER, USAGE                 *
  *                      PROCEDURE-POINTER, and USAGE            *
  *                      OBJECT-REFERENCE fields) may be set to  *
  *                      arbitrary values instead of maintaining *
  *                      the values they possessed prior to the  *
  *                      INITIALIZE statement being executed.    *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  INITIALIZE statement processing was enhanced in a previous PTF
  to improve performance but this introduced a problem whereby
  certain categories of data that were not supposed to be modified
  during INITIALIZE processing could be inadvertently modified.
  

Problem conclusion

• The compiler was updated so that the improved performance of
  INITIALIZE is preserved but the categories of data that should
  not be modified by INITIALIZE now maintain their pre-INITIALIZE
  values during INITIALIZE processing.
  

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:

  PI50960 UI32598 UI32599

Modules/Macros

• IGYEJA$0 IGYEJA$1 IGYEJA$3 IGYEJA$5 IGYFFIB
  IGYFFIB1 IGYGCNTL IGYKCNTL IGYKSTAT IGYLLIBO IGYNDATA IGYPINIT
  IGYPINI2 IGYPINSP IGYPSRVE IGYPTEXT IGYPTMGT IGYQPR15 IGYSCNTL
  IGYSITEM IGYWCNTL IGYWSYM
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI32598

     UP15/11/05 P F511

• R512 PSY UI32599

     UP15/11/05 P F511

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.