Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, プログラミング・ガイド

序数タイプ・レコード

それぞれの序数タイプ・レコードは、序数タイプ索引と呼ばれる 1 つの番号を割り当て、このレコードに記述された序数タイプを参照するために、後のレコードによって使用されるようにします。 タイプの名前は、リテラル索引によって示されます。 それぞれの序数タイプ・レコードには、その序数タイプが宣言されたファイルおよび行のファイル索引およびソース行番号が入っています。

それぞれの序数タイプ・レコードには、以下のものが入っています。

図 112. 序数タイプ・レコードの宣言
declare                             /*                             */
  1 xin_Ord_Type   based( null() ), /*                             */
                                    /*                             */
    2 xin_Ord_Type_Hdr              /* standard header             */
          like xin_Hdr,             /*                             */
                                    /*                             */
    2 xin_Ord_Type_File_Id          /* file id                     */
          fixed bin(31) unsigned,   /*                             */
                                    /*                             */
    2 xin_Ord_Type_Line_No          /* line no within file         */
          fixed bin(31) unsigned,   /*                             */
                                    /*                             */
    2 xin_Ord_Type_Id               /* identifying number          */
                    fixed bin(31),  /*                             */
                                    /*                             */
    2 xin_Ord_Type_Count            /* count of elements           */
                    fixed bin(31),  /*                             */
                                    /*                             */
    2 xin_Ord_Type_Prec             /* precision for ordinal       */
          fixed bin(08) unsigned,   /*                             */
                                    /*                             */
    2 *,                            /*                             */
      3 xin_Ordinal_Type_Signed     /* signed attribute applies    */
                          bit(1),   /*                             */
      3 xin_Ordinal_Type_Unsigned   /* unsigned attribute applies  */
                          bit(1),   /*                             */
      3 *                           /* unused                      */
                          bit(6),   /*                             */
                                    /*                             */
    2 *                             /* unused                      */
                         char(2),   /*                             */
                                    /*                             */
    2 xin_Ord_Type_Name             /* type name                   */
                    fixed bin(31);  /*                             */

Terms of use | Feedback

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