PI19724: ABEND0C4 RC X'11' IN MODULE IGZEINI AT OFFSET X'14E' WHEN V5.1 USES CALL IDENTIFIER MORE THAN ONCE TO CALL SAME V4.2 PROGRAM

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the main program is COBOL 5.1 and the subroutine program
  is COBOL 4.2, and the subprogram is called multiple times
  alternating between CALL LITERAL/CALL IDENTIFIER calls to the
  subprogram, the result is an "ABEND0C4 in IGZEINI at offset
  14E", when the V5.1 program was compiled with the DYNAM option.
  
  - The problem does not occur if V5 calls V5
  - The problem does not occur if V4 calls V4.
  
  
  Example of Failing Code:
  
  The code looks like this:
  
  01  WS.
      05  MAIN-COUNTER          PIC 999 VALUE 0.
      05  MAIN-INCREMENT        PIC 9   VALUE 1.
      05  WS-COBSUB-V42         PIC X(8) VALUE 'COBSUB'.
  
  PROCEDURE DIVISION.
      DISPLAY "CALL WS-COBSUB-V42.".
      CALL WS-COBSUB-V42.
      DISPLAY "CALL 'COBSUB'.".
      CALL 'COBSUB'.
      DISPLAY "CALL WS-COBSUB-V42.".
      CALL WS-COBSUB-V42.            <= The abend0C4 occurs here!
  
      DISPLAY "CALL 'COBSUB'.".
      CALL 'COBSUB'.
      STOP RUN.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of COBOL V5.1 with COBOL V5.1 programs *
  *                 making dynamic CALLs to COBOL V4.2 (and      *
  *                 prior release) programs and the subprogram   *
  *                 is called multiple times alternating between *
  *                 CALL LITERAL/CALL IDENTIFIER calls to the    *
  *                 same subprogram.                             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: A system abend 0C4 reason code X'11'    *
  *                      occurred in module IGZEINI at offset    *
  *                      X'14E'.   "ABEND0C4".                   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The COBOL library uses an internal table to keep track of all
  the programs being called within a run-unit. There was a logic
  error in updating this table if the caller was COBOL V5.1 and
  the subprogram is COBOL V4.2, and if the program has been called
  with alternating identifier and literal. The 0C4 abend is due to
  an invalid access into this table.
  

Problem conclusion

• Apply provided service.
  

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:

  UI19787 UI19788

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24  IGZXLPIO IGZXLPKA
  IGZXLPKB IGZXLPKC IGZXPK2  IGZXRES3
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI19787

     UP14/07/30 P F407

• R790 PSY UI19788

     UP14/07/30 P F407

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.