screen button 2

 REPORT zflight_screen.

tables: sdyn_conn.

DATA: wa_spfli TYPE spfli.

START-OF-SELECTION.

  SELECT carrid connid airpfrom cityfrom airpto cityto
    FROM spfli
    INTO CORRESPONDING FIELDS OF wa_spfli.
    WRITE:/ wa_spfli-carrid COLOR COL_KEY,
    wa_spfli-connid COLOR COL_KEY,
    wa_spfli-airpfrom,
    wa_spfli-cityfrom ,
    wa_spfli-airpto ,
    wa_spfli-cityto.
    HIDE: wa_spfli-carrid, wa_spfli-connid.
  ENDSELECT.

  at LINE-SELECTION.
    select single *
      from spfli
      into wa_spfli
      where carrid = wa_spfli-carrid AND
      connid = wa_spfli-connid.

      MOVE-CORRESPONDING wa_spfli to sdyn_conn.
      call SCREEN 100.

INCLUDE zflight_screen_pai_0100.

INCLUDE zflight_screen_pbo_0100.

"""""""""""""""""""""""""""""""""""""""""""""""""""

PROCESS BEFORE OUTPUT.
MODULE set_title_and_status.
MODULE clear_ok_code.
*
PROCESS AFTER INPUT.
MODULE leave_screen_100 at exit-command.



MODULE USER_COMMAND_0100.

""""""""""""""""""""""""""""""""""""

*----------------------------------------------------------------------*
***INCLUDE ZFLIGHT_SCREEN_PAI_0100.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  DATA ok_code LIKE sy-ucomm.
  CASE ok_code.
    WHEN 'SAVE'.
      SET SCREEN 0.
      MESSAGE 'Change saved' TYPE 'S'.
    WHEN 'ENTER'.
      MESSAGE 'ENTER' TYPE 'S'.
    WHEN 'OPT1' .
         MESSAGE 'OPT1' TYPE 'S'.
      WHEN 'EXTR'.
           MESSAGE 'EXTR' TYPE 'S'.
      WHEN 'DETA'.
          MESSAGE 'MORE details' TYPE 'S'.

          WHEN 'MAIN'.
            set screen 0.
            MESSAGE 'You left without saving' TYPE 'S'.
  ENDCASE.


ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  LEAVE_SCREEN_100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*

""PAI
MODULE leave_screen_100 INPUT.

  CASE ok_code.
    WHEN 'BACK' or 'CANC'.
      set screen 0.
      MESSAGE 'You left without saving' TYPE 'S'.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN OTHERS.
  ENDCASE.

ENDMODULE.

"""""""""""""""""""""""""""""""""""""""""""""""""""

""PBO

MODULE clear_ok_code OUTPUT.

  clear ok_code.
ENDMODULE.



MODULE set_title_and_status OUTPUT.
 SET PF-STATUS '100'.
   SET TITLEBAR '100'.
ENDMODULE.

"""""""""""""""""""""""""""""""""""""""""""""""""