REPORT  Z06_001     MESSAGE-ID ZTEST                               .

PARAMETERS pa_carr TYPE sflight-carrid.
DATA wa_flights TYPE demo_focc.

AT SELECTION-SCREEN.
  AUTHORITY-CHECK OBJECT 'Z_TEST'
           ID 'CARRID' FIELD pa_carr
           ID 'ACTVT' FIELD '03'.
  IF sy-subrc = 4.
    MESSAGE e000 WITH 'you need a authority'.
  ELSEIF sy-subrc = 0.
    MESSAGE s000 WITH 'SUCCESS'.
  ENDIF.

START-OF-SELECTION.
  SELECT  carrid connid fldate seatsmax seatsocc
    FROM  sflight
    INTO  CORRESPONDING FIELDS OF wa_flights
    WHERE carrid = pa_carr.

    WRITE: / wa_flights-carrid,
             wa_flights-connid,
             wa_flights-fldate,
             wa_flights-seatsmax,
             wa_flights-seatsocc.
  ENDSELECT.