PI97414: Detect invalid DSA word zero signature during COBOL dynamic call

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• If an application has overwritten word zero of the caller's save
  area, an 0C4 may ensue during a dynamic call. This change will
  produce a diagnostic message instead.
  

Local fix

• Correct the overwrite.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.1 and later     *
  *                 releases compiling and running programs      *
  *                 that use dynamic CALL.                       *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND 0C4 during runtime when the       *
  *                      COBOL program is using dynamic CALL.    *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  New Function. If control information in the stack of a COBOL
  program is corrupted, and the program calls a sub-program using
  dynamic CALL, the call cannot be completed properly. A new
  diagnostic check is added to the COBOL Library to catch the
  error.
  

Problem conclusion

Temporary fix

Comments

• New Function.  The COBOL Library has added a diagnostic check
  when setting up dynamic CALL, and emits message IGZ0347 to
  indicate error if control information in the stack is corrupted.
  

APAR Information

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

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

  PI97717

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI56042

     UP18/06/01 P F805

• R790 PSY UI56043

     UP18/06/01 P F805

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.