Generate RFC Proxy Classes

Right click your package and create a new Class in your Package and use Add to add IF_OO_ADT_CLASSRUN interface.

Click Next.

Your new created class should look like the following:

In the service consumption model, copy the code sample.

Paste the code in your new class in the if_oo_adt_classrun~main method.

Enter a valid destination name as mydestname and ask for some outputs.

You can copy this code:

out->write( |{ CURRENT_RESOURCES }, { FAST_SER_VERS }, { MAXIMAL_RESOURCES }, { RECOMMENDED_DELAY }, { RFCSI_EXPORT-rfcchartyp }, { S4_HANA }| ).
    out->write(  RFCSI_EXPORT ).

Activate both classes, auto-generated and created by your own. Press F9 to run the class and check results in the console.

Right-click your package and create a new class and copy the code sample from your created service consumption models into if_oo_adt_classrun~main method.

See Step 3 for details.

Enter a valid destination name as mydestname and try to read a table like SFLIGHT.

Your complete code should look like following:

CLASS z_class_read_xxx DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS z_class_read_xxx IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DATA dest TYPE REF TO IF_RFC_DEST.
DATA myobj  TYPE REF TO Z_READ_TEST.
DATA DELIMITER TYPE Z_READ_TEST=>SO_TEXT001.
DATA NO_DATA TYPE Z_READ_TEST=>SO_TEXT001.
DATA QUERY_TABLE TYPE Z_READ_TEST=>TABNAME.
DATA ROWCOUNT TYPE Z_READ_TEST=>SO_INT.
DATA ROWSKIPS TYPE Z_READ_TEST=>SO_INT.
DATA DATA TYPE Z_READ_TEST=>_TAB512.
DATA FIELDS TYPE Z_READ_TEST=>_RFC_DB_FLD.
DATA OPTIONS TYPE Z_READ_TEST=>_RFC_DB_OPT.
TRY.
  dest = CL_RFC_DESTINATION_PROVIDER=>CREATE_BY_CLOUD_DESTINATION( I_NAME = 'A4H' ).
  CREATE OBJECT myobj
    EXPORTING
      destination = dest.
catch CX_RFC_DEST_PROVIDER_ERROR.
 " handle CX_RFC_DEST_PROVIDER_ERROR
ENDTRY.
TRY.
QUERY_TABLE = 'SFLIGHT'.
  myobj->RFC_READ_TABLE(
     EXPORTING
       DELIMITER = DELIMITER
       NO_DATA = NO_DATA
       QUERY_TABLE = QUERY_TABLE
     CHANGING
       DATA = DATA
       FIELDS = FIELDS
       OPTIONS = OPTIONS
   ).
   Loop at DATA into DATA(ls_wa).
   out->write( ls_wa-wa ).
   Endloop.
 CATCH  CX_ACO_COMMUNICATION_FAILURE INTO DATA(lcx_comm).
 out->write( lcx_comm->get_longtext( ) ).
  " handle CX_ACO_COMMUNICATION_FAILURE (sy-msg* in lcx_comm->IF_T100_MESSAGE~T100KEY)
 CATCH CX_ACO_SYSTEM_FAILURE INTO DATA(lcx_sys).
 out->write( lcx_sys->get_longtext( ) ).
  " handle CX_ACO_SYSTEM_FAILURE (sy-msg* in lcx_sys->IF_T100_MESSAGE~T100KEY)
 CATCH CX_ACO_APPLICATION_EXCEPTION INTO DATA(lcx_appl).
  " handle APPLICATION_EXCEPTIONS (sy-msg* in lcx_appl->IF_T100_MESSAGE~T100KEY)
   CASE lcx_appl->GET_EXCEPTION_ID( ).
      WHEN 'DATA_BUFFER_EXCEEDED'.
        "handle DATA_BUFFER_EXCEEDED.
      WHEN 'FIELD_NOT_VALID'.
        "handle FIELD_NOT_VALID.
      WHEN 'NOT_AUTHORIZED'.
        "handle NOT_AUTHORIZED.
      WHEN 'OPTION_NOT_VALID'.
        "handle OPTION_NOT_VALID.
      WHEN 'TABLE_NOT_AVAILABLE'.
        "handle TABLE_NOT_AVAILABLE.
      WHEN 'TABLE_WITHOUT_DATA'.
        "handle TABLE_WITHOUT_DATA.
   ENDCASE.
ENDTRY.
  ENDMETHOD.
ENDCLASS.

Activate both classes, auto-generated and created by your own. Press F9 to run the class and check results in the console.