screen button

https://www.youtube.com/watch?v=4C8irSvrkBU&list=PL-9XBzq-UEp4OBpdluj4NIoDqurXErLmk&index=52

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.

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

""""FLOW LOGIC OF SCREEN

PROCESS BEFORE OUTPUT.
MODULE clear_ok_code.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.

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

MODULE clear_ok_code OUTPUT.
  clear ok_code.
ENDMODULE.

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

MODULE user_command_0100 INPUT.
  DATA ok_code LIKE sy-ucomm.
  CASE ok_code.
    WHEN 'BACK'.
      SET SCREEN 0.
      MESSAGE 'left without save' TYPE 'S'.
    WHEN 'SAVE'.
      SET SCREEN 0.
      MESSAGE 'Change saved' TYPE 'S'.
    WHEN OTHERS.
      MESSAGE 'ENTER' TYPE 'S'.
  ENDCASE.


ENDMODULE.