Report Zreport - Demo5
Report Zreport - Demo5
Report Zreport - Demo5
REPORT zreport_demo4.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN SKIP.
SELECT-OPTIONS : airline FOR sbook-carrid.
SELECT-OPTIONS : depdate FOR sbook-fldate.
SELECTION-SCREEN SKIP.
PARAMETERS: smoker AS CHECKBOX,
currency TYPE sbook-forcurkey.
IF smoker = 'X'.
ELSE.
ENDIF.
IF sy-subrc = 0.
FORMAT COLOR 3 ON.
WRITE : 'TOTAL BOOKINGS FOUND' , sy-dbcnt.
NEW-LINE.
ELSE.
PERFORM data_display USING itab wa.
ENDIF.
ELSE.
ENDIF.
FORM get_currency_in_order
USING i_itab LIKE itab
i_currency LIKE currency
CHANGING c_itab LIKE itab .
ENDLOOP.
ENDFORM.
FORM data_display
USING itab_dis LIKE itab
wa_dis LIKE wa.
AT NEW carrid.
ULINE.
FORMAT COLOR 3 ON.
WRITE : /40 'AIRLINE ID ' , wa_dis-carrid.
ULINE.
ENDAT.
AT END OF carrid.
FORMAT COLOR 5 ON.
WRITE : /40 'BEGINING OF A NEW AIRLINE'.
ENDAT.
ENDLOOP.
ENDFORM.