- 苏萦
-
*DATA:
* BEGIN OF LW_COM,
* NAME2 TYPE C LENGTH 10 VALUE "ACCENTURE",
* ADD TYPE C LENGTH 30 VALUE "DALIAN SOFTWARE PARK",
* END OF LW_COM,
* BEGIN OF LW_PER,
* ID TYPE N LENGTH 4 VALUE "0001",
* NAME TYPE C LENGTH 6 VALUE "MARK",
* NAME2 TYPE C LENGTH 10,
* ADD TYPE C LENGTH 30,
* END OF LW_PER.
*
* PERFORM F_ADD_DATE2.
*
*
**-------------------------------------------------------
**&---------------------------------------------------------------------*
**& Form F_ADD_DATE
**&---------------------------------------------------------------------*
**& text
**&---------------------------------------------------------------------*
**& --> p1 text
**& <-- p2 text
**&---------------------------------------------------------------------*
*FORM F_ADD_DATE2.
*
* MOVE-CORRESPONDING LW_COM TO LW_PER.
* WRITE: LW_PER-ID,
* LW_PER-NAME,
* LW_PER-NAME2,
* LW_PER-ADD.
*ENDFORM.
用工作区就可以。我用表to表也是只有相同的字段会覆盖过去,不相同的字段为空。
*尝试用表
TYPES:
BEGIN OF TYP_W_COM,
NAME2 TYPE C LENGTH 10 ,
ADD TYPE C LENGTH 30,
END OF TYP_W_COM,
TYP_T_COM TYPE STANDARD TABLE OF TYP_W_COM,
BEGIN OF TYP_W_PER,
ID TYPE N LENGTH 4,
NAME TYPE C LENGTH 6,
NAME2 TYPE C LENGTH 10,
ADD TYPE C LENGTH 30,
END OF TYP_W_PER,
TYP_T_PER TYPE STANDARD TABLE OF TYP_W_PER.
DATA:
LW_01 TYPE TYP_W_COM,
LW_02 TYPE TYP_W_PER,
LT_01 TYPE TYP_T_COM,
LT_02 TYPE TYP_T_PER.
LW_01-NAME2 = "ACCENTURE".
LW_01-ADD = "DALIAN SOFTWARE PARK".
INSERT LW_01 INTO TABLE LT_01.
LW_02-ID = "0001".
LW_02-NAME = "MARK".
INSERT LW_02 INTO TABLE LT_02.
PERFORM F_ADD_DATE2.
*-------------------------------------------------------
*&---------------------------------------------------------------------*
*& Form F_ADD_DATE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM F_ADD_DATE2.
MOVE-CORRESPONDING LT_01 TO LT_02.
LOOP AT LT_02 INTO LW_02.
WRITE: LW_02-ID,
LW_02-NAME,
LW_02-NAME2,
LW_02-ADD.
ENDLOOP.
ENDFORM.
- Chen
-
不要用move-corresponding ,对b做循环,根据合适的条件直接把a-1赋值给b-1,然后modify b