MacSG

SAP_Lab2

Feb 14th, 2015
198
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.94 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *& Report ZLAB2_5627
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT ZLAB2_5627 LINE-SIZE 255 NO STANDARD PAGE HEADING.
  10. *WRITE: 50 'TANATIP' ,170 'IAMJUNCHAI'.
  11. *WRITE: 15(10) 'ABCDEFGHIJKLMNOPQRSTUVWXYZ','MAX'.
  12. *NEW-LINE.
  13. *WRITE 'HELLO WORLD'.
  14. *WRITE /'HELLO WORLD'.
  15. *WRITE: /'FIRST','DATA1'.
  16. *WRITE: /'SECOND','DATA2'.
  17. *WRITE: /(20)'THIRD LINE','DATA3'.
  18. *WRITE: /35'FOURTH LINE','DATA4'.
  19.  
  20. *CONSTANTS COLNO1 TYPE I VALUE 5.
  21. *CONSTANTS COLNO2 TYPE I VALUE 80.
  22. *WRITE: AT COLNO1 'HELLO', AT COLNO2 'WORLD1'.
  23. *SKIP 5.
  24. *WRITE: AT /COLNO1 'TEST1', AT COLNO2 'WORLD2'.
  25. *WRITE: AT /COLNO1 'TEST2', AT COLNO2 'WORLD3'.
  26. *WRITE: AT /COLNO1 'TEST3', AT COLNO2 'WORLD4'.
  27.  
  28. *CONSTANTS COLNO40 TYPE I VALUE 40.
  29. *CONSTANTS COLNO60 TYPE I VALUE 60.
  30. *SKIP 19.
  31. *WRITE AT COLNO40 'TANATIP'.
  32. *SKIP 39.
  33. *WRITE AT COLNO60 'IAMJUNCHAI'.
  34.  
  35. *SKIP TO LINE 2.
  36. *WRITE: AT /COLNO1 'TEST4', AT COLNO2 'WORLD5'.
  37. *WRITE: AT /COLNO1 'TEST5', AT COLNO2 'WORLD6'.
  38.  
  39. *CONSTANTS COLNO1 TYPE I VALUE 2.
  40. *CONSTANTS COLNO2 TYPE I VALUE 24.
  41. *WRITE: AT COLNO1 'HELLO', AT COLNO2 'WORLD1'.
  42. *ULINE /1(60).
  43. *WRITE /1(60) SY-ULINE.
  44. *WRITE: / SY-VLINE,22 SY-VLINE.
  45. *WRITE: AT COLNO1 'HELLO', AT COLNO2 'WORLD2'.
  46. *WRITE: 'DATE :',SY-DATUM.
  47. *WRITE: /'TIME :',SY-UZEIT.
  48. *WRITE: /'USER :',SY-UNAME.
  49. *WRITE: /'REPORT: ',SY-REPID.
  50. *WRITE /1(60) SY-ULINE.
  51. *FORMAT COLOR 1.
  52. *WRITE: / SY-VLINE,AT COLNO1(22)'TEST' CENTERED,22 SY-VLINE,AT COLNO2(35)'WORLD', 60 SY-VLINE.
  53. *WRITE /1(60) SY-ULINE.
  54. *FORMAT COLOR OFF.
  55. *FORMAT COLOR 5.
  56. *WRITE: / SY-VLINE,AT COLNO1(20)'TEST2',22 SY-VLINE,AT COLNO2(35) 'WORLD2',60 SY-VLINE.
  57. *FORMAT COLOR OFF.
  58. *FORMAT COLOR 6.
  59. *WRITE: / SY-VLINE,AT COLNO1(20)'TEST3',22 SY-VLINE,AT COLNO2(35) 'WORLD3',60 SY-VLINE.
  60. *FORMAT COLOR OFF.
  61. *FORMAT COLOR 3.
  62. *WRITE: / SY-VLINE,AT COLNO1(20)'TEST4',22 SY-VLINE,AT COLNO2(35) 'WORLD4',60 SY-VLINE.
  63. *WRITE /1(60) SY-ULINE.
  64. *FORMAT COLOR OFF.
  65.  
  66. CONSTANTS COLNO1 TYPE I VALUE 2.
  67. CONSTANTS COLNO2 TYPE I VALUE 28.
  68. CONSTANTS COLNO3 TYPE I VALUE 60.
  69.  
  70. WRITE: AT COLNO1 'DATE :',SY-DATUM.
  71. WRITE: AT COLNO2 'Customers Listing'.
  72. WRITE: AT COLNO3 'TIME :',SY-UZEIT.
  73. FORMAT COLOR 1.
  74. WRITE /1(72) SY-ULINE.
  75. WRITE: / SY-VLINE,AT COLNO1(16) 'Customers ID', 18 SY-VLINE, AT COLNO2(24)'Name' CENTERED,52 SY-VLINE,AT COLNO3(10)'CITY', 72 SY-VLINE.
  76. WRITE /1(72) SY-ULINE.
  77. FORMAT COLOR OFF.
  78. WRITE: / SY-VLINE,AT COLNO1(16) '5510405627', 18 SY-VLINE, AT COLNO2(24)'Tanatip I.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Bangkok', 72 SY-VLINE.
  79. WRITE: / SY-VLINE,AT COLNO1(16) '5510450096', 18 SY-VLINE, AT COLNO2(24)'Nattadecha L.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Nonthaburi', 72 SY-VLINE.
  80. WRITE: / SY-VLINE,AT COLNO1(16) '5510450169', 18 SY-VLINE, AT COLNO2(24)'Nattanon L.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Bangkok', 72 SY-VLINE.
  81. WRITE /1(72) SY-ULINE.
Advertisement
Add Comment
Please, Sign In to add comment