Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, Programming Guide

Ordinal element records

Each ordinal type record is immediately followed by a series of records (as many as specified by the ordinal type count) that describes the values named by that ordinal.

Each ordinal element record assigns a number, called an ordinal element index, that is used by later records to refer to an ordinal element described by this record. The name of the element is indicated by a literal index. Each ordinal element record contains the file index and source line number for the file and line in which the ordinal element was declared.

Additionally, each ordinal element record contains

Figure 113. Declare for an ordinal element record
declare                             /*                             */
  1 xin_Ord_Elem   based( null() ), /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Hdr              /* standard header             */
          like xin_Hdr,             /*                             */
                                    /*                             */
    2 xin_Ord_Elem_File_Id          /* file id                     */
          fixed bin(31) unsigned,   /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Line_No          /* line no within file         */
          fixed bin(31) unsigned,   /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Id               /* identifying number          */
                    fixed bin(31),  /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Type_Id          /* id of ordinal type          */
                    fixed bin(31),  /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Value            /* ordinal value               */
                    fixed bin(31),  /*                             */
                                    /*                             */
    2 xin_Ord_Elem_Name             /* ordinal name                */
                    fixed bin(31);  /*                             */

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)