Replacement for RFC_READ_TABLE?

Former Member — Thu, 23 Apr 2015 11:11:45 GMT

Is there a best practice replacement for the restricted RFC_READ_TABLE? OSS Note 382318 mentions that this remote function call is to be avoided, but there is not a recommended replacement solution. Any help would be appreciated.

Re: Replacement for RFC_READ_TABLE?

Former Member — Tue, 12 May 2015 13:58:57 GMT

Hi Ziv - Thank you for the response - it was consistent with other answers I had seen - which is to develop a zRFC_READ_TABLE with authorization included. Unfortunately, your post has been deleted.

Re: Replacement for RFC_READ_TABLE?

Ziv_Marcovich — Tue, 12 May 2015 14:12:01 GMT

Hi Bradley ,

You can try this fucntion ,it works fine for me.

Hopes this help

Ziv

FUNCTION yrfc_read_table.

*"----------------------------------------------------------------------

*"*"Local Interface:

*" IMPORTING

*" VALUE(QUERY_TABLE) LIKE DD02L-TABNAME

*" VALUE(DELIMITER) LIKE SONV-FLAG DEFAULT SPACE

*" VALUE(NO_DATA) LIKE SONV-FLAG DEFAULT SPACE

*" VALUE(ROWSKIPS) LIKE SOID-ACCNT DEFAULT 0

*" VALUE(ROWCOUNT) LIKE SOID-ACCNT DEFAULT 0

*" TABLES

*" OPTIONS STRUCTURE RFC_DB_OPT

*" FIELDS STRUCTURE RFC_DB_FLD

*" DATA STRUCTURE BPCHAR2000

*" EXCEPTIONS

*" TABLE_NOT_AVAILABLE

*" TABLE_WITHOUT_DATA

*" OPTION_NOT_VALID

*" FIELD_NOT_VALID

*" NOT_AUTHORIZED

*" DATA_BUFFER_EXCEEDED

*"----------------------------------------------------------------------

DATA BEGIN OF table_structure OCCURS 10.

INCLUDE STRUCTURE dfies.

DATA END OF table_structure.

DATA: table_type TYPE dd02v-tabclass,

number_of_fields TYPE i,

line_cursor TYPE i.

DATA: BEGIN OF fields_int OCCURS 10,

fieldname LIKE table_structure-fieldname,

type LIKE table_structure-inttype,

decimals LIKE table_structure-decimals,

length_src LIKE table_structure-intlen,

length_dst LIKE table_structure-leng,

offset_src LIKE table_structure-offset,

offset_dst LIKE table_structure-offset,

END OF fields_int.

DATA: dref TYPE REF TO data.

FIELD-SYMBOLS <d>.

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

tabname = query_table

IMPORTING

ddobjtype = table_type

TABLES

dfies_tab = table_structure

EXCEPTIONS

not_found = 1

internal_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

RAISE table_not_available.

ENDIF.

IF table_type = 'INTTAB'.

RAISE table_without_data.

ENDIF.

ASSIGN COMPONENT 0 OF STRUCTURE data TO <d>.

DESCRIBE TABLE fields LINES number_of_fields.

IF number_of_fields = 0.

LOOP AT table_structure.

MOVE table_structure-fieldname TO fields-fieldname.

APPEND fields.

ENDLOOP.

ENDIF.

line_cursor = 0.

LOOP AT fields.

READ TABLE table_structure WITH KEY fieldname = fields-fieldname.

IF sy-subrc NE 0.

RAISE field_not_valid.

ENDIF.

IF line_cursor <> 0.

IF no_data EQ space AND delimiter NE space.

MOVE delimiter TO data+line_cursor.

ENDIF.

line_cursor = line_cursor + STRLEN( delimiter ).

ENDIF.

fields_int-fieldname = table_structure-fieldname.

fields_int-length_src = table_structure-intlen.

fields_int-length_dst = table_structure-leng.

fields_int-offset_src = table_structure-offset.

fields_int-offset_dst = line_cursor.

fields_int-type = table_structure-inttype.

fields_int-decimals = table_structure-decimals.

line_cursor = line_cursor + table_structure-leng.

APPEND fields_int.

fields-fieldtext = table_structure-fieldtext.

fields-type = table_structure-inttype.

fields-length = fields_int-length_dst.

fields-offset = fields_int-offset_dst.

MODIFY fields.

ENDLOOP.

IF no_data EQ space.

FIELD-SYMBOLS: <wa> TYPE ANY, <comp> TYPE ANY.

CREATE DATA dref TYPE (query_table).

ASSIGN dref->* TO <wa>.

SELECT * INTO CORRESPONDING FIELDS OF <wa>

FROM (query_table)

WHERE (options).

IF sy-dbcnt GT rowskips.

LOOP AT fields_int.

* IF fields_int-type = 'P'.

* ASSIGN COMPONENT fields_int-fieldname

* OF STRUCTURE <wa> TO <comp>

* TYPE fields_int-type

* DECIMALS fields_int-decimals.

* ELSE.

ASSIGN COMPONENT fields_int-fieldname

OF STRUCTURE <wa> TO <comp>

TYPE fields_int-type.

* ENDIF.

MOVE <comp> TO

<d>+fields_int-offset_dst(fields_int-length_dst).

ENDLOOP.

APPEND data.

IF rowcount > 0 AND sy-dbcnt GE rowcount. EXIT. ENDIF.

ENDIF.

ENDSELECT.

ENDIF.

ENDFUNCTION.

Re: Replacement for RFC_READ_TABLE?

RaymondGiuseppi — Tue, 12 May 2015 14:20:51 GMT

Check also 1434284 - FAQ| Authorization concept for generic table access, as, since this note was implemented, the VIEW_AUTHORITY_CHECK FM is used in this FM to check read authorization on the table, so check for your version and read the note as well as online documentation of authorization objects S_TABU_*.

Regards,

Raymond

topic Re: Replacement for RFC_READ_TABLE? in Application Development and Automation Discussions

Replacement for RFC_READ_TABLE?

Re: Replacement for RFC_READ_TABLE?

Re: Replacement for RFC_READ_TABLE?

Re: Replacement for RFC_READ_TABLE?