APAR status
Closed as program error.
Error description
The following code segment generates incorrect cobol for iseries , causing runtime abend: Function APWIS01() while (APWIW01.L ? 0 ?? APWIW01.X5TESKEY[L] == ' ') APWIW01.L = APWIW01.L - 1; end ?=== if (APWIW01.L == 0) /* [10]*/ ... TextDefaultAsString is deafulted to YES. Workaround is to use TextDefaultAsString =No
Local fix
Problem summary
The wrong code was generated for IMS because it cannot handle complex condition statements that contain comparison of char type with other text types.
Problem conclusion
I have changed the PPR code to break up these complex conditions for IMS.
Temporary fix
Comments
APAR Information
APAR number
PM03925
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-12-18
Closed date
2010-04-14
Last modified date
2010-04-14
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
RBD EGL FOR COB
Fixed component ID
5724S5001
Applicable component levels
R751 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
14 April 2010