Schalten der digitalen Ausgänge mit ABAP

Test

Die hier beschriebene ABAP-Routine veranschaulicht wie mit Hilfe des Wayback-Verfahrens die digitalen Ausgänge des ERP-Gateways geschaltet werden können. Der Code kann direkt in eigene ABAP-Projekte übernommen werden, wobei die Ausführung dort als Reaktion auf das Eintreten bestimmter Ereignisse erfolgt.

Zum Beispiel ist es mit Hilfe des ERP-Gateways möglich, Über-/Unterschreitungen von Stückzahl- oder Auslastungsgrenzwerten direkt aus SAP heraus auf einer Ampel-Signalsäule zu visualisieren.

1. Vorbereitungen

• mit Strom versorgt,
• an Ihr Netzwerk angeschlossen,
• mit einer IP-Adresse versehen - mit WuTility kein Problem.

2. Der ABAP-Quellcode

Der folgenden Beispielcode kann per Copy/Paste direkt übernommen werden. Lediglich die rot markierten Zuweisungen in den ersten vier Zeilen müssen durch die von Ihnen verwendeten Parameter ersetzt werden:

• user = Kommando mit dem gewünschten Status der Ausgänge
  z.B. "output0=on" schaltet den ersten Ausgang des ERP-Gataways ein,
  "output1=off" schaltet den zweiten Ausgang des ERP-Gateways aus.
  
  
• pwd = Wayback-Passwort
  entsprechend dem im ERP-Gateway hinterlegten Passwort
  
  
• host = IP-Adresse oder Hostname des ERP-Gateways

Quelltext als Text-Datei: Download

				data:
					user(30) type c value output1=on',
					pwd(30) type c,
					host(64) type c value  192.168.0.40',
					dest like rfcdes-rfcdest value 'SAPFTP'.
					pwd =  test'
				data:
					hdl type i,
					key type i value 26101957,
					slen type i.
				data:
					begin of result occurs 0,
					line(100) type c,
					end of result.
				set extended check off.
					slen = strlen( pwd ).
				call function 'HTTP_SCRAMBLE'
					exporting
						source      = pwd
						sourcelen   = slen
						key         = key
					importing
						destination = pwd.
				call function 'FTP_CONNECT'
					exporting
						user        = user
						password    = pwd
						host        = host
						rfc_destination = dest
					importing
						handle      = hdl.
				call function 'FTP_DISCONNECT'
					exporting
						handle		= hdl.
				call function 'RFC_CONNECTION_CLOSE'
					exporting
						destination = dest
					exceptions
						others		= 1.