Display of constants

Question

hello,
         i have to display the constants on entering the program name ,for that i have read the report into a table.i checked the line in the table using
loop at it_na INTO wa_na WHERE TABLE_LINE  CS  'CONSTANTS' .
           write : wa_na-text.
  ENDLOOP.
but the problem is that it displays only the first constant.
how to display all the constants declared within the declaration
eg:constants : a(10) type c value 'asdf',
                        b(25) type c value 'cvbn'.

Answer 1

Hi,
Try with SCAN statement.. But this is also internal use.. But this works very fine..
DATA: abap_source TYPE TABLE OF rssource.
DATA: l_token_analysis LIKE stokex   OCCURS 0  WITH HEADER LINE ,
      l_statements     LIKE sstmnt   OCCURS 0,
      l_keyword        LIKE rssource OCCURS 0  WITH HEADER LINE .
READ REPORT 'PROGNAME' INTO abap_source.
IF sy-subrc = 0.
  l_keyword = 'CONSTANTS'.
  APPEND l_keyword.
  SCAN ABAP-SOURCE abap_source
       TOKENS     INTO l_token_analysis
       STATEMENTS INTO l_statements
       KEYWORDS   FROM l_keyword
       WITH ANALYSIS
       WITHOUT TRMAC.
ENDIF.
Table l_token_analysis will have contents matching l_keyword. line by line
Table l_statements will have the start and end point and no of fields matced..
have a closer look on l_statements  and l_token_analysis.
Regards,
Ravi.