某公司自定義開發的程序都有使用次數和使用者信息的記錄，這就要求每次新開發的程序均要包含指定Include程序，下面的代碼就可以根據輸入的程序名稱校驗是否遺漏Include程序。

*&---------------------------------------------------------------------* *& Report ZTEST_GET_INCLUDETAB *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*REPORT ZTEST_GET_INCLUDETAB.TABLES : ZTPGMUSECNT. SELECT-OPTIONS : P_GRAM FOR ZTPGMUSECNT-PROGNAME. "程序名稱 PARAMETERS : P_NO AS CHECKBOX DEFAULT ''."排除已維護的程序START-OF-SELECTION.IF P_GRAM[] IS INITIAL.MESSAGE 'No Program Selected！' TYPE 'E'.ENDIF.DATA: IINCLUDELINES TYPE STANDARD TABLE OF STRING WITH HEADER LINE.DATA: ITOKENS TYPE STANDARD TABLE OF STOKES WITH HEADER LINE.DATA: IKEYWORDS TYPE STANDARD TABLE OF TEXT20 WITH HEADER LINE.DATA: ISTATEMENTS TYPE STANDARD TABLE OF SSTMNT WITH HEADER LINE.DATA: CASTPROGRAMNAME TYPE PROGRAM.DATA: LV_INDEX TYPE BUZEI.LOOP AT P_GRAM.LV_INDEX = LV_INDEX + 1.CASTPROGRAMNAME = P_GRAM-LOW.READ REPORT CASTPROGRAMNAME INTO IINCLUDELINES.APPEND 'INCLUDE' TO IKEYWORDS.SCAN ABAP-SOURCE IINCLUDELINES TOKENS INTO ITOKENSWITH INCLUDES STATEMENTS INTO ISTATEMENTS KEYWORDS FROM IKEYWORDS.CLEAR IINCLUDELINES[].LOOP AT ITOKENS WHERE STR = 'ZINCLUDE_LOG' AND TYPE = 'I'.ENDLOOP.IF SY-SUBRC = 0 .IF P_NO = ''.WRITE :/ LV_INDEX,P_GRAM-LOW,'--- Exist'.ENDIF.ELSE.WRITE :/ LV_INDEX COLOR OFF,P_GRAM-LOW COLOR OFF,'--- Not Exist' COLOR = 6.ENDIF.ENDLOOP.

?SAP也提供了標準的函數"GET_INCLUDETAB"查詢程序所包含的Include程序。

FUNCTION GET_INCLUDETAB. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(PROGNAME) *" TABLES *" INCLTAB *"----------------------------------------------------------------------*----------------------------------------------------------------------* * Iterative Bestimmung der verwendeten Includes beginnend mit dem * * Programm / Include PROGNAME * *----------------------------------------------------------------------*DATA: T TYPE RSWSOURCET. *-----Tabellen für SCAN ABAP-SOURCE-----------------------------------DATA: BEGIN OF KW OCCURS 10,LINE(30),END OF KW.DATA TK TYPE STOKESX OCCURS 0 WITH HEADER LINE.DATA BEGIN OF STM OCCURS 1000.INCLUDE STRUCTURE SSTMNT.DATA END OF STM. *----------------------------------------------------------------------CLEAR INCLTAB. REFRESH INCLTAB.INCLTAB = PROGNAME.APPEND INCLTAB.REFRESH KW. CLEAR KW.KW = 'INCLUDE'. APPEND KW.LOOP AT INCLTAB.READ REPORT INCLTAB INTO T.REFRESH: TK, STM. CLEAR: TK, STM.SCAN ABAP-SOURCE TTOKENS INTO TKSTATEMENTS INTO STMKEYWORDS FROM KWWITH ANALYSIS.LOOP AT STM.ADD 1 TO STM-FROM.READ TABLE TK INDEX STM-FROM.CHECK TK-STR NE 'STRUCTURE'.CHECK TK-STR NE 'TYPE'. " JR 26.6.98CHECK TK-STR NE 'LIKE'. " JR 26.6.98CHECK TK-STR NE 'METHODS'. " JR 26.6.98INCLTAB = TK-STR.READ TABLE INCLTAB.IF SY-SUBRC > 0.APPEND INCLTAB.ENDIF.ENDLOOP.ENDLOOP.DELETE INCLTAB INDEX 1. "Rahmenprogramm wieder entfernenENDFUNCTION.

?

總結

以上是生活随笔為你收集整理的【ABAP】获取程序中的Include的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。