PM33455: Print from called program abends on iSeries

APAR status

• Closed as program error.

Error description

• User has generated a EGL cobol called program to run on
  iSeries.
  
  This program prints a form.
  
  If this program is called from the command prompt, it crashes
  with an MCH error
  which indicates an unset pointer being used.
  
  The problem happens when Rational Business Developer version
  7.5.1.6 or 8.0.1 or earlier is used.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problem occurs only when a called EGL program (one what
  does not have a main EGL invoking it) uses a print map, but
  does not have any other calls to any other EGL programs. If
  there is a call to another EGL program, then this defect
  will not appear. The problem was that in program
  termination, the software would take the resource list and
  process it by calling the resources on the list, expecting
  the termination flag to have been set. The cobolgen template
  for this logic failed to set the termination flag properly,
  if a print form existed. It only did this if there was a
  called program. This caused the print program to try to
  execute a compound IF statement that tried to access memory
  that wasn't mapped, resulting in "pointer not set for ..."
  error. Had the termination flag been set, then the compound
  IF would not have tried to access the unmapped memory.
  

Problem conclusion

• problem has been fixed, fix test is available
  

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:

Fix information

• Fixed component name

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R751 PSN

     UP