‎2009 Sep 08 7:26 PM
Hi experts,
i have a function module that has an import parameter type DATA.. This parameter is dynamic structure of known tabname.
How can i move this sturucture to lraw format datatype??
CALL FUNCTION 'Z_SAVE_LOG'
EXPORTING
tabname = 'MARA'
tabdata = MARATAB
.
[code]
FUNCTION z_save_log.
*"----
""Local Interface:
*" IMPORTING
*" REFERENCE(TABNAME) TYPE TABNAME
*" REFERENCE(TABDATA) TYPE DATA
*" REFERENCE(ERNAM) TYPE ERNAM DEFAULT SY-UNAME
*" REFERENCE(ERDAT) TYPE ERDAT DEFAULT SY-DATUM
*" REFERENCE(ERZET) TYPE ERZET DEFAULT SY-UZEIT
*"----
DATA:
stru TYPE REF TO data.
FIELD-SYMBOLS: <f1>,
<f2>.
DATA : new TYPE ztablelog.
DATA : str TYPE string.
DATA : longstr TYPE string.
DATA : keyfields TYPE TABLE OF rsmva.
DATA : dfies_tab TYPE TABLE OF dfies,
dfies_wa TYPE dfies.
ASSIGN tabdata TO <f1>.
CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
tabname = tabname
TABLES
dfies_tab = dfies_tab
EXCEPTIONS
not_found = 1
internal_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT dfies_tab INTO dfies_wa.
ASSIGN dfies_wa-fieldname TO <f1>.
ASSIGN COMPONENT <f1> OF STRUCTURE tabdata TO <f2> .
MOVE <f2> TO str.
CONCATENATE longstr str INTO longstr.
ENDLOOP.
new-raw_len = STRLEN( str ).
MOVE str TO new-raw_data.
ENDFUNCTION.
[code]
‎2009 Sep 09 5:21 AM
DATA dataref TYPE REF TO data.
* Create Data Reference for the Table
CREATE DATA dataref TYPE TABLE OF <Table name>.
ASSIGN dataref->* TO <field-symbol>.Kanagaraja L
‎2009 Sep 09 10:02 AM
I have to move TABDATA to a string or a LRAW datatype object.. TABDATA is a dynamic structure..