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.

  ENDSELECT.

사이트운영 : http://sapjoy.co.kr  

저         서 : Easy ABAP, Plus ABAP

경         험 : SAP ABAP Tuning, SAP SCM(SD/PP/QM/PM/WM/APO)

자         격 : SAP SD / PP  / SAP ABAP Certification 등

메         일 : sapjoy@naver.com