PK78639: defined decimal limitiation is not validated by generation opera tion to indicate an error

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 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