*&---------------------------------------------------------------------*
*& Module Pool       Z13_04
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

PROGRAM  z13_04.

DATA : gv_repid TYPE sy-repid,
       gv_sname TYPE sy-dynnr.

DATA: ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  IF gv_repid IS INITIAL.
    gv_repid = 'Z13_04'.
    gv_sname = '0110'.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CLEAR : save_ok.
  save_ok = ok_code.
  CASE save_ok.
    WHEN 'SUB1'.
      gv_repid = 'Z13_04'.
      gv_sname = '0110'.
    WHEN 'SUB2'.
      gv_repid = 'Z13_04'.
      gv_sname = '0120'.
    WHEN OTHERS.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT