SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S32 {color：#3399FF; } .L0S33 {color：#4DA619; } .L0S52 {color：#0000FF; } .L0S55 {color：#800080; } .L0S70 {color：#808080; }

类型：TY_KNA1的开始，
KUNNR类型KNA1-KUNNR，
NAME1类型KNA1-NAME1，
LAND1类型KNA1-LAND1，
ORT01类型KNA1-ORT01，
结束于 TY_KNA1。

数据：TY_KNA1的I_KNA1类型表。
数据：TY_KNA1的TY_KNA1类型。

从KNA1中选择KUNNR NAME1 LAND1 ORT01到表I_KNA1 WHERE LAND1 ='US'。 >
WA_KNA1-KUNNR ='00000111'。
WA_KNA1-NAME1 ='ABCD'。
WA_KNA1-LAND1 ='US'。
WA_KNA1-ORT01 ='NEWYORK11111'。
附录WA_KNA1 到I_KNA1。
将WA_KNA1插入到I_KNA1索引中。5。

**从I_KNA1降序排序。
**从WA_KNA1运输名称1 ORT01修改I_KNA1，其中KUNNR ='0000000204'。



将I_KNA1插入WA_KNA1。
如果WA_KNA1-KUNNR ='0000000204'。
将WA_KNA1插入I_KNA1索引1.
ENDIF。
ENDLOOP。


将I_KNA1循环插入WA_KNA1。
如果WA_KNA1-KUNNR ='0000000204'。
如果SY-TABIX NE 1。
删除I_KNA1索引SY-TABIX。
ENDIF。
ENDIF 。
ENDLOOP。



I_KNA1 INT处的环 O WA_KNA1。
写：/WA_KNA1-KUNNR，
WA_KNA1-NAME1，
WA_KNA1-LAND1，
WA_KNA1-ORT01。
ENDLOOP。