点击(此处)折叠或打开
- *&---------------------------------------------------------------------*
- *& Report ZDEMO01
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zdemo01.
- DATA:gv_int1 TYPE i.
- gv_int1 = ipow( base = 12 exp = 3 ).
- WRITE gv_int1. "1,728
- *&---------------------------------------------------------------------*
- *& Report ZDEMO02
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zdemo01.
- DATA gv_string TYPE string.
- DATA gv_position TYPE i.
- gv_string = |Hello World|.
- gv_position = find( val = gv_string
- sub = |World|
- occ = 1
- case = 'X' ).
- WRITE gv_position. "6
- *&---------------------------------------------------------------------*
- *& Report ZDEMO03
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zdemo03.
- DATA gv_string TYPE string.
- gv_string = |Hello World Hello|.
- gv_string = replace( val = gv_string
- sub = |World|
- occ = 1
- with = |S/4HANA| ).
- WRITE gv_string. "Hello S/4HANA Hello
- *&---------------------------------------------------------------------*
- *& Report ZDEMO04
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zdemo04.
- DATA gs_makt TYPE makt.
- gs_makt = VALUE #( matnr = '123' maktx = '456' ).
- gs_makt = VALUE #( BASE gs_makt matnr = '0' ).
- WRITE gs_makt-matnr."matnr = '0' maktx = '456' 没有BASE GS_MAKT的话会清空maktx
- *&---------------------------------------------------------------------*
- *& report zdemo05
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zdemo05.
- DATA: gs_makt TYPE makt,
- gt_makt TYPE TABLE OF makt,
- gs_mara TYPE mara.
- SELECT SINGLE * INTO gs_mara
- FROM mara.
- gs_makt-maktx = 'maktx'.
- gs_makt-matnr = 'matnr'.
- MOVE-CORRESPONDING gs_mara TO gs_makt.
- gs_makt = CORRESPONDING #( BASE ( gs_makt )
- gs_mara ).
- gt_makt = VALUE #( BASE gt_makt ( gs_makt ) ).
- gt_makt = VALUE #( BASE gt_makt ( gs_makt ) ).
- gt_makt = VALUE #( ( gs_makt ) ( gs_makt ) ( gs_makt ) ).
- WRITE gs_makt-maktx.
- ***move-corresponding 与 corresponding #( )的区别在于后者会清空gs_makt
- ***没有的字段加上base后,则不会清空gs_makt已有的字段
- CLEAR gs_makt.
- ****需要注意,没有报 CX_SY_ITAB_LINE_NOT_FOUND异常
- gs_makt = gt_makt[ maktx = 'maktx' ].
- WRITE gs_makt-maktx.