开发任务
开发一个 ABAP 函数:
输入参数为 iv_count, 指定该 ABAP 函数的调用者,期望函数返回的记录个数。
输出参数为 et_data, 这是一张内表,包含了满足指定条件的来自数据库表 A 里的记录数。et_data 的记录数,小于等于 iv_count.
指定条件意思是,对于每条从数据库表 A 取回来的记录数,调用另一个 ABAP 函数 C,进行权限检查,如果当前用户没有足够的权限查看这条记录,就忽略这条记录,继续处理下一条。如果有权限查看,就把这条记录添加到输出参数 et_data 里。
当 et_data 的行数等于 iv_count 或者数据库表里的全部数据都被循环处理后,结束循环。
ABAP Function Module C 的逻辑比较复杂,没办法在数据库层面进行权限检查,所以只好把数据从数据库表取出来之后,在 ABAP 层进行检查。
第一版实现:将数据库表的全部内容,读取到 ABAP 应用层进行处理
向我咨询的朋友第一版的 ABAP 代码实现流程如下:
按照这个实现思路,写出来的 ABAP 函数完整源代码如下:
FUNCTION zselect_filter. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(IV_COUNT) TYPE INT4 DEFAULT 100 *" EXPORTING *" REFERENCE(ET_DATA) TYPE STRING_TABLE *"---------------------------------------------------------------------- DATA: lt_data TYPE TABLE OF tadir, ls_data TYPE tadir, lv_can_access TYPE abap_bool. SELECT * INTO TABLE lt_data FROM tadir. LOOP AT lt_data INTO ls_data. PERFORM authorization_check USING ls_data CHANGING lv_can_access. IF lv_can_access = abap_true. APPEND |{ ls_data-object }-{ ls_data-obj_name }| TO et_data. ENDIF. IF lines( et_data ) = iv_count. EXIT. ENDIF. ENDLOOP. ENDFUNCTION. FORM authorization_check USING is_data TYPE tadir CHANGING cv_result TYPE abap_bool. cv_result = abap_true. ENDFORM.
输入参数:
输出参数:
关于 ABAP 字符串模板的更多使用方法,参考本教程这篇文章:
28. SAP ABAP 字符串变量容易疏忽和混淆的一些知识点
直接 F8 执行函数,默认的输入参数值为 100:
执行之后,看到 et_data 输出参数包含了 100 条列表:
单击上图的 100 Entries,可以看到全部 100 条记录。
本教程上一篇文章,详细分析了这种解法可能会造成运行当前 ABAP 程序出现内存耗尽的问题发生:
78. 浅谈 ABAP 程序运行时出现『内存耗尽』错误的问题
如下图所示:将 TADIR 数据库表的 200 万条数据,全部从数据库层读取到应用层,再在 ABAP 端逐一遍历。这种实现方式虽然从写代码层面来说思路比较简单,但是却造成了巨大的内存存储空间的浪费——举个极端的情况,函数调用者如果将 IV_COUNT 指定为 1,即只希望返回 一条 符合权限控制的记录,那我们将 200 万条数据全部读取出来,岂不是大材小用吗?
下面我们采取分块读取数据库表的方式,重新实现这个 ABAP 函数。
分块读取数据库表需要使用 OPEN CURSOR 和 FETCH NEXT CURSOR 这组关键字,具体使用步骤在我这篇教程里有详细介绍。