Schalten per Mausklick mit ABAP

Das hier beschriebene ABAP-Beispiel ermöglicht das Steuern der digitalen Ausgänge des ERP-Gateways durch einfache Mausklicks des Anwenders auf seiner gewohnten Benutzeroberfläche.

Mit minimalem Aufwand wird es auf diese Weise möglich, in SAP-Umgebungen Licht, Rolläden, Türöffner, Signalleuchten etc. zu schalten.

Sie haben Ihr(e) ERP-Gateway(s) bereits

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

Im Übrigen ist das ERP-Gateway ab Werk bereits fertig vorkonfiguriert.

Der folgenden Beispielcode kann per Copy/Paste direkt übernommen werden. Lediglich die rot markierten Zuweisungen der IP-Adresse und des Passwortes müssen durch die von Ihnen verwendeten Werte ersetzt werden:

• 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,
	pwd(30) type c,
	host(64) type c,
	dest like rfcdes-rfcdest value 'SAPFTP'.
	write: /'Testprogramm für das WuT ERP-Gateway Wayback #57635',
				/'Hier können Sie durch einen Doppelklick auf die entsprechende',
				/'Zeile direkt die Ausgänge des Gerätes schalten.'.
				uline.
	write: /'Kanal 0 an',
				/'Kanal 0 aus',
				/, /'Kanal 1 an',
				/'Kanal 1 aus'.
	at line-selection.
	CASE SY-LISEL.
	WHEN 'Kanal 0 an'.
			user = 'output0=on'.
	WHEN 'Kanal 0 aus'.
			user = 'output0=off'.
	WHEN 'Kanal 1 an'.
			user = 'output1=on'.
	WHEN 'Kanal 1 aus'.
			user = 'output1=off'.
	WHEN OTHERS.
			user = ''.
	ENDCASE.
	*********** Hier die IP-Adresse und das Passwort eintragen.************
	host = '148.53.130.1'.
	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 = pwd
		exceptions
		others = 1.