APAR status
Closed as program error.
Error description
A VAGen program contains an IF statement that checks to see if a map/form field contains a blank, i.e. IF form.fld = " "; This statement executes before the initial converse of the map/form. When this program is executed from VAGen generated COBOL, the result of the IF statement is TRUE. This occurs regardless if the runtime environment is VAGen or EGL. However, if the program is migrated to EGL, and the EGL generated COBOL is executed, the result of the IF statement is FALSE. * SYSROUTE of APAR PK34949
Local fix
Problem summary
The EGL primitive field level property 'isDecimalDigit' is being treated as a numeric field whereas it should be treated as a character field with the contents undergoing a numeric validation.
Problem conclusion
The server runtime modules have been updated accordingly.
Temporary fix
Comments
APAR Information
APAR number
PK66753
Reported component name
RATL COBOL RT Z
Reported component ID
5655R2900
Reported release
601
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2008-05-28
Closed date
2008-06-06
Last modified date
2008-08-29
APAR is sysrouted FROM one or more of the following:
PK34949
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
RATL COBOL RT Z
Fixed component ID
5655R2900
Applicable component levels
R038 PSY
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSN27B","label":"Rational COBOL Runtime for zSeries"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
29 August 2008