使用 OPEN CURSOR 和 FETCH NEXT CURSOR 对 SAP 数据库表进行分块读写试读版

@TOC

在本教程前一步骤，我们介绍了需要对 ABAP 数据库表进行分块读写的场合，这是来自一个朋友向我咨询的实际问题。

• 78. 浅谈 ABAP 程序运行时出现『内存耗尽』错误的问题

开发任务

开发一个 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 这组关键字，具体使用步骤在我这篇教程里有详细介绍。