output as a list

[Former Member]

I have a requirement wherein i need to output the structure of a table to a list.

Plz provide sample code for this.

Helpful answers will be rewarded.

[Former Member]

try this code:

TABLES: DD02L, DD03L, DD04T.

PARAMETERS THETABLE LIKE DD02L-TABNAME OBLIGATORY.

DATA: BEGIN OF MYTABLE,

TABNAME LIKE DD02L-TABNAME,

AS4LOCAL LIKE DD02L-AS4LOCAL,

AS4VERS LIKE DD02L-AS4VERS,

END OF MYTABLE.

SELECT SINGLE TABNAME AS4LOCAL AS4VERS INTO MYTABLE FROM DD03L

WHERE TABNAME = THETABLE.

WRITE: / MYTABLE-TABNAME, 11 MYTABLE-AS4LOCAL, 13 MYTABLE-AS4VERS.

SELECT * FROM DD03L

WHERE TABNAME = MYTABLE-TABNAME AND

AS4LOCAL = MYTABLE-AS4LOCAL AND AS4VERS = MYTABLE-AS4VERS.

WRITE: / DD03L-FIELDNAME, 11 DD03L-KEYFLAG, 13 DD03L-ROLLNAME,

24 DD03L-CHECKTABLE, 35 DD03L-INTTYPE, 37 DD03L-REFTABLE,

48 DD03L-DATATYPE.

SELECT SINGLE * FROM DD04T

WHERE ROLLNAME = DD03L-ROLLNAME AND

AS4LOCAL = MYTABLE-AS4LOCAL AND AS4VERS = MYTABLE-AS4VERS AND

DDLANGUAGE = 'E'.

WRITE: 53 DD04T-DDTEXT.

ENDSELECT.

Regards

Ankit

[Former Member]

Hi Neerja,

Check this.

DATA: i_qmel LIKE qmel OCCURS 0.

SELECT * FROM qmel INTO TABLE i_qmel.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE = ' '

• I_CALLBACK_PROGRAM = ' '

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

i_structure_name = 'QMEL'

• I_BACKGROUND_ID = ' '

• I_GRID_TITLE =

• I_GRID_SETTINGS =

• IS_LAYOUT =

• IT_FIELDCAT =

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IT_ALV_GRAPHICS =

• IT_ADD_FIELDCAT =

• IT_HYPERLINK =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = i_qmel

EXCEPTIONS

program_error = 1

OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

<b>Regards,

Jackie.</b>

[Former Member]

Hi,

U can find all the field names of the tables in DD03lL table. From there u can retrieve all the fields for required table and display them on the list.

DD01L-Domains

DD02L-Tables

DD03L-Fields

DD04L-Data Elements

Regards,

Sankar