PH63224: IN AN LP(64) CEEDUMP, THE ODO ARRAYS IN LINKAGE SECTION DO NOT FORMAT CORRECTLY

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• In an LP(64) CEEDUMP, the ODO arrays in LINKAGE SECTION do not
  format correctly. These areas are missing the formatted contents
  of the individual array occurrences.
  
  
  AMODE31 Local Variables in CEEDUMP  (Correct)
  --------------------------------------------------------
  Local Variables:
   Variables for SUB31:
         22 01 WS-PROGRAM       X(8) DISP          'SUB31   '
         Etc...
         49    05 LS-CACHE-ARRAY   AN-GR  OCCURS 2
         56       10 LS-CACHE-RECORD  AN-GR
         57          15 LS-CACHE-KEY     AN-GR
         58             20 LS-KEY           X(3) DISP
                              SUB(1)
        'A  '
                              SUB(2)
        'B  '
         59          15 LS-CACHE-DATA    AN-GR
         60             20 LS-DATA          S9(3) CMP3
                              SUB(1)
        +001
                              SUB(2)
        *** Invalid data for this data type *** X'0000'
  
  
  AMODE64 Local Variables in CEEDUMP
  --------------------------------------------------------
  From CBLSERV.T01657.S3607.CEEDUMP.MAIN64
  
  Local Variables:
  
  
   Variables for SUB64:
  
  
         22 01 WS-PROGRAM       X(8) DISP         'SUB64   '
  
  
         Etc...
         49    05 LS-CACHE-ARRAY   AN-GR  OCCURS 0
  
  
         56       10 LS-CACHE-RECORD  AN-GR
  
  
         57          15 LS-CACHE-KEY     AN-GR
  
  
         58             20 LS-KEY           X(3) DISP
  
  
         59          15 LS-CACHE-DATA    AN-GR
  
  
         60             20 LS-DATA          S9(3) CMP3
  
  Notice the "OCCURS 0" on LS-CACHE-ARRAY.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.4 who are        *
  *                 compiling and running programs with the      *
  *                 LP(64) and TEST(DWARF)/NOTEST(DWARF)         *
  *                 compiler options in effect and who need to   *
  *                 view the contents of an ODO table that       *
  *                 resides in the LINKAGE section using either  *
  *                 a CEEDUMP file or the DebugTool debugger.    *
  ****************************************************************
  * PROBLEM DESCRIPTION: An incorrect value of the table's ODO   *
  *                      object is displayed and the contents of *
  *                      the ODO table itself are not displayed  *
  *                      correctly, including the possibility of *
  *                      missing rows.                           *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM-provided PTF                   *
  ****************************************************************
  The DWARF that was generated to describe an ODO table residing
  in the LINKAGE section for a program compiled with the LP(64)
  option in effect was using an incorrect length for the address
  of the table's ODO object.
  

Problem conclusion

• The compiler was updated to use the correct length of the
  address of the ODO object in the DWARF description of an ODO
  table that resides in the LINKAGE section of a program compiled
  with the LP(64) option in effect.
  

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:

  PH64245

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOSCN IGYCPGEN
  IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD
  IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8
  IGYCUE$D IGYCUE$R IGYCXREF IGYDRV   IGYEQCWI IGYMSGE  IGYMSGK
  IGYMSGT  IGYQCBE  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UI98832

     UP24/10/31 P F410

• R641 PSY UI98833

     UP24/10/31 P F410

• R642 PSY UI98834

     UP24/10/31 P F410

• R64H PSY UI98835

     UP24/10/31 P F410

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.