Bemacon
EnglischEnglisch
  Diese Seite verwendet Cookies, um das bestmögliche Nutzererlebnis sicherzustellen. Wenn Sie die Seite weiter nutzen, stimmen Sie der Cookie-Nutzung zu.  mehr...  Einverstanden  Ablehnen

Beispiel ABAP Code zum Aufruf des BEMACON I/O-Dispatchers

Folgender ABAP Code zeigt, wie der BEMACON I/O-Dispatcher über SOAP (RPC-Style) als Web-Service aufgerufen werden kann,
um ein I/O-Modul anzusprechen.

Das ASCII Kommando #0100FF im Beispiel setzt alle Ausgänge auf ON.

ADAM ASCII Kommando 


DATA:
  gro_exc    TYPE REF TO cx_root,
  gf_errtxt  TYPE string,
  gs_input   TYPE zbema_send_asc_cmd,
  gs_output  TYPE zbema_send_asc_cmd_response,
  gro_iom    TYPE REF TO zbema_co_get_iom_port_type.


CREATE OBJECT gro_iom
  EXPORTING
    logical_port_name = 'ZP1'.

gs_input-protocol = 'ADAM'.
gs_input-host     = '169.254.42.199'.
gs_input-port     = 502.
gs_input-cmd      = '#0100FF'.

CLEAR gro_exc.
TRY.
    CALL METHOD gro_iom->send_asc_cmd
      EXPORTING
        input  = gs_input
      IMPORTING
        output = gs_output.

  CATCH cx_ai_system_fault INTO gro_exc.
  CATCH cx_ai_application_fault INTO gro_exc.
ENDTRY.

IF ( gro_exc IS INITIAL ).

  IF ( gs_output-error IS INITIAL ).
    IF ( gs_output-answer = '>01' ).
      WRITE: / 'Switched all channels ON'.
    ELSE.
      WRITE: / 'Error:' , gs_output-answer.
    ENDIF.
  ELSE.
    WRITE: / 'Error:' , gs_output-error.
  ENDIF.

ELSE.
  gf_errtxt = gro_exc->if_message~get_text( ).
  WRITE: / 'SOAP-Error:' , gf_errtxt.
ENDIF.


Alle Namen von Produkten und Dienstleistungen sind Marken der jeweiligen Firmen.