PI42528: CALL {IDENTIFIER} INCORRECTLY TRANSLATES PROGRAM NAME INITIAL EXTENSION CHARACTERS (@#$) TO J

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• With PGMNAME(COMPAT), if the program name's first character IS
  NOT alphabetic, an extension character @, #, or $, or an
  underscore, an initial character of 1-9 should be translated to
  A-I, with anything else translated to J.
  
  This works as intended for the CALL {literal} format, but not
  for CALL {identifier}, where extension characters are
  incorrectly translated to J.
  

Local fix

• If possible use CALL {literal} format
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5.1 or V5.2 users          *
  *                 compiling and running programs that have     *
  *                 CALL by identifier where the target MODULE   *
  *                 name contains extension characters @, #, and *
  *                 $.                                           *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: During CALL by identifier processing,   *
  *                      an erroneous transformation is done for *
  *                      the extension characters @, #, and $    *
  *                      for the MODULE name. For example, in    *
  *                      the code below:                         *
  *                         77 module pic x(8) value "#DATA"     *
  *                         ...                                  *
  *                         call module.                         *
  *                                                              *
  *                      the CALL statement results in an        *
  *                      attempt to call JDATA instead of #DATA. *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply provided service.                      *
  ****************************************************************
  The runtime routine that handles CALL by identifier incorrectly
  transformed the extension characters.
  
  FIXCAT keyword:  COB0501T/K   COB0502T/K
  

Problem conclusion

• The runtime routine that performed the incorrect transformation
  of the MODULE name extension characters for CALL by identifier
  processing was fixed.
  

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:

  UI29731 UI29732

Modules/Macros

•    IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI29731

     UP15/08/01 P F507

• R790 PSY UI29732

     UP15/08/01 P F507

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.