ABAP新语法: MOVE-CORRESPONDING新语法

最新推荐文章于 2025-04-07 00:05:34 发布

ERP文库

最新推荐文章于 2025-04-07 00:05:34 发布

阅读量2.7k

点赞数 3

分类专栏： SAP-ABAP 文章标签：大数据

原文链接：https://www.cnblogs.com/keruigen/p/15670182.html

版权

SAP-ABAP 专栏收录该内容

37 篇文章

订阅专栏

1.工作区

*&---------------------------------------------------------------------*
*CORRESPONGDING关键字
*关键字MAPPING指定不同字段赋值
*关键字EXCEPT排除某个字段不赋值
*&---------------------------------------------------------------------*
”1.工作区相同字段赋值
DATA:BEGIN OF ls_data1,
             fd1 TYPE char10,
             fd2 TYPE char10,
             fd3 TYPE char10,
         END OF ls_data1,

         BEGIN OF ls_data2,
             fd1 TYPE char10,
             fd2 TYPE char10,
             fd4 TYPE char10,
         END OF ls_data2.

ls_data1 = VALUE #( fd1 = |First|
                    fd2 = |Second|
                    fd3 = |Third| ).

"相同字段赋值
ls_data2 = CORRESPONDING #( ls_data1 ).
WRITE:/ |FD1:|,ls_data2-fd1, |FD2:|,ls_data2-fd2,
             |FD4:|,ls_data2-fd4.

"相同字段赋值基础上，指定把ls_data1-fd3赋值给ls_data2-fd4
ls_data2 = CORRESPONDING #( ls_data1 MAPPING fd4 = fd3 ).
WRITE:/ |FD1:|,ls_data2-fd1, |FD2:|,ls_data2-fd2,
             |FD4:|,ls_data2-fd4.

"相同字段赋值的基础上，排除fd2不赋值（注：EXCEPT时是将EXCEPT的字段置为空而不是不赋值）
ls_data2 = CORRESPONDING #( ls_data1 EXCEPT fd2 ).
WRITE:/ |FD1:|,ls_data2-fd1, |FD2:|,ls_data2-fd2,
             |FD4:|,ls_data2-fd4.

"相同字段赋值基础上，指定把ls_data1-fd3赋值给ls_data2-fd4,排除fd2不赋值
ls_data2 = CORRESPONDING #( ls_data1 MAPPING fd4 = fd3 EXCEPT fd2).
WRITE:/ |FD1:|,ls_data2-fd1, |FD2:|,ls_data2-fd2,
             |FD4:|,ls_data2-fd4.

运行结果：如下
在这里插入图片描述
2.内表

DATA:lt_001 TYPE TABLE OF ACDOCA.

SELECT
    bukrs,
    belnr,
    gjahr,
    buzei,
    FROM bseg
    UP TO 3 ROWS
    INTO TABLE @DATA(lt_besg).

lt_001 = CORRESPONDING #( lt_besg MAPPING rbukrs = bukrs
                                          docln  = buzei ).

3.RANGE表

RANGES:lr_rank FOR mara-matnr.
lr_rank[] = CORREPONGDING #(gt_data MAPPING low = matnr
                                    EXCEPT * ).
lr_rank-sign = 'I'.
lr_rank-option = 'EQ'.
MODIFY lr_rank TRANSPORTING sign option WHERE low IS NOT INITIAL.

SORT lr_rank BY low.
DELETE ADJACENT DUPLICATES FROM lr_rank COMPARING low.