REPORT  Z20_01.

PARAMETERS pa_carr TYPE sflight-carrid.

DATA gs_sflight 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 'You need a authority' TYPE 'E'.

  ELSEIF SY-SUBRC = 0.

    MESSAGE  'SUCCESS' TYPE 'S'.

  ENDIF.

START-OF-SELECTION.

  SELECT  carrid connid fldate seatsmax seatsocc

    FROM  sflight

    INTO  CORRESPONDING FIELDS OF gs_sflight

    WHERE carrid = pa_carr.

    WRITE: / gs_sflight-carrid,

       gs_sflight-connid,

       gs_sflight-fldate,

       gs_sflight-seatsmax,

       gs_sflight-seatsocc.