SAP ABAP FUNCTIONS

RFC_READ_TABLE

data gt_data type TABLE OF TAB512.
data gt_options type TABLE OF RFC_DB_OPT.

data gs_options like LINE OF gt_options.

gs_options-text = |PERNR EQ '70000000'|.
APPEND gs_options to gt_options.

call function 'RFC_READ_TABLE'
*DESTINATION 'AA1'
  exporting
    query_table                = 'PA0001'
*   DELIMITER                  = ' '
*   NO_DATA                    = ' '
*   ROWSKIPS                   = 0
*   ROWCOUNT                   = 0
*   GET_SORTED                 =
*   USE_ET_DATA_4_RETURN       =
* IMPORTING
*   ET_DATA                    =
 TABLES
   OPTIONS                    = gt_options
*   FIELDS                     =
   DATA                       = gt_data
 EXCEPTIONS
   TABLE_NOT_AVAILABLE        = 1
   TABLE_WITHOUT_DATA         = 2
   OPTION_NOT_VALID           = 3
   FIELD_NOT_VALID            = 4
   NOT_AUTHORIZED             = 5
   DATA_BUFFER_EXCEEDED       = 6
   OTHERS                     = 7
          .
if sy-subrc <> 0.
* Implement suitable error handling here
endif.

FM Swu_Object_Publish

*----------------------------------------------------------------------*
*  MODULE publish_restore_swu_object OUTPUT
*----------------------------------------------------------------------*
* Agrega funcionalidad "servicios para objeto" para objeto tarjeta
* ZSD_TARJET (tran. SWO1)
*----------------------------------------------------------------------*
MODULE publish_restore_swu_object OUTPUT.
* Nur beim Anzeigen oder  ndern
  if ZSBLTARJ-NUMTART is NOT INITIAL and
     gd_modo ne co_crear.

    perFORM CALL_SWU_OBJECT_PUBLISH USING 'ZSD_TARJET'
                                          ZSBLTARJ-NUMTART
                                          space.

  endif.
ENDMODULE.                    "publish_restore_swu_object OUTPUT
*&---------------------------------------------------------------------*
*&      Form  CALL_SWU_OBJECT_PUBLISH
*&---------------------------------------------------------------------*
* Habilita boton "Servicios Objeto" para tarjeta
*----------------------------------------------------------------------*
*      -->P_OBJTYPE  Objekttyp
*      -->P_OBJKEY   Objektschl ssel
*----------------------------------------------------------------------*
FORM CALL_SWU_OBJECT_PUBLISH USING i_OBJTYPE
                                   i_OBJKEY
                                   i_METHOD  LIKE SWOTRM-METHOD.

  CALL FUNCTION 'SWU_OBJECT_PUBLISH'
    EXPORTING
      OBJTYPE           = i_OBJTYPE
      OBJKEY            = i_OBJKEY
      METHOD            = i_METHOD
    EXCEPTIONS
      OBJTYPE_NOT_FOUND = 1
      OTHERS            = 2.

ENDFORM.                    "CALL_SWU_OBJECT_PUBLISH