Loop at WHERE指定条件

"LOOP AT" is a statement used in ABAP programming language to loop through a table and process each entry. The "WHERE" clause can be used to specify a condition that must be met for the loop to process an entry.

For example:

LOOP AT lt_table INTO ls_table WHERE field1 = 'value'.
  ...
ENDLOOP.

In this code, "lt_table" is the table being looped through, "ls_table" is a work area used to store each entry during the loop, and "field1 = 'value'" is the condition specified in the WHERE clause. This loop will only process entries where "field1" equals "value".

相关问题

内边为什么不能指定字段

内表是一种动态的数据结构，它的每个元素包含了一组字段。在内表中，每个元素的字段是相同的，因此无法针对内表中的单个元素指定要删除的字段。

如果你需要对内表中的单个元素指定要删除的字段，可以将内表转换为一个结构体或对象，并针对结构体或对象的字段进行操作。例如，你可以将内表中的每个元素视为一个结构体，并使用 `DELETE` 和 `WHERE` 子句删除符合条件的结构体。在这种情况下，你可以指定要删除的结构体的字段。

以下是一个示例代码：

TYPES: BEGIN OF ty_data,
         field1 TYPE string,
         field2 TYPE string,
       END OF ty_data.

DATA: itab TYPE STANDARD TABLE OF ty_data WITH DEFAULT KEY,
      wa   TYPE ty_data.

" 填充内表
wa-field1 = 'A'.
wa-field2 = 'B'.
APPEND wa TO itab.

wa-field1 = 'C'.
wa-field2 = 'D'.
APPEND wa TO itab.

wa-field1 = 'E'.
wa-field2 = 'F'.
APPEND wa TO itab.

" 删除内表中所有符合条件的结构体
DELETE itab WHERE field1 = 'C'.

" 输出结果
LOOP AT itab INTO wa.
  WRITE: / wa-field1, wa-field2.
ENDLOOP.

在这个示例中，我们填充了一个内表 `itab`，其中有三个元素，每个元素包含了两个字段。然后，我们使用 `DELETE` 和 `WHERE` 子句删除了符合条件的结构体。在这种情况下，我们指定了要删除的结构体的字段 `field1`。最后，我们使用 `LOOP AT` 语句输出结果。

运行该代码后，你会发现符合条件的结构体已经被删除了。注意，在这种情况下，我们需要针对结构体的字段进行操作，而不是针对内表的单个元素进行操作。

优化这段ABAP代码LOOP AT GT_FAGLFLEXA INTO GS_FAGLFLEXA. IF GS_RESULT2-RBUKRS = GS_FAGLFLEXA-RBUKRS AND GS_RESULT2-DOCNR = GS_FAGLFLEXA-DOCNR AND GS_RESULT2-RYEAR = GS_FAGLFLEXA-RYEAR . DELETE GT_RESULT2 WHERE RBUKRS = GS_FAGLFLEXA-RBUKRS AND DOCNR = GS_FAGLFLEXA-DOCNR AND RYEAR = GS_FAGLFLEXA-RYEAR . GS_RESULT2-HSL = GS_RESULT2-HSL + GS_FAGLFLEXA-HSL . ELSE. GS_RESULT2-HSL = GS_FAGLFLEXA-HSL . ENDIF. GS_RESULT2-RBUKRS = GS_FAGLFLEXA-RBUKRS. GS_RESULT2-DOCNR = GS_FAGLFLEXA-DOCNR . GS_RESULT2-RYEAR = GS_FAGLFLEXA-RYEAR . APPEND GS_RESULT2 TO GT_RESULT2 . ENDLOOP.

优化后的代码如下：

LOOP AT GT_FAGLFLEXA INTO GS_FAGLFLEXA.
READ TABLE GT_RESULT2 WITH KEY RBUKRS = GS_FAGLFLEXA-RBUKRS
DOCNR = GS_FAGLFLEXA-DOCNR
RYEAR = GS_FAGLFLEXA-RYEAR
TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0.
DELETE GT_RESULT2 INDEX SY-TABIX.
GS_RESULT2-HSL = GS_RESULT2-HSL + GS_FAGLFLEXA-HSL.
ELSE.
GS_RESULT2-HSL = GS_FAGLFLEXA-HSL.
ENDIF.
GS_RESULT2-RBUKRS = GS_FAGLFLEXA-RBUKRS.
GS_RESULT2-DOCNR = GS_FAGLFLEXA-DOCNR.
GS_RESULT2-RYEAR = GS_FAGLFLEXA-RYEAR.
APPEND GS_RESULT2 TO GT_RESULT2.
ENDLOOP.

优化的主要改动如下：
1. 使用READ TABLE语句代替DELETE和APPEND的组合，以减少循环内部的操作次数。
2. 使用TRANSPORTING NO FIELDS选项在读取行时不传输任何字段，以提高性能。
3. 使用SY-SUBRC检查表格行是否存在，避免使用DELETE INDEX时出现错误。
4. 使用SY-TABIX获取当前索引，并使用DELETE INDEX删除指定的行。
5. 将GS_RESULT2-HSL的增量计算移动到DELETE操作之前，以避免重复计算。

通过这些优化，可以减少循环内部的操作次数，提高代码的执行效率。