Replacement Function module for Table_compress.

[Former Member]

Hi,

I got following Function module table_compress and i have to replace it i know the replacement function module but not getting how to pass parameters can any one make a look on it and help me out.

FORM list_store USING mode TYPE c.

DATA: list_item_c LIKE list_item OCCURS 10.

DATA: BEGIN OF obj_tab OCCURS 5,

name(30),

programname(10),

END OF obj_tab.

obj_tab-name = 'LIST_ITEM_C'. APPEND obj_tab.

obj_tab-name = 'T_FIMSG'. APPEND obj_tab.

obj_tab-name = 'BUCHUNG'. APPEND obj_tab.

*

CATCH SYSTEM-EXCEPTIONS

import_mismatch_errors = 1.

IF mode = 'E'.

CALL FUNCTION 'TABLE_COMPRESS'

TABLES

in = list_item

out = list_item_c

EXCEPTIONS

OTHERS = 4.

IF sy-subrc = 0.

EXPORT (obj_tab) TO DATABASE indx(al) ID stor_nam.

ELSE.

ENDIF.

ELSE.

IMPORT (obj_tab) FROM DATABASE indx(al) ID stor_nam.

CALL FUNCTION 'TABLE_DECOMPRESS'

TABLES

in = list_item_c

out = list_item

EXCEPTIONS

OTHERS = 4.

IF sy-subrc = 0.

ELSE.

ENDIF.

ENDIF.

ENDCATCH.

IF sy-subrc NE 0.

• MESSAGE i600 WITH 'Fehler bei Import / Export'(005).

ENDIF.

[Former Member]

Hi,

I got following Function module table_compress and i have to replace it i know the replacement function moduleis CL_ABAP_GZIP. but not getting how to pass parameters can any one make a look on it and help me out.

FORM list_store USING mode TYPE c.

DATA: list_item_c LIKE list_item OCCURS 10.

DATA: BEGIN OF obj_tab OCCURS 5,

name(30),

programname(10),

END OF obj_tab.

obj_tab-name = 'LIST_ITEM_C'. APPEND obj_tab.

obj_tab-name = 'T_FIMSG'. APPEND obj_tab.

obj_tab-name = 'BUCHUNG'. APPEND obj_tab.

*

CATCH SYSTEM-EXCEPTIONS

import_mismatch_errors = 1.

IF mode = 'E'.

CALL FUNCTION 'TABLE_COMPRESS'

TABLES

in = list_item

out = list_item_c

EXCEPTIONS

OTHERS = 4.

IF sy-subrc = 0.

EXPORT (obj_tab) TO DATABASE indx(al) ID stor_nam.

ELSE.

ENDIF.

ELSE.

IMPORT (obj_tab) FROM DATABASE indx(al) ID stor_nam.

CALL FUNCTION 'TABLE_DECOMPRESS'

TABLES

in = list_item_c

out = list_item

EXCEPTIONS

OTHERS = 4.

IF sy-subrc = 0.

ELSE.

ENDIF.

ENDIF.

ENDCATCH.

IF sy-subrc NE 0.

• MESSAGE i600 WITH 'Fehler bei Import / Export'(005).

ENDIF.

[kesavadas_thekkillath]

Go to se24

Give the class-display-Menu goto-Documentation-to component.

Please read it.