Chinaunix首页 | 论坛 | 博客

hui的博客

首页　| 　博文目录　| 　关于我

范振辉333

  • 博客访问： 481851
  • 博文数量： 199
  • 博客积分： 0
  • 博客等级： 民兵
  • 技术积分： 1902
  • 用 户 组： 普通用户
  • 注册时间： 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文（199）

文章存档

2021年（5）

2020年（194）

我的朋友
最近访客
推荐博文
相关博文
S4 DEMO

分类： 其他平台

2020-10-23 15:58:47

S4

点击(此处)折叠或打开

  1. *&---------------------------------------------------------------------*
  2. *& Report ZDEMO01
  3. *&---------------------------------------------------------------------*
  4. *&
  5. *&---------------------------------------------------------------------*
  6. REPORT zdemo01.

  8. DATA:gv_int1 TYPE i.

  10. gv_int1 = ipow( base = 12 exp = 3 ).

  12. WRITE gv_int1. "1,728



  16. *&---------------------------------------------------------------------*
  17. *& Report ZDEMO02
  18. *&---------------------------------------------------------------------*
  19. *&
  20. *&---------------------------------------------------------------------*
  21. REPORT zdemo01.

  23. DATA gv_string TYPE string.
  24. DATA gv_position TYPE i.

  26. gv_string = |Hello World|.

  28. gv_position = find( val = gv_string
  29.                     sub = |World|
  30.                     occ = 1
  31.                     case = 'X' ).

  33. WRITE gv_position. "6


  36. *&---------------------------------------------------------------------*
  37. *& Report ZDEMO03
  38. *&---------------------------------------------------------------------*
  39. *&
  40. *&---------------------------------------------------------------------*
  41. REPORT zdemo03.



  45. DATA gv_string TYPE string.

  47. gv_string = |Hello World Hello|.

  49. gv_string = replace( val = gv_string
  50.                      sub = |World|
  51.                      occ = 1
  52.                      with = |S/4HANA| ).

  54. WRITE gv_string. "Hello S/4HANA Hello


  57. *&---------------------------------------------------------------------*
  58. *& Report ZDEMO04
  59. *&---------------------------------------------------------------------*
  60. *&
  61. *&---------------------------------------------------------------------*
  62. REPORT zdemo04.

  64. DATA gs_makt TYPE makt.

  66. gs_makt = VALUE #( matnr = '123' maktx = '456' ).

  68. gs_makt = VALUE #( BASE gs_makt matnr = '0' ).

  70. WRITE gs_makt-matnr."matnr = '0' maktx = '456' 没有BASE GS_MAKT的话会清空maktx


  73. *&---------------------------------------------------------------------*
  74. *& report zdemo05
  75. *&---------------------------------------------------------------------*
  76. *&
  77. *&---------------------------------------------------------------------*
  78. REPORT zdemo05.

  80. DATA: gs_makt TYPE makt,
  81.       gt_makt TYPE TABLE OF makt,
  82.       gs_mara TYPE mara.

  84. SELECT SINGLE * INTO gs_mara
  85.   FROM mara.

  87. gs_makt-maktx = 'maktx'.
  88. gs_makt-matnr = 'matnr'.
  89. MOVE-CORRESPONDING gs_mara TO gs_makt.
  90. gs_makt = CORRESPONDING #( BASE ( gs_makt )
  91.                            gs_mara ).


  94. gt_makt = VALUE #( BASE gt_makt ( gs_makt ) ).
  95. gt_makt = VALUE #( BASE gt_makt ( gs_makt ) ).
  96. gt_makt = VALUE #( ( gs_makt ) ( gs_makt ) ( gs_makt ) ).

  98. WRITE gs_makt-maktx.
  99. ***move-corresponding 与 corresponding #( )的区别在于后者会清空gs_makt
  100. ***没有的字段加上base后，则不会清空gs_makt已有的字段

  102. CLEAR gs_makt.

  104. ****需要注意，没有报 CX_SY_ITAB_LINE_NOT_FOUND异常
  105. gs_makt = gt_makt[ maktx = 'maktx' ].

  107. WRITE gs_makt-maktx.

点击(此处)折叠或打开

  1. *&---------------------------------------------------------------------*
  2. *& report zdemo05
  3. *&---------------------------------------------------------------------*
  4. *&
  5. *&---------------------------------------------------------------------*
  6. REPORT zdemo05.


  9. DATA(time) = COND string(
  10.                 WHEN sy-timlo < '120000' THEN
  11.                   | { sy-timlo TIME = ISO } AM |
  12.                 WHEN sy-timlo > '120000' THEN
  13.                   | { CONV t( sy-timlo - 12 * 3600 ) TIME = ISO } PM |
  14.                 WHEN sy-timlo = '120000' THEN |High Noon| ).

  16. DATA(gv_index) = sy-index.

  18. WRITE 'Hello world'.







阅读(1814) | 评论(0) | 转发(0) |
0

上一篇：ABAP 正则表达式DEMO01

下一篇：EXCEL_OLE_STANDARD_DAT

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6