*&---------------------------------------------------------------------*
*& Module pool       Z16_005
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

PROGRAM  Z16_005.
INCLUDE Z16_005TOP.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.

IF init is initial.
 mytabstrip-activetab = 'TAB1'.
 number = '0110'.
 init = 'X'.
endif.
endmodule.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
save_ok = ok_code.
  CLEAR ok_code.

    CASE save_ok.
      WHEN 'TAB1'.
        number = '0110'.
        mytabstrip-activetab = save_ok.
      WHEN 'TAB2'.
        number = '0120'.
        mytabstrip-activetab = save_ok.
    ENDCASE.

endmodule.                 " USER_COMMAND_0100  INPUT