Advertisement
Guest User

Untitled

a guest
Jun 27th, 2016
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.17 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *& Report Z_GLOBALVERITURLERI
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT Z_GLOBALVERITURLERI.
  10.  
  11. TABLES :zdeneme.
  12.  
  13. TYPES: BEGIN OF kisi_bilgileri,
  14. mandt type mandt,
  15. ogrno TYPE char8,
  16. ad TYPE char20,
  17. soyad TYPE char20,
  18. tarih TYPE d,
  19. END OF kisi_bilgileri,
  20.  
  21. bilgiler TYPE STANDARD TABLE OF kisi_bilgileri.
  22.  
  23.  
  24. DATA: kisi_listesi TYPE bilgiler ,
  25. kisi TYPE kisi_bilgileri.
  26.  
  27. kisi-mandt = sy-MANDT.
  28. kisi-ad = 'Elif Damla2'.
  29. kisi-soyad = 'KÜÇÜK2'.
  30. kisi-tarih = '199505212'.
  31. kisi-OGRNO = '4'.
  32. APPEND kisi to kisi_listesi.
  33.  
  34. kisi-mandt = sy-MANDT.
  35. kisi-ad = 'Yiğit Arda2'.
  36. kisi-soyad = 'KÜÇÜK2'.
  37. kisi-tarih = '200507162'.
  38. kisi-OGRNO = '5'.
  39. APPEND kisi to kisi_listesi.
  40.  
  41. kisi-mandt = sy-MANDT.
  42. kisi-ad = 'Oya2'.
  43. kisi-soyad = 'KÜÇÜK2'.
  44. kisi-tarih = '197106262'.
  45. kisi-OGRNO = '6'.
  46. APPEND kisi to kisi_listesi.
  47.  
  48.  
  49. "modify zdeneme FROM TABLE kisi_listesi.
  50.  
  51. insert zdeneme from TABLE kisi_listesi.
  52.  
  53. IF sy-subrc eq 0.
  54. MESSAGE 'tebrikler oldu !' type 'I'.
  55. ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement