matinal：SAP ABAP 7.40及以上新语法FOR的用法

最新推荐文章于 2024-12-17 18:09:09 发布

原创最新推荐文章于 2024-12-17 18:09:09 发布 · 956 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#linux #运维 #服务器 #开发语言 #前端 #人工智能

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

博客介绍了内表字段赋值的新老语法。740之前语法需定义结构、表、工作区，用loop循环添加数据；740之后新语法用FOR运算符循环赋值，只需定义表类型结构，但有只能赋值一个字段、类型只能为表类型等限制，好处是省略代码且能快速定义工作区。

1.快速将内表的某一个字段赋值到另一个表

 
""740前的语法
TYPES : BEGIN OF TYA_03M ,
  FIELDNAME TYPE DD03M-FIELDNAME ,
 END OF TYA_03M .
DATA LTA_03M TYPE TABLE OF TYA_03M .
DATA LSA_03M TYPE TYA_03M .
SELECT  * FROM DD03M INTO TABLE @DATA(LTB_03M) WHERE TABNAME = 'BKPF'.
LOOP AT LTB_03M INTO DATA(LSB_03M).
  CLEAR:LSA_03M .
  LSA_03M-FIELDNAME = LSB_03M-FIELDNAME .
  APPEND LSA_03M TO LTA_03M .
ENDLOOP.
 
""740后可使用的新语法
TYPES TY_FIEELD2 TYPE STANDARD TABLE OF DD03M-FIELDNAME WITH EMPTY KEY .
SELECT  * FROM DD03M INTO TABLE @DATA(LT_03M) WHERE TABNAME = 'BKPF'.
DATA(LT_FIELD) = VALUE TY_FIEELD2( FOR LS_03M IN LT_03M[] ( LS_03M-FIELDNAME ) ) .
"DATA(LT_FIELD) = VALUE  TY_FIEELD2( FOR LS_03M IN LT_03M[] WHERE ( FLDSTAT = 'A' ) ( LS_03M-FIELDNAME ) ) .

740之前的语法需要定义结构，定义表，定义工作区，然后loop循环数据添加

740只后的新语法只需要定义一个表类型的结构，然后用FOR运算符循环赋值即可，但是限制条件很多。（说的不对的欢迎评论区指正）

限制条件1，只能快速赋值一个字段，不能多个字段

限制条件2，定义的类型TY_FIEELD2只能是表类型的，不能像往常740之前的语法定义行类型的

好处在于省略了很多代码，并且循环表LT_03M的工作区LS_03M也快速定义了

2.FOR 循环给表赋值

 
TYPES:  BEGIN OF ty_line,
    col1 TYPE i,
    col2 TYPE i,
    col3 TYPE i,
  END OF ty_line,
  ty_tab TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
DATA: gt_itab TYPE ty_tab,
      j       TYPE i.
FIELD-SYMBOLS <ls_tab> TYPE ty_line.
j = 1.
DO.
  j = j + 10.
  IF j > 40.
    EXIT.
  ENDIF.
  APPEND INITIAL LINE TO gt_itab ASSIGNING <ls_tab>.
  <ls_tab>-col1 = j.
  <ls_tab>-col2 = j + 1.
  <ls_tab>-col3 = j + 2.
ENDDO.
 
DATA(gt_itab2) = VALUE ty_tab( FOR k = 11 THEN k + 10 UNTIL k > 40
                            ( col1 = K  col2 = k + 1 col3 = k + 2  ) ).