remove

[Dukai Zoltan]

mail at abaptools.com wrote:
> 
> *************************************************************
> ABAP/4 Tools Newsletter #2, September 23, 2002
> *************************************************************
> abaptools.com now provides hundreds of links to ABAP Code samples!
> 
> SEPTEMBER SPECIAL: TableView Light Utility.
> TableView Light is a data migration and ABAP generation utility that extracts data to Access, Excel, HTML, PDF and more. TableView Light allows you to JOIN multiple tables for precise extracts and even generates your ABAP code! For a limited time, purchase TableView Light and receive the book 'SAP R/3 Data Integration Techniques Using ABAP/4 and Visual Basic' FREE.
> 
> For more information, visit http://www.abaptools.com today.
> 
> FEATURED ABAP/4: The example code below demonstrates how to search ABAP programs for a designated text string. The example allows entry of a range of ABAP programs. Each entered ABAP is searched for a designated string value. Two levels of detail can also be selected.
> ------------------------------------------------------------------------------------------------------------------------------------
> REPORT ZABSEARCH .
> 
> SELECT-OPTIONS: PROG FOR SY-REPID DEFAULT 'ZABSEARCH'.
> PARAMETERS: STRING(20) type c,
>             BRIEF AS CHECKBOX .
> 
> TABLES: TRDIRT.
> 
> DATA: PROGRAM LIKE SY-REPID.
> DATA :  BEGIN OF DTAB OCCURS 100,
>         PPROG LIKE SY-REPID,
>         PTXT(75) TYPE C,
> END OF DTAB.
> 
>  DATA: BEGIN OF I_TRDIRT OCCURS 0,
>    NAME LIKE TRDIRT-NAME, "C040 ABAP program name
>    TEXT LIKE TRDIRT-TEXT. "C070 Report title
>  DATA: END OF I_TRDIRT.
> 
> DATA :  BEGIN OF SOURCE OCCURS 1000,
>         LINE(72),
> END OF SOURCE.
> DATA: I TYPE I, J TYPE I, K TYPE I, L TYPE I, LNUM(6) TYPE N.
> DATA: EMPTY(72) VALUE ' '.
> DATA: P_STATEMENTS LIKE SSTMNT OCCURS 100 WITH HEADER LINE.
> DATA: P_TOKENS LIKE STOKEN OCCURS 100 WITH HEADER LINE.
> DATA: HITS TYPE I.
> *
> **
> SELECT NAME TEXT FROM TRDIRT INTO TABLE I_TRDIRT
>     WHERE NAME IN PROG AND SPRSL EQ SY-LANGU .
> 
> LOOP AT I_TRDIRT.
>   PROGRAM = I_TRDIRT-NAME .
>   REFRESH: P_STATEMENTS, P_TOKENS, SOURCE.
>   CLEAR:   SOURCE, P_STATEMENTS, P_TOKENS .
>   READ REPORT PROGRAM INTO SOURCE.
>   SCAN ABAP-SOURCE SOURCE STATEMENTS INTO P_STATEMENTS
>                           TOKENS       INTO P_TOKENS.
>   PERFORM LOAD_HITS.
> ENDLOOP.
> 
> IF BRIEF EQ 'X'.
>    SORT DTAB BY PPROG PTXT.
>    DELETE ADJACENT DUPLICATES FROM DTAB COMPARING PPROG.
>    ENDIF.
> LOOP AT I_TRDIRT.
>    PROGRAM = I_TRDIRT-NAME .
>    CLEAR HITS.
>    LOOP AT DTAB WHERE PPROG EQ PROGRAM.
>       HITS = HITS + 1.
>       WRITE:/1 DTAB-PPROG, DTAB-PTXT .
>       ENDLOOP.
>    IF HITS LT 1.
>       WRITE:/1 PROGRAM, '*** NOTHING MATCHED ****' .
>       ENDIF.
>    ULINE.
> ENDLOOP.
> 
> FORM LOAD_HITS.
> 
> DATA GOT1(1) TYPE C.
>    LOOP AT SOURCE.
>       CLEAR: GOT1, DTAB.
>       IF SOURCE CS STRING.
>          DTAB-PTXT = SOURCE.
>          GOT1 = 'Y'.
>          ENDIF.
>       IF GOT1 = 'Y'.
>          DTAB-PPROG = PROGRAM.
>          APPEND DTAB.
>          ENDIF.
>    ENDLOOP.
> 
> ENDFORM.
> ------------------------------------------------------------------------------------------------------------------------------------
> That's all for September. As always, we ask users to submit favorite ABAP routines to http://www.abaptools.com
> 
> ***********************************************************************************
> This newsletter is a monthly service of abaptools.com. To be removed
> from our mailing list, simply reply to this newsletter with 'remove' in
> the subject line.