IBM Support

SE59148: RDI 9.1.0 ILE RPG LIVE OUTLINE DOES NOT SUPPORT FIELD SIZE DEFINED BY A CONSTANT

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • When a data structure is defined as shown below the size for the
    variable Some_string will show as Unknown(0) in the outline.
    
           dcl-c Some_Constant Const( 10 );
           dcl-ds MyDS;
             Some_string char(Some_Constant);
             Some_value zoned(1) dim(Some_Constant);
           end-ds
    
    The dimension for Some_value will show correctly in the outline.
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED:                                              *
    * ILE RPG developers using RDi.                                *
    ****************************************************************
    * PROBLEM DESCRIPTION:                                         *
    * In RDi 9.0.1 and RDi 9.1, named constants specified for      *
    * field length, decimals and file EXTDESC are not reflected in *
    * the outline.                                                 *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    When a file uses EXTDESC with a named constant for a parm, its
    external definitions were not be found in the outline view.
    When fields are defined as shown below their lengths and
    decimals did not reflect the named constants and the outline.
    The CHAR field in particular showed up as Unknown(0).
    
           dcl-c OLD_FILE '*libl/MYFILE';
           dcl-f InvHeaderPOld ExtDesc( OLD_FILE ) ;
           dcl-c Some_Constant Const( 8 );
           dcl-c Const_Decimal Const( 2 );
           dcl-ds MyDS;
             Some_string char(Some_Constant);
             Some_ucs2   ucs2(Some_Constant);
             Some_graph  graph(Some_Constant);
             Some_int    int  (Some_Constant);
             Some_uns    uns  (Some_Constant);
             Some_float  float   (Some_Constant);
             Some_packed packed(Some_Constant: Const_Decimal);
             Some_zoned  zoned (Some_Constant: Const_Decimal);
             Some_bindec bindec(Some_Constant: Const_Decimal);
             Some_tstamp timestamp(Const_Decimal);
           end-ds;
    All lengths should be 8 and all decimals (including TIMESTAMP)
    should be 2.
    

Problem conclusion

  • This problem is fixed in the RDi 9.1.1 update.
    

Temporary fix

Comments

APAR Information

  • APAR number

    SE59148

  • Reported component name

    RDI RPG AND COB

  • Reported component ID

    5724Y99RC

  • Reported release

    901

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2014-06-01

  • Closed date

    2014-12-31

  • Last modified date

    2014-12-31

  • APAR is sysrouted FROM one or more of the following:

  • APAR is sysrouted TO one or more of the following:

Modules/Macros

  • Outline
    

Fix information

  • Fixed component name

    RDI RPG AND COB

  • Fixed component ID

    5724Y99RC

Applicable component levels

  • R910 PSY

       UP

[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSAE4W","label":"Rational Developer for i"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"9.0.1","Edition":"","Line of Business":{"code":"LOB08","label":"Cognitive Systems"}}]

Document Information

Modified date:
31 December 2014