Advertisement
Guest User

Untitled

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