텍스트심볼 (TEXT-000) 검색

이거 없었으면 프로그램 400여 개 일일이 뒤질뻔.. 진짜 뒤질뻔

TABLES: RS38M.
 
 DATA : BEGIN OF ITAB OCCURS 0,
          NAME TYPE PROGNAME.
         INCLUDE STRUCTURE TEXTPOOL.
 DATA : END OF ITAB.
 
 DATA : TEXTS  LIKE TEXTPOOL OCCURS 50 WITH HEADER LINE,
        W_TEXT LIKE TEXTPOOL.
 
 DATA : IT          LIKE LINE OF ITAB OCCURS 0,
        LINES       TYPE I,
        MYALV       TYPE REF TO CL_SALV_TABLE,
        MYFUNCTIONS TYPE REF TO CL_SALV_FUNCTIONS_LIST,
        MYCOLUMNS   TYPE REF TO CL_SALV_COLUMNS_TABLE.
 
 SELECTION-SCREEN : BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001.
 
 SELECT-OPTIONS : S_ZPRG  FOR  RS38M-PROGRAMM.
 PARAMETERS:      P_LANGU TYPE SY-LANGU DEFAULT '3'.
 
 SELECTION-SCREEN : END OF BLOCK B.
 
 START-OF-SELECTION.
 
   SELECT PROGNAME AS NAME
     FROM REPOSRC
     INTO CORRESPONDING FIELDS OF TABLE ITAB
     WHERE PROGNAME IN S_ZPRG.
 
   DATA(LV_LINES) = LINES( ITAB ).
   LOOP AT ITAB.
     IF SY-TABIX GT LV_LINES.
       EXIT.
     ENDIF.
     READ TEXTPOOL ITAB-NAME INTO TEXTS LANGUAGE P_LANGU.
     LOOP AT TEXTS INTO W_TEXT . "WHERE id EQ 'I'.
       MOVE-CORRESPONDING W_TEXT TO ITAB.
       APPEND ITAB TO ITAB.
     ENDLOOP.
   ENDLOOP.
 
   IT[] = ITAB[].
 
   TRY.
       CALL METHOD CL_SALV_TABLE=>FACTORY
         IMPORTING
           R_SALV_TABLE = MYALV
         CHANGING
           T_TABLE      = ITAB[].
     CATCH CX_SALV_MSG.
   ENDTRY.
 
   DESCRIBE TABLE ITAB LINES LINES.
   MESSAGE S375(PO) WITH LINES '' 'records found..'.
   MYCOLUMNS = MYALV->GET_COLUMNS( ).
   MYCOLUMNS->SET_OPTIMIZE( ).
   MYFUNCTIONS = MYALV->GET_FUNCTIONS( ).
   MYFUNCTIONS->SET_ALL( ).
   CALL METHOD MYALV->DISPLAY.