RFC enabled function module for insert update and delete in a Ztable..

[Former Member]

friends..

Is there any standatd RFC enabled function module to insert , update and delete data in a custom database-table (Ztable)? if not how can we create it? plz give me the details steps..

what are the import, export parameters and how to develop and process it.. (for example: suppose fields in the table is Emp_Id, Name, Address)

Thanks and Regards

[Former Member]

Hi,

Try this code.

REPORT ZMMC071Z_RMV.

TYPE-POOLS : ABAP.

FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,

<DYN_WA>,

<DYN_FIELD>,

<LV_CONDI>.

DATA: DY_TABLE TYPE REF TO DATA,

DY_LINE TYPE REF TO DATA,

XFC TYPE LVC_S_FCAT,

IFC TYPE LVC_T_FCAT.

SELECTION-SCREEN BEGIN OF BLOCK F1 WITH FRAME TITLE TEXT-001.

PARAMETERS: P_TABLE LIKE DD02L-TABNAME OBLIGATORY.

SELECTION-SCREEN END OF BLOCK F1.

************************************************************************

• Evento: At Selection Screen *

************************************************************************

START-OF-SELECTION.

PERFORM GET_STRUCTURE.

PERFORM CREATE_DYNAMIC_ITAB.

PERFORM GET_DATA.

END-OF-SELECTION.

&----

---

*& Form get_structure

&----

---

• text

----

---

FORM GET_STRUCTURE.

DATA : IDETAILS TYPE ABAP_COMPDESCR_TAB,

XDETAILS TYPE ABAP_COMPDESCR.

DATA : REF_TABLE_DES TYPE REF TO CL_ABAP_STRUCTDESCR.

DATA VL_LENGHT(30).

• Get the structure of the table.

REF_TABLE_DES ?=

CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( P_TABLE ).

IDETAILS[] = REF_TABLE_DES->COMPONENTS[].

LOOP AT IDETAILS INTO XDETAILS.

CLEAR XFC.

XFC-FIELDNAME = XDETAILS-NAME .

XFC-DATATYPE = XDETAILS-TYPE_KIND.

XFC-INTTYPE = XDETAILS-TYPE_KIND.

XFC-INTLEN = XDETAILS-LENGTH.

XFC-DECIMALS = XDETAILS-DECIMALS.

APPEND XFC TO IFC.

ENDLOOP.

ENDFORM. "get_structure

&----

---

*& Form create_dynamic_itab

&----

---

• text

----

---

FORM CREATE_DYNAMIC_ITAB.

• Create dynamic internal table and assign to FS

CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE

EXPORTING

IT_FIELDCATALOG = IFC

IMPORTING

EP_TABLE = DY_TABLE.

ASSIGN DY_TABLE->* TO <DYN_TABLE>.

• Create dynamic work area and assign to FS

CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>.

ASSIGN DY_LINE->* TO <DYN_WA>.

ENDFORM. "create_dynamic_itab

&----

---

*& Form get_data

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_DATA .

*Get data from p_table into internal table <DYN_TABLE>

SELECT * INTO TABLE <DYN_TABLE>

FROM (P_TABLE)

• Here you can implemente function DELETE, INSERT.

ENDFORM. " De_para