Advertisement
Guest User

Untitled

a guest
Sep 29th, 2018
883
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.84 KB | None | 0 0
  1. REPORT Z_POPOV_TASK_2.
  2.  
  3. TABLES sflight.
  4. DATA: it_sflight TYPE sflight OCCURS 100 WITH HEADER LINE.
  5. SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE TEXT-001.
  6. PARAMETERS: airline TYPE sflight-carrid DEFAULT 'AA',
  7. code TYPE sflight-connid DEFAULT '0064'.
  8.  
  9. SELECT-OPTIONS date FOR sflight-fldate DEFAULT '20150101' TO '20180101'NO-EXTENSION.
  10. SELECTION-SCREEN END OF BLOCK bl1.
  11. START-OF-SELECTION.
  12.  
  13. WRITE:
  14. / sy-vline,
  15. 5 'CARRID',
  16. 10 sy-vline,
  17. 15 'CONNID',
  18. 20 sy-vline,
  19. 25 'FLDATE',
  20. 35 sy-vline,
  21. 38 'PRICE',
  22. 60 sy-vline, / sy-uline.
  23.  
  24. SELECT * FROM sflight INTO CORRESPONDING FIELDS OF it_sflight
  25. WHERE carrid = airline AND connid = code AND fldate IN date.
  26.  
  27. WRITE:
  28. / sy-vline,
  29. 5 it_sflight-carrid ,
  30. 10 sy-vline,
  31. 15 it_sflight-connid,
  32. 20 sy-vline,
  33. 25 it_sflight-fldate,
  34. 35 sy-vline,
  35. 38 it_sflight-price,
  36. 60 sy-vline,
  37. / sy-uline.
  38. ENDSELECT.
  39.  
  40. END-OF-SELECTION.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement