APAR status
Closed as program error.
Error description
Environment: Windows Product name: IBM? Rational? Business Developer Program Version : 7.1.0.2 Description when defining a decimal(18,4) one should expect that only a lite ral of length 18 is allowed in that decimal. When you move a literal that is longer than 18 positions, EGL do esn't show an error, not in development, nor during generation of the code. Only in the COBOL compilation is the error indicate d as expected. This occurs when within the build descriptor specifying the opti on ?maxNumericDigits=18? and for the COBOL compilation option ?A RITH(COMPAT)?. The cause is a programming error, and the error message from the COBOL compiler is clear, so the developer can change the progra m accordingly. The error is though also shown during EGL debug with the example code as below: record wy4f053 type BasicRecord 01 wcs ; 03 dec_01 decimal(18,4); end program y4f054 type BasicProgram() {} wy4f053 wy4f053; function main() wy4f053.wcs.dec_01 = 12345678901234567.8901; end end The user considers it defective that there is not a proper error message, instead of waiting for the COBOL compiler to inform th em of the error RBD should indicate this error either within dev elopment phase or when generating the code. Engineers research: reprodcuible behaviour when debugging the code which will show t he error but there are no indications of any error swhen definin g or generating the code.
Local fix
Problem summary
A check was missing at generation time for Cobol target systems
Problem conclusion
The check has been added
Temporary fix
Comments
APAR Information
APAR number
PK78639
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
700
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-01-14
Closed date
2009-03-20
Last modified date
2009-03-20
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
R700 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.0","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
20 March 2009