本文共 1185 字，大约阅读时间需要 3 分钟。

REPORT ZSUBROUTINE.DATA: prog  TYPE string,      tab  TYPE STANDARD TABLE OF string,      mess TYPE string,      sid  TYPE string.APPEND 'PROGRAM subpool.'                        TO tab.APPEND `DATA spfli_tab TYPE TABLE OF spfli.`     TO tab.APPEND `LOAD-OF-PROGRAM.`                        TO tab.APPEND `  SELECT *` &       `         FROM spfli` &       `         INTO TABLE spfli_tab.`          TO tab.APPEND `FORM loop_at_tab.`                       TO tab.APPEND `  DATA spfli_wa TYPE spfli.`             TO tab.APPEND `  LOOP AT spfli_tab INTO spfli_wa.`      TO tab.APPEND `    PERFORM evaluate_wa USING spfli_wa.` TO tab.APPEND `  ENDLOOP.`                              TO tab.APPEND `ENDFORM.`                                TO tab.APPEND `FORM evaluate_wa USING l_wa TYPE spfli.` TO tab.APPEND `  WRITE: / l_wa-carrid, l_wa-connid.`    TO tab.APPEND `ENDFORM.`                                TO tab.GENERATE SUBROUTINE POOL tab NAME prog         MESSAGE mess         SHORTDUMP-ID sid.IF sy-subrc = 0.  PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND.ELSEIF sy-subrc = 4.  MESSAGE mess TYPE 'I'.ELSEIF sy-subrc = 8.  MESSAGE sid TYPE 'I'.ENDIF.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/103976217 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！