Dərs 15: ABAP-da PARAMETERS mövzusu

Proqramı işlədən zaman secim ekrani yaratmaq üçün PARAMETERS-dən istifadə edirik.

Proqram içərisində istifadə etdiyimiz sy-uname sistem dəyişkənidir və sistemə daxil olduğumuz isdifadəçi (USER) adını özündə saxlayır. Proqramı çalışdıran zaman seçim ekranında aşağıdakı məlumatları yazırıq. 

Nəticə...

REPORT  ZTEST_PROGRAM.


DATA: gt_spfli TYPE TABLE OF spfli,
      gs_spfli TYPE spfli.

PARAMETERS: pa_car TYPE spfli-carrid,
            pa_con TYPE spfli-connid.


IF sy-uname = 'ANAR'.

SELECT * FROM spfli INTO TABLE gt_spfli WHERE
           carrid = pa_car AND connid = pa_con.

IF sy-subrc = 0.

LOOP AT gt_spfli INTO gs_spfli.

  WRITE :/ gs_spfli-CARRID,
           gs_spfli-CONNID,
           gs_spfli-COUNTRYFR,
           gs_spfli-CITYFROM,
           gs_spfli-AIRPFROM,
           gs_spfli-COUNTRYTO.

ENDLOOP.
ENDIF.
ENDIF.