Fixes are available
APAR status
Closed as program error.
Error description
It is found that in a particular case, a generated Cobol identifier is 31 characters, and teh program fails compilation with IGYPS0023-E message. The generate code snippet is: ---- EZECLOSE-MYRESPONSE-4997-HARD SECTION. PERFORM EZEMQ-MYRESPONSE-4997-INIT MOVE "ELACCLS" TO EZEPROGM CALL EZEPROGM USING BY VALUE EZEMQ-EZERTS-PTR BY VALUE EZEMQ-CMMSGRCD-PTR BY VALUE EZEMQ-CMPRGSTA-PTR BY VALUE EZEMQ-CMCOMP-PTR CONTINUE. EZECLOSE-MYRESPONSE-4997-HARD-X. EXIT. ----- EZECLOSE-MYRESPONSE-4997-HARD-X is 31 characters
Local fix
Redefine the variable with myresponse in EGL source to something smaller.
Problem summary
**************************************************************** * USERS AFFECTED: * * Users that have MQSeries file names longer than 10 * * characters can get a cobol compiler error for a EZECLOSE * * label. * **************************************************************** * PROBLEM DESCRIPTION: * * The EZECLOSE label that is generated, which includes some of * * the MQSeries file name along with a unique numeric * * identifier can produce a cobol label that is 31 characters * * long, which causes a cobol compiler error. * **************************************************************** * RECOMMENDATION: * ****************************************************************
Problem conclusion
The software has been updated to remove 2 characters from the static part of the label, which ensures that the name will be 30 characters or less.
Temporary fix
Comments
APAR Information
APAR number
PI61403
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
910
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-04-25
Closed date
2019-01-17
Last modified date
2019-01-17
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
R901 PSY
UP
R911 PSY
UP
R950 PSY
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"9.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
15 October 2021