PK11590: LE COMPLIANT COBOL APPLICATIONS THAT INCLUDE OLDER OS/VS COBOL PRETRANSLATED COPYBOOKS MAY ABEND DURING HANDLE PROCESSING.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL application receives an abend0C1 when it tries to handle
  a condition or abend.  The application contains an older pre-
  translated copybook from the OS/VS COBOL environment.  If the
  copybook contains a CICS Handle Condition Label( ) or a CICS
  Handle Abend Label( ), the CICS Handle Table Block (HTB) can
  be built incorrectly.  The HTB will have an incorrect address
  for the Label that should gain control if the Handle is invoked
  for a condition or abend.  The incorrect address may have EBCDIC
  values.
  
  ADDITONAL KEYWORDS: EISLANG RARG0 ARG0
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Cobol application abended AKEA after    *
  *                      attempting to drive a HANDLE CONDITION. *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In the reported problem, a Cobol application received a MAPFAIL
  response, this drove HANDLE code but an abend AKEA occurred when
  the HANDLE code was driven.
  
  The Cobol application contained copy books that had been
  pre-translated at the OS/VS Cobol level. This caused EISLANG (a
  byte which contains the language flags) to contain x'04'
  (EISCOBOL). The value x'04' is not tested in DFHEIP when it is
  determining the language of the program it is running because
  OS/VS Cobol is no longer supported for CICS Transaction Server
  for z/OS V3.1.  As a consequence, the logic that sets EISLANG
  defaulted the value to x'08', (assembler language). This caused
  a corruption in the HTB (handle table block). The HTB was
  referenced when the HANDLE code was driven, a bad branch address
  was picked up and the application abended AKEA.  Other reported
  symptoms (but not restricted to) include abends AEXY and AEXZ.
  
  Keywords: AbendAKEA AbendsAKEA AbendAEXZ AbendsAEXZ AbendAEXY
            AbendsAEXY DFHPG0001 msgDFHPG0001 PG0001
  

Problem conclusion

• DFHEIP has been modified and will now detect the existence of
  EISLANG being x'04' (OS/VS Cobol).  If detected, EISLANG will
  be refreshed with EISSPCOB, (cobol program).
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  UK09017

Modules/Macros

•    DFHEIP
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK09017

     UP05/11/15 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.