IBM Support

PK66753: IF STATEMENT THAT CHECKS TO SEE IF A MAP/FORM FIELD CONTAINS A BLANK RETURNS FALSE EVEN IF USER DOES NOT ENTER DATE IN FIELD.

Subscribe

You can track all active APARs for this component.

 

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