diciembre 09, 2004

Creacion dinamica de variables....

PARAMETERS:
tab_name TYPE tname default 'YJTTEST', "Table name
tab_comp TYPE tfieldname default 'PSPNR', "Field name
line_num TYPE i DEFAULT 10. "Line number

FIELD-SYMBOLS:
TYPE ANY,
TYPE ANY.

DATA:
wa_ref TYPE REF TO DATA.

CREATE DATA wa_ref TYPE (tab_name). "Suitable work area

ASSIGN wa_ref->* TO .

SELECT * FROM (tab_name) INTO .
CHECK SY-DBCNT < line_num.
ASSIGN COMPONENT tab_comp OF STRUCTURE TO .
WRITE: / tab_comp , .
ENDSELECT.