PK16561: AN ABENDU3002 OCCURS WHEN USING THE INTEGRATED TRANSLATOR PROCEEDURE AND AN EXEC CICS STARTBR DATASET (ALL) IS ENCOUNTERED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• An abendU3002 occurs when using the Integrated Translaor
  process with COBOL and CICS.  An exec cics request that included
  the parameter DATASET (ALL) was encountered.  Once the DUMP
  compiler parameter was added, a dump was taken for an abend0C4
  occurring in the translator csect dfhecmac +x'A50'.  Register 9
  is not valid, and it's contents were loaded through register 5
  that should have been an index for an array.  The index register
  5 was not initialized, and contained residual data.
    It looks like the index register needs to be initialized prior
  to using it in the do-while loop.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABENDU3002 occurs when using the COBOL  *
  *                      compiler with the CICS translator.      *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A COBOL program with an EXEC CICS STARTBR command coded that
  includes the DATASET(ALL) option is being compiled using the
  integrated translator. This results in the compile abending with
  ABENDU3002. This is because an array index pointer is not
  initialized correctly before validation of the figurative
  constant 'ALL' is started. The residual data in the array index
  pointer causes an invalid address to be used to access storage
  and a storage violation then occurs.
  
  Additional Keywords: S0C4 ABEND0C4 0C4 U3002 IGYPS0210 IGYCRCTL
  

Problem conclusion

• DFHECMAC has been changed to set the array index pointer before
  validation of figurative constants.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PK15329

• APAR is sysrouted TO one or more of the following:

  UK11039

Modules/Macros

•    DFHECMAC
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK11039

     UP06/01/27 P F601

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.