需求：计算下面树形结构中每个子节点与最上层父节点的对应关系。

DATA:BEGIN OF lt_ztab OCCURS 0,
      a  TYPE string,
      b  TYPE string,
     END OF lt_ztab.
DATA:lw_ztab LIKE LINE OF lt_ztab,
     lw_ztab1 LIKE LINE OF lt_ztab,
     lt_ltab LIKE TABLE OF lt_ztab WITH HEADER LINE.

DATA:BEGIN OF lt_mtab OCCURS 0,
      m  TYPE string,
END OF lt_mtab.

DATA:lw_mtab LIKE LINE OF lt_mtab.
DATA:l_a TYPE string,
     l_b TYPE string.
lw_ztab-a = 'A'.
lw_ztab-b = 'B'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'B'.
lw_ztab-b = 'D'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'B'.
lw_ztab-b = 'E'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'D'.
lw_ztab-b = 'M'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'M'.
lw_ztab-b = 'W'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'M'.
lw_ztab-b = 'L'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C'.
lw_ztab-b = 'F'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'F'.
lw_ztab-b = 'N'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C'.
lw_ztab-b = 'G'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C'.
lw_ztab-b = 'H'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'A'.
lw_ztab-b = 'C'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'A1'.
lw_ztab-b = 'B1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'B1'.
lw_ztab-b = 'D1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'B1'.
lw_ztab-b = 'E1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'D1'.
lw_ztab-b = 'M1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C1'.
lw_ztab-b = 'F1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'F1'.
lw_ztab-b = 'N1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C1'.
lw_ztab-b = 'G1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'C1'.
lw_ztab-b = 'H1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'A1'.
lw_ztab-b = 'C1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'X'.
lw_ztab-b = 'Y'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'X'.
lw_ztab-b = 'C'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'X1'.
lw_ztab-b = 'Y1'.
APPEND lw_ztab TO lt_ztab.

lw_ztab-a = 'X1'.
lw_ztab-b = 'B'.
APPEND lw_ztab TO lt_ztab.

lw_mtab-m = 'A'.
APPEND lw_mtab TO lt_mtab.

lw_mtab-m = 'A1'.
APPEND lw_mtab TO lt_mtab.

lw_mtab-m = 'X'.
APPEND lw_mtab TO lt_mtab.

lw_mtab-m = 'X1'.
APPEND lw_mtab TO lt_mtab.

SORT lt_ztab BY a b.

LOOP AT lt_mtab INTO lw_mtab.
  LOOP AT lt_ztab INTO lw_ztab WHERE a = lw_mtab-m.

l_a = lw_ztab-a.
    l_b =  lw_ztab-b .

PERFORM: get_lastdata USING l_a l_b .

ENDLOOP.
ENDLOOP.

LOOP AT lt_ltab.
  WRITE: / lt_ltab-a,lt_ltab-b.
ENDLOOP.

FORM get_lastdata USING p_a TYPE string  p_b TYPE string.

lt_ltab-a = p_a.
  lt_ltab-b = p_b.
  APPEND lt_ltab.

READ TABLE lt_ztab WITH KEY a = p_b BINARY SEARCH.
  IF sy-subrc NE 0.
    EXIT.
  ELSE.
    LOOP AT lt_ztab INTO lw_ztab1 WHERE a = p_b.
      PERFORM: get_lastdata USING p_a lw_ztab1-b .
    ENDLOOP.
  ENDIF.

ENDFORM.

执行结果：

