PI59147: INCORRECT PROGRAM NAME DETERMINATION FOR COBOL 5 PROGRAMS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• For programs compiled with COBOL 5, in the case of a chain of
  dynamic calls, CICS IA should report the first program in the
  chain but it is obtaining the name of a previous program.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * All users of CICS IA version 5.2                             *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * CICS IA presents the name of a previos program instead of    *
  * first in the chain for COBOL 5.                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * Apply PTF                                                    *
  ****************************************************************
  CICS IA must represent the first program in the chain, but for
  programs were compiled by COBOL 5, CICS IA obtains the name of a
  previous program in a chain. The reason of it is that program,
  was compiled by COBOL 5, saves the name of the first program in
  the chain in othe field of a control record.
  Abend 0c4 from CIUXCCD1 since a AMODE determination was
  incorrect.
  

Problem conclusion

• The user exit must use the correct element of control record if
  it found COBOL 5 module.
  The subroutine CHECK_DSPL in CIUXCCD1 need not check AMODE,
  because it uses the content in register as the address.
  

Temporary fix

Comments

APAR Information

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

  PI58119

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

  UI36287

Modules/Macros

• CUIMTI   CIU53XPI CIU62XPI CIU63XPI CIU64XPI CIU65XPI CIU66XPI
  CIU67XPI CIU68XPI CIU69XPI CIUACM61 CIUXACD1 CIUXACE2 CIUXACI1
  CIUXACL2 CIUXACO2 CIUXACO3 CIUXACP1 CIUXACR2 CIUXACR3 CIUXACS1
  CIUXACT1 CIUXCCD1 CIUXCCO1
  

Fix information

• Fixed component name

  CICS IA V5

• Fixed component ID

  5655Y2200

Applicable component levels

• R520 PSY UI36287

     UP16/03/25 P F603

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.