Advertisement
Guest User

Untitled

a guest
Dec 8th, 2016
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.44 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZGL15C6
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8. REPORT  ZGL15C6.
  9.  
  10. TABLES scarr.
  11.  
  12. PARAMETERS p_carrid TYPE scarr-carrid.
  13. SELECT-OPTIONS s_carrid FOR scarr-carrid.
  14.  
  15. DATA: gs_scarr TYPE scarr,
  16.       gs_spfli type spfli,
  17.       gs_sflight type sflight.
  18.  
  19. SELECT   carrid carrname url
  20. INTO CORRESPONDING FIELDS OF gs_scarr
  21. FROM scarr
  22. UP TO 5 ROWS
  23. WHERE carrid IN s_carrid .
  24. WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(60).
  25. ENDSELECT.
  26. *
  27. *SELECT single  carrid carrname url
  28. *INTO CORRESPONDING FIELDS OF gs_scarr
  29. *FROM scarr
  30. *WHERE carrid IN s_carrid .
  31. *WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(60).
  32.  
  33. *
  34. *SELECT carrid carrname url
  35. *INTO CORRESPONDING FIELDS OF gs_scarr
  36. *FROM scarr
  37. *WHERE carrid IN s_carrid .
  38. *
  39. *WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(60).
  40. *
  41. *SELECT connid cityfrom cityto
  42. *INTO CORRESPONDING FIELDS OF gs_spfli
  43. *FROM spfli
  44. *WHERE carrid = gs_scarr-carrid.
  45. *WRITE: / gs_spfli-connid, gs_spfli-cityfrom, gs_spfli-cityto.
  46. *
  47. *
  48. *select price planetype
  49. *  into CORRESPONDING FIELDS OF gs_sflight
  50. *  from sflight
  51. *  where carrid = gs_scarr-carrid
  52. *  and connid = gs_spfli-connid.
  53. *  write:/ gs_sflight-price, gs_sflight-planetype.
  54. *endselect.
  55. *
  56. *
  57. *ENDSELECT.
  58. *ENDSELECT.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement