@[TOC](文章目錄)

在本教程前一步驟，我們介紹了需要對 ABAP 資料庫表進行分塊讀寫的場合，這是來自一個朋友向我諮詢的實際問題。

* [78. 淺談 ABAP 程式執行時出現『記憶體耗盡』錯誤的問題](https://jerry.blog.csdn.net/article/details/128621247)

# 開發任務

開發一個 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 程式碼實現流程如下：

![](https://img-blog.csdnimg.cn/img_convert/23649898499b78042681155753f0710d.png)

按照這個實現思路，寫出來的 ABAP 函式完整原始碼如下：

```sql
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.
```
輸入引數：

![](https://img-blog.csdnimg.cn/img_convert/be0bd0de17e9af995919d67cdb38a5a8.png)

輸出引數：

![](https://img-blog.csdnimg.cn/img_convert/d47423feb06c0642c79bfb9b263f1079.png)

關於 ABAP 字串模板的更多使用方法，參考本教程這篇文章：

* [28. SAP ABAP 字串變數容易疏忽和混淆的一些知識點](https://jerry.blog.csdn.net/article/details/125340395)

![](https://img-blog.csdnimg.cn/img_convert/5c9fa011f024c6acff9a5629a0d92f26.png)

直接 F8 執行函式，預設的輸入引數值為 100：

![](https://img-blog.csdnimg.cn/img_convert/6147682aa35a6544d2159950347102c0.png)

執行之後，看到 et_data 輸出引數包含了 100 條列表：

![](https://img-blog.csdnimg.cn/img_convert/bd1f33f3e40514eeb83554b63c274ae2.png)

單擊上圖的 `100 Entries`，可以看到全部 100 條記錄。

![](https://img-blog.csdnimg.cn/img_convert/d13606aff1b503e95c33aa599eed2d68.png)

本教程上一篇文章，詳細分析了這種解法可能會造成執行當前 ABAP 程式出現`記憶體耗盡`的問題發生：

* [78. 淺談 ABAP 程式執行時出現『記憶體耗盡』錯誤的問題](https://jerry.blog.csdn.net/article/details/128621247)

如下圖所示：將 TADIR 資料庫表的 200 萬條資料，全部從資料庫層讀取到應用層，再在 ABAP 端逐一遍歷。這種實現方式雖然從寫程式碼層面來說思路比較簡單，但是卻造成了巨大的記憶體儲存空間的浪費——舉個極端的情況，函式呼叫者如果將 IV_COUNT 指定為 1，即只希望返回 `一條` 符合許可權控制的記錄，那我們將 200 萬條資料全部讀取出來，豈不是大材小用嗎？
![](https://img-blog.csdnimg.cn/img_convert/66a3e4ac4fdb6f20c21f8df8b3b027fc.png)

下面我們採取分塊讀取資料庫表的方式，重新實現這個 ABAP 函式。

分塊讀取資料庫表需要使用 `OPEN CURSOR` 和 `FETCH NEXT CURSOR` 這組關鍵字，具體使用步驟在我這篇[教程](https://jerry.blog.csdn.net/article/details/128630990)裡有詳細介紹。

使用 OPEN CURSOR 和 FETCH NEXT CURSOR 對 SAP 資料庫表進行分塊讀寫試讀版

相關文章