Functional module extractor for INDX

Question

Help to write please an optimum code of the functional module for an extractor from table INDX

Answer 1

While in the functional module on the basis of RSAX_BIW_GET_DATA_SIMPLE ' has made the following
* Data transfer: First Call      OPEN CURSOR + FETCH
*                Following Calls FETCH only
* íà÷àëî îáðàáîòêè
* First data package -> OPEN CURSOR
    IF S_COUNTER_DATAPAKID = 0.
delete from zdbasetable1.
import inttable1 inttable2 inttable3 from database INDX(IM) ID 'IDENT'.
loop at inttable1.
  move-corresponding inttable1 to zdbasetable1.
  modify zdbasetable1.
  clear  zdbasetable1.
endloop.
      OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT (S_S_IF-T_FIELDS) FROM zdbasetable1.
    ENDIF.                             "First data package ?
* Fetch records into interface table.
*   named E_T_'Name of extract structure'.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.
But it would be desirable, without use database table - zdbasetable1