ABAP 通过递归实现深度优先遍历。（可拓展至BOM展开）

最新推荐文章于 2024-12-07 14:45:55 发布

原创最新推荐文章于 2024-12-07 14:45:55 发布 · 763 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#深度优先

博客内容展示了在ABAP中进行数据处理的逻辑，包括数据定义、赋值、显示及递归查询的过程。通过循环遍历数据表，对特定条件（a='a'）的数据调用子程序`frm_get_data`进行处理，子程序内部再次进行递归查询，将处理后的数据追加到新的数据表中。最终展示递归处理后的数据结果。

"主要逻辑就是查询下层之前，先做数据处理。
********数据定义
DATA: a TYPE char2,
b TYPE char2,
c TYPE char2,
d TYPE char2.

DATA: BEGIN OF ty_data,
a TYPE char2,
b TYPE char2,
c TYPE char2,
d TYPE char2,
END OF ty_data.

DATA gt_data LIKE TABLE OF ty_data.
DATA gs_data LIKE ty_data.

DATA gt_data1 LIKE TABLE OF ty_data.
DATA gs_data1 LIKE ty_data.

******赋值
gs_data-a = ‘a’.
gs_data-b = ‘b’.
APPEND gs_data TO gt_data.

gs_data-a = ‘a’.
gs_data-b = ‘e’.
APPEND gs_data TO gt_data.

gs_data-a = ‘b’.
gs_data-b = ‘c’.
APPEND gs_data TO gt_data.

gs_data-a = ‘b’.
gs_data-b = ‘d’.
APPEND gs_data TO gt_data.

gs_data-a = ‘c’.
gs_data-b = ‘d’.
APPEND gs_data TO gt_data.

*********显示
WRITE : / , ‘递归前’,/.
LOOP AT gt_data INTO gs_data.
WRITE: gs_data-a , gs_data-b, /.
CLEAR gs_data.
ENDLOOP.

*******主要逻辑
LOOP AT gt_data INTO gs_data WHERE a = ‘a’.

PERFORM frm_get_data USING gs_data-b.
CLEAR gs_data.
ENDLOOP.

*****显示
WRITE : / , ‘递归后’,/.
LOOP AT gt_data1 INTO gs_data1.
WRITE: gs_data1-a , gs_data1-b,gs_data1-c,gs_data1-d, /.
CLEAR gs_data.
ENDLOOP.

&---------------------------------------------------------------------
*& Form frm_get_data
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_get_data USING b.

gs_data1-a = gs_data-a.
gs_data1-b = gs_data-b.
gs_data1-c = gs_data-c.
gs_data1-d = gs_data-d.
APPEND gs_data1 TO gt_data1.
CLEAR gs_data1.

LOOP AT gt_data INTO gs_data where a = b…
PERFORM frm_get_data USING gs_data-b.
ENDLOOP.

ENDFORM.