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

グローバル制御ブロックの構造

グローバル制御ブロックは、3 つのユーザー出口プロシージャー (初期化、 フィルター操作、および終了) が呼び出されるたびに、それぞれに渡されます。 次のコードと説明は、グローバル制御ブロック内の各フィールドの内容を示すものです。

  Dcl
    1 Uex_UIB           native based( null() ),
      2 Uex_UIB_Length         fixed bin(31),

      2 Uex_UIB_Exit_token     pointer,        /* for user exit's use */

      2 Uex_UIB_User_char_str  pointer,        /* to exit option str  */
      2 Uex_UIB_User_char_len  fixed bin(31),

      2 Uex_UIB_Filename_str   pointer,        /* to source filename  */
      2 Uex_UIB_Filename_len   fixed bin(31),

      2 Uex_UIB_return_code fixed bin(31),     /* set by exit procs   */
      2 Uex_UIB_reason_code fixed bin(31),     /* set by exit procs   */

      2 Uex_UIB_Exit_Routs,                    /* exit entries set at
                                                  initialization      */
        3 ( Uex_UIB_Termination,
            Uex_UIB_Message_Filter,            /* call for each msg   */
            *, *, *, * )
          limited entry (
               *,                               /* to Uex_UIB          */
               *,                               /* to a request area   */
           );

データ入力フィールド


Terms of use | Feedback

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