ABAP写的一个递归的更多相关文章

  1. 原生js写的一个弧形菜单插件

    弧形菜单是一种半弧式或者全弧形菜单,是一种不同于传统横向或者竖向菜单形式的菜单.最近在网上看到好多人写出了这种效果,于是也尝试自己写了一个. 实现方式:原生态js 主要结构: 1.参数合并 var d ...

  2. 输入一个数字n 如果n为偶数则除以2，若为奇数则加1或者减1，直到n为1，求最少次数 写出一个函数

    题目: 输入一个数字n  如果n为偶数则除以2,若为奇数则加1或者减1,直到n为1,求最少次数  写出一个函数 首先,这道题肯定可以用动态规划来解, n为整数时,n的解为 n/2 的解加1 n为奇数时 ...

  3. C# winfrom 写的一个搜索助手，可以按照标题和内容搜索，支持doc,xls,ppt,pdf,txt等格式的文件搜索

    C# winfrom 写的一个搜索助手,可以按照标题和内容搜索,指定目录后,遍历搜索文件和子目,现在只写了支持.DOC.DOCX.XLS.XLSX.PPT.PPTX.PDF.HTML.HTM.TXT等 ...

  4. 今天写了一个简单的新浪新闻RSS操作类库

    今天,有位群友问我如何获新浪新闻列表相关问题,我想,用正则表达式网页中取显然既复杂又不一定准确,现在许多大型网站都有RSS集合,所以我就跟他说用RSS应该好办一些. 一年前我写过一个RSS阅读器,不过 ...

  5. 搞了我一下午竟然是web.config少写了一个点

    Safari手机版居然有个这么愚蠢的bug,浪费了我整个下午,使尽浑身解数,国内国外网站搜索解决方案,每一行代码读了又想想了又读如此不知道多少遍,想破脑袋也想不通到底哪里出了问题,结果竟然是web.c ...

  6. 用C3中的animation和transform写的一个模仿加载的时动画效果

    用用C3中的animation和transform写的一个模仿加载的时动画效果! 不多说直接上代码; html标签部分 <div class="wrap"> <h ...

  7. 写了一个常规性生成merge 的小脚本

    现在使用数据库来写存储过程,动不动参数就会用到xml ,当然罗,优势也很明显,参数相对固定,而且灵活,如果要修改或者什么的,中间接口层也不需要做变化,只需要修改封装的存储过程以及程序传参就ok了. 随 ...

  8. c# .Net :Excel NPOI导入导出操作教程之List集合的数据写到一个Excel文件并导出

    将List集合的数据写到一个Excel文件并导出示例: using NPOI.HSSF.UserModel;using NPOI.SS.UserModel;using System;using Sys ...

  9. 自己写的一个SqlHelper,感觉使用起来挺方便的

    自己写的一个SqlHelper,感觉使用起来挺方便的 using System; using System.Data; using System.Collections.Generic; using ...

随机推荐

  1. YII中引用自定义类

    如果通过actions方法引用其他自定义类时 <?php class LoginController extends Controller { public function actionInd ...

  2. desc跟asc

  3. c中计时的几种方法

    C计时的几种方法说明及例程 1. 使用clock() 函数 头文件:<time.h> clock()函数,返回“自程序启动到调用该函数,CPU时钟的计时单元数(clock tick)” 每 ...

  4. json 转对象

    架包: import com.alibaba.fastjson.JSON; String arryStr="[{\"Name\": \"A\", \& ...

  5. hadoop_集群安装_2

    由于上一篇文章http://www.cnblogs.com/inuyasha1027/p/hadoop_cluster_install_1.html 截图太多,占用了太多的地方,所以将VMTools ...

  6. 使用反射让Spinner选择同一选项时触发onItemSelected事件

    翻看源码,Spinner判断是否触发onItemSelected,是在它的基类AdapterView里面做的: void checkSelectionChanged() { if ((mSelecte ...

  7. ios 从微信返回自己的app

    有这样一个需求.从我们自己的app分享内容到微信.点击分享内容返回到我们自己的app.(新浪微博的内容分享到微信就是这样的) 前面一直百度,谷歌都没用.可能我用的方法跟他们不一样吧.而且他们的方法都比 ...

  8. Ios 给imageview 添加手势没有反应

    道理差不多,简单写写,就是给UIImage所在的UIImageView添加个单击的手势,让用户点击图片时有响应的响应. 有人用个透明的UIButton,感觉有时候不方便.   - (void)view ...

  9. ECMAScript6入门系列一

    let 命令 { let a = 10; var b = 1; } a // ReferenceError: a is not defined. b // 1 [注]:let与var相似,用来声明变量 ...

  10. OpenCV(7)-图像直方图

    直方图定义可参考这里.图像的直方图用来表示图像像素的统计信息,它统计了图像每一个通道(如果是多通道)中,每个像素的个数(比例). 计算直方图 OpenCV提供了直接计算直方图的函数 void calc ...