PI92522: IGZ0033S MESSAGE WHEN A COBOL V5+ PROGRAM DYNAMICALLY CALLS A COBOL PRE-V5+ PROGRAM WHICH ENABLES RTEREUS(ON)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• IGZ0033S message when a COBOL V5+ program dynamically calls a
  COBOL pre-V5+ program which enables RTEREUS(ON), the callee is
  incorrectly marked as AMODE(24) even though the callee is
  loaded above the line.
  
  IGZ0033S An attempt was made to pass a parameter address above
  16 megabytes to AMODE(24) program
  

Local fix

• None. Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5.1 and later      *
  *                 releases compiling and running AMODE(31)     *
  *                 programs with runtime option RTEREUS(ON)     *
  *                 that do dynamic calls to AMODE(31) COBOL     *
  *                 programs prior to COBOL 5.1.                 *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: The called subprogram may incorrectly   *
  *                      terminate with an IGZ0033S message.     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The AMODE(31) COBOL subprogram prior to COBOL 5.1 running under
  RTEREUS(ON) is incorrectly marked as AMODE(24) by the COBOL
  Runtime. When the COBOL subprogram is also the first one
  invoked under the RTEREUS(ON) environment and, later is
  dynamically called a second time with parameters by an
  AMODE(31) COBOL 5.1 and later dynamic caller, the diagnostic
  message IGZ0033S is issued due to the 31-bit parameters.
  

Problem conclusion

• The COBOL Runtime was changed to correctly mark AMODE(31)
  subprograms running under RTEREUS(ON) as AMODE(31).
  

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:

  PI93662

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI53889

     UP18/02/28 P F802

• R790 PSY UI53890

     UP18/02/28 P F802

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.