Process After Input (PAI) Dynpro 100

MODULE user_command_0100 INPUT.
 
  CASE ok_code.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'SELECT'.
      SELECT SINGLE * FROM spfli INTO wa_flug WHERE carrid = spfli-carrid AND
                                                    connid = spfli-connid.
      IF sy-dbcnt = 1.
        CALL FUNCTION 'ENQUEUE_EZ_SPFLI'
          EXPORTING
            mode_spfli = 'E'
            carrid     = spfli-carrid
            connid     = spfli-connid
          EXCEPTIONS
            FOREIGN_LOCK = 1.
        IF sy-subrc = 0.
          LEAVE TO SCREEN 200.
        ENDIF.
      ENDIF.
  ENDCASE.
  CLEAR ok_code.
 
ENDMODULE.