PH26882: S0C8 EXCEPTIONS IN IGZXFCAL, RESULTING IN HIGH CPU

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the fixed-point overflow mask bit in the PSW is on, a
  dynamic call from COBOL V6.2 program to COBOL V4.2 program can
  generate a s0c8 in IGZXFCAL or IGZXHS8.  The fixed point
  overflow condition is raised and it is silently ignored with
  performance penalty.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5 and later       *
  *                 releases running mixed language              *
  *                 applications (COBOL mixed with C/C++ or      *
  *                 PL/I), with COBOL programs using dynamic     *
  *                 calls by name where program names are        *
  *                 specified in lower case.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: S0C8 fixed-point overflow exceptions    *
  *                      raised in CSECT IGZXFCAL offset         *
  *                      x'134', leading to high CPU consumption *
  *                      at this location.                       *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  COBOL runtime uses a hash value of program name to organize the
  directory of programs used in dynamic calls. When lower case
  name is used in the CALL statement, computation of this hash
  may involve fixed-point overflow (i.e. integer wrap around).
  Normally this would not be a problem as COBOL semantics allows
  fixed-point overflow (fixed-point overflow is disabled in the
  program mask). But if other languages are in the application
  and fixed-point overflow is enabled, the exception would lead
  to extra processing in LE to handle the condition, which causes
  high CPU consumption. (Note: Since LE would ignore the
  exception and resume due to COBOL semantics, the program would
  still complete successfully.)
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  

Problem conclusion

• The COBOL runtime hash function used in dynamic call is modified
  to handle lower case name without fixed-point overflow.
  

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:

  UI70343 UI70444 UI70450 UI70451

Modules/Macros

• IGZBALCT IGZCEV4  IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZXAPI  IGZXCDA  IGZXD24  IGZXDMR  IGZXLPIO
  IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG
  IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI70444

     UP20/07/24 P F007

• R7B0 PSY UI70343

     UP20/08/03 P F007

• R7C0 PSY UI70450

     UP20/07/24 P F007

• R7CJ PSY UI70451

     UP20/07/24 P F007

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.