IBM Support

PM56097: COMPILING DFHA03DS.P LEADS TO IEL0316I .

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Client is including DFHA03DS in his PLI PGM . During compile
    MSGIEL0316I comes up for statement
    " 2 * BIN FIXED(15), /* RESERVED */ " .
    
    
    
    Full message:
    IEL0316I S   192     END OF STATEMENT ASSUMED AFTER '5),2 * BIN
    FIXED(15)'. TEXT IGNORED TO NEXT SEMICOLON.
    
    
    The problem is the * in the name field, this is a PL/X standard
    but not PL/I, it should have a proper name.
    

Local fix

  • Change the field to a proper name like:
    
    2 A03FILL1 BIN FIXED(15), /* RESERVED   */
    
    
    DCL
      1 DFHA03DS BASED,           /* VTAM STATISTICS (GLOBAL)  */
        2 A03LEN   BIN FIXED(15), /* LENGTH OF DATA AREA       */
        2 A03ID    BIN FIXED(15), /* VTAM GLOBAL STORAGE ID    */
        2 A03DVERS CHAR(1),       /* VTAM STATS VERSION NUMBER */
        2 A03FILL0 CHAR(3),       /* FILLER                    */
        2 A03RPLXT DEC FIXED(7),  /* TIMES AT RPL MAX          */
        2 A03RPLX  DEC FIXED(3),  /* MAX RPLS POSTED           */
        2 A03VTSOS CHAR(2),       /* VTAM SOS                  */
        2 A03DOC   BIN FIXED(15), /* DYNAMIC OPEN COUNT        */
        2 A03FILL1 BIN FIXED(15), /* RESERVED                  */
        2 A03LUNUM BIN FIXED(31), /* NO OF LUS IN SESSION      */
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All CICS users.                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: Message IEL0316I is produced when a     *
    *                      PL/I program includes DFHA03DS.P.       *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    Member DFHA03DS.P contains invalid PL/I syntax for a reserved
    2-byte field as it uses "*" for the field name, which is a
    PL/X standard. This results in a compilation error with message:
    
    IEL0316I S   192     END OF STATEMENT ASSUMED AFTER '5),2 * BIN
                         FIXED(15)'. TEXT IGNORED TO NEXT SEMICOLON
    
    Additional keywords: MSGIEL0316I PL/1 PL1 PLI
    

Problem conclusion

  • DFHA03DS.P has been changed to replace the "*" with a valid
    PL/I name "A03FILL1".
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM56097

  • Reported component name

    CICSTS FOR VSE

  • Reported component ID

    564805400

  • Reported release

    B0P

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2012-01-17

  • Closed date

    2012-02-08

  • Last modified date

    2012-05-15

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

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

    UK76035

Modules/Macros

  •    DFHA03DS
    

Fix information

  • Fixed component name

    CICSTS FOR VSE

  • Fixed component ID

    564805400

Applicable component levels

  • RB0P PSY UK76035

       UP12/02/20 P E511

Fix is available

  • Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.

[{"Business Unit":{"code":"BU011","label":"Systems - zSystems software"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"1.1.1","Edition":""}]

Document Information

Modified date:
15 May 2012