PROGRAM YMPSKEL MESSAGE-ID YL.
*-----------------------------------------------------------------------
* DESCRIPTION
* written by !
*-----------------------------------------------------------------------
*  TABLES:

DATA: OK_CODE(4),                          " ok code - screen 1
      OK_CODE2(4).
DATA  C LIKE SY-INDEX.                     " Index for screen loop
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*      process after input for screen 0100                            *
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

  CASE OK_CODE.
    WHEN 'SAVE'.
*
    WHEN 'DISP'.
*
    WHEN 'LIST'.
      C = 0.                          "reset loop control
*
    WHEN OTHERS.
*
  ENDCASE.
  CLEAR OK_CODE.
ENDMODULE.                             " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       process before output for screen 0100                          *
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'AMEND'.               " set gui status
  SET TITLEBAR '100'.                  " set title
ENDMODULE.                             " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  SAVE data
*&---------------------------------------------------------------------*
*       Save screen details
*&---------------------------------------------------------------------*
FORM SAVE.
*
  CLEAR OK_CODE.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  DISPLAY
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM DISPLAY.
*
*

ENDFORM.
*&---------------------------------------------------------------------*
*&      Module  EXIT_COMMAND  INPUT
*&---------------------------------------------------------------------*
*       exit commands are processed before validation                  *
*       defined by E against function in menu painter(function list)
*----------------------------------------------------------------------*
MODULE EXIT_COMMAND INPUT.

  CASE OK_CODE.
    WHEN 'EXIT'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
    WHEN 'CANC'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
    WHEN 'BACK'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                             " EXIT_COMMAND  INPUT
*&---------------------------------------------------------------------*
*&      Form  list
*&---------------------------------------------------------------------*
*       text                                                           *
*----------------------------------------------------------------------*
FORM LIST.


  CLEAR OK_CODE. SET SCREEN 200. LEAVE SCREEN.

ENDFORM.                               " LIST
*&---------------------------------------------------------------------*
*&      Module  EXIT_COMMAND_200  INPUT
*&---------------------------------------------------------------------*
*       exit command processing for screen 200                     *
*       defined by E against function in menu painter(function list)
*----------------------------------------------------------------------*
MODULE EXIT_COMMAND_200 INPUT.

  CASE OK_CODE2.
    WHEN 'EXIT'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
    WHEN 'CANC'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
    WHEN 'BACK'. CLEAR OK_CODE2. SET SCREEN 100. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                             " EXIT_COMMAND_200  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       process before output for screen 200                        *
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'POPUP'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                             " STATUS_0200  OUTPUT