PM17104: EGL generated COBOL programs with constant form fields are not aligned correctly when the value is greater than the length

APAR status

• Closed as program error.

Error description

• Rational Business Developer V7.5.1.5:
  
  EGL generated COBOL programs are not correctly aligning the
  constant fields on a form when the value of the fields are
  greater than the length of the fields that need to be aligned.
  
  The fields in question are padded with blanks.
  
  The EGL debugger truncates the value to match the length while
  the COBOL support does not truncate so the fields are shifted.
  
  The form is correctly displayed in the EGL debugger as follows:
  
     1. Unos
     2. Pregled rje?nih zahtjeva
     3. Pregled nerje?nih zahtjeva
     4. Pregled zahtjeva
     5. Pregled zahtjeva s datumima
     6. Kopiranje zahtjeva
     7. Ispis zahtjeva
     8. Pregled zahtjeva na znanje odjelima
     9. Pregled zahtjeva po MJTR
    10. Unos opisa za ZZA   Nov:         ZZA:
  
  The generated COBOL displays the fields as folows:
  
     1. Unos
      2. Pregled rje?nih zahtjeva
      3. Pregled nerje?nih zahtjeva
      4. Pregled zahtjeva
       5. Pregled zahtjeva s datumima
        6. Kopiranje zahtjeva
         7. Ispis zahtjeva
          8. Pregled zahtjeva na znanje odjelima
          9. Pregled zahtjeva po MJTR
         10. Unos opisa za ZZA   Nov:         ZZA:
  
  The workaround is to set the value to be the same length as the
  constant field's length for all the fields that need to be
  aligned.
  
  Note:  Some of the special characters are replaced with ? in the
  example provided.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When a constant form field contains a value that is longer
  than the specified FieldLen, other field positions are
  shifted.
  

Problem conclusion

• The constant field value is truncated to the specified
  FieldLen.
  

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

• R751 PSN

     UP