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

Structure of global control blocks

The global control block is passed to each of the three user exit procedures (initialization, filtering, and termination) whenever they are invoked. The following code and accompanying explanations describe the contents of each field in the global control block.

  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   */
           );

Data Entry Fields


Terms of use | Feedback

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