Using ABAP function module SRTFT_GET_SYSTEM_META_DATA to retrieve data from ERP-Scale

You are here:

KB Home
ERP-Scale
Using ERP-Scale
Using ABAP function module SRTFT_GET_SYSTEM_META_DATA to retrieve data from ERP-Scale

Note: This function is available in ERP-Scale V4.0.2 from build B23261 and ERP-Scale V5.0.1.

The function module SRTFT_GET_SYSTEM_META_DATA can be used from SAP to retrieve the following data from ERP-Scale:

Operating system of the PC where ERP-Scale is installed
ERP-Scale version
Overall status of:
- Device (scale) communication
- RFC communication
- Licence activation
List of devices (scales)
List of RFC destinations
Device information
- Licence data
- Device connection
- Status
RFC information
- Connection data
- SNC connection
- Status

ABAP function module RFC_GET_SYSTEM_INFO can be used to retrieve further information.

Usage:

data: ls_function type qname,
      lt_options type SRTFT_NAMED_VALUE_LIST_CHAR,
      ls_option type LINE OF SRTFT_NAMED_VALUE_LIST_CHAR,
      lt_meta_binary type SRTFT_NAMED_VALUE_LIST_BINARY,
      lt_meta_char type SRTFT_NAMED_VALUE_LIST_CHAR,
      lv_return_code type i,
      lt_messages type SRTFT_MESSAGE_LIST.

ls_function-name = 'ERPSCALE'.
ls_function-namespace = 'POCKETPROGRAMS'.

ls_option-name = 'ERPSCALE.VERSION'.
append ls_option to lt_options.
ls_option-name = 'ERPSCALE.STATUS'.
append ls_option to lt_options.
ls_option-name = 'HOST.OS.VERSION'.
append ls_option to lt_options.
ls_option-name = 'DEVICE.LICENCE'.
ls_option-value = 'SCALE1'. 
append ls_option to lt_options.
ls_option-name = 'RFC.STATUS'.
ls_option-value = '1'. 
append ls_option to lt_options.

CALL FUNCTION 'SRTFT_GET_SYSTEM_META_DATA'  destination lv_destination
  EXPORTING
    FUNCTION               = ls_function
    OPTIONS                = lt_options
  IMPORTING
    META_DATA_BINARY       = lt_meta_binary
    META_DATA_CHAR         = lt_meta_char
    RETURN_CODE            = lv_return_code
    MESSAGES               = lt_messages
  EXCEPTIONS
    UNKNOWN_FUNCTION       = 1
    OTHERS                 = 2
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

FIELD-SYMBOLS: <fs_meta_char> TYPE LINE OF SRTFT_NAMED_VALUE_LIST_CHAR.
LOOP AT lt_meta_char ASSIGNING <fs_meta_char>.
  write: / <fs_meta_char>-Name, ':' NO-GAP, AT 60 <fs_meta_char>-value.
ENDLOOP.

data: ls_function type qname,

lt_options type SRTFT_NAMED_VALUE_LIST_CHAR,

ls_option type LINE OF SRTFT_NAMED_VALUE_LIST_CHAR,

lt_meta_binary type SRTFT_NAMED_VALUE_LIST_BINARY,

lt_meta_char type SRTFT_NAMED_VALUE_LIST_CHAR,

lv_return_code type i,

lt_messages type SRTFT_MESSAGE_LIST.

ls_function-name = 'ERPSCALE'.

ls_function-namespace = 'POCKETPROGRAMS'.

ls_option-name = 'ERPSCALE.VERSION'.