动态生成程序例子

最新推荐文章于 2024-10-17 10:00:00 发布

转载最新推荐文章于 2024-10-17 10:00:00 发布 · 1.3k 阅读

文章标签：

#subroutine #string #table

ABAP 专栏收录该内容

42 篇文章

订阅专栏

本文深入探讨了程序开发的关键技术和流程，包括从需求分析到测试的全生命周期管理，重点介绍了前端开发、后端开发、移动开发等领域的核心知识点，以及自动化测试、版本控制等现代开发工具的应用。

data: PROG type STRING,
      TAB type standard table of STRING,
      MESS type STRING,
      SID type STRING.

append 'PROGRAM subpool.'                        to TAB.
append `DATA EKKO_tab TYPE TABLE OF EKKO.`     to TAB.
append `LOAD-OF-PROGRAM.`                        to TAB.
append ` SELECT *` &
       `         FROM EKKO` &
       `         INTO TABLE EKKO_tab.`          to TAB.
append `FORM loop_at_tab.`                       to TAB.
append ` DATA EKKO_wa TYPE EKKO.`             to TAB.
append ` LOOP AT EKKO_tab INTO EKKO_wa.`      to TAB.
append `    PERFORM evaluate_wa USING EKKO_wa.` to TAB.
append ` ENDLOOP.`                              to TAB.
append `ENDFORM.`                                to TAB.
append `FORM evaluate_wa USING l_wa TYPE EKKO.` to TAB.
append ` WRITE: / l_wa-EBELN, l_wa-AEDAT.`    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.