ABAP 通过程序中的关键字查找程序名和首次出现的行数

TYPES: BEGIN OF ty_item,
         name TYPE trdir-name,
         line type sy-tabix,
       END OF ty_item.

DATA: gt_item  TYPE TABLE OF ty_item,
      gt_item1 TYPE TABLE OF ty_item,
      gs_item1 TYPE ty_item,
      gs_item  TYPE ty_item.





DATA: gt_text TYPE TABLE OF string,
      gs_text TYPE string,
      lv_text TYPE string.

**-----1000----------------------------------------
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: ser TYPE trdir-name.
SELECTION-SCREEN: END OF BLOCK b1.

*START-OF-SELECTION.
PERFORM frm_search_data.
PERFORM frm_search_data1.


FORM frm_search_data.
  SELECT name