PN37778: COBOL/370 PGM RUN UNDER LE/370 AND CODE/370 USING MFI GETS MSGEQA1456S FOR ASSIGNED VARIABLE WHEN PGM IS IN AUTHORIZED DS.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A small COBOL/370 program has a working storage data item named
  NUM-GROUPS. In the procedure division, a MOVE 10 TO NUM-GROUPS
  is executed. If this program is executed using the CODE/370
  MFI, after the MOVE 10 TO NUM-GROUPS statement is executed, if
  a CODE/370 LIST NUM-GROUPS command is issued, then message
  EQA1456S The variable NUM-GROUPS is undefined or is incorrectly
  qualified is issued. This only happens if the COBOL/370 program
  is LINKED into an authorized dataset. Note!!!! LE/370 SCEERUN
  is not authorized, only the COBOL/370 application.
  Other items related to seeing this failure are that
  the COBOL/370 program is COMPILED with the RENT option,
  and the program is linked RENT, AMODE=24, and RMODE=24.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Debug Tool user that put load module in APF. *
  ****************************************************************
  * PROBLEM DESCRIPTION: When a Cobol load module is placed in   *
  *                      authorized area and Debug Tool LIST     *
  *                      command is issued, either incorrect     *
  *                      result or ABEND will occur.             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  If a COBOL program compiled with RENT is loaded in authorized
  area, either ABEND or incorrect result will occur when LIST
  command of Debug Tool is entered.
  

Problem conclusion

• The SHUNT routine in IGZICA2 is incorrect. IGZICA2 is changed
  to fix the problem.
  

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:

  UN48813 UN48814 UN48815 UN48816

Modules/Macros

•    IGZICA2
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R12P PSY UN48815

     UP94/01/25 P 9401

• R121 PSY UN48813

     UP93/09/10 P F309

• R22N PSY UN48816

     UP94/01/25 P 9401

• R220 PSY UN48814

     UP93/09/10 P F309

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.