Commutazione con ABAP mediante mouse

L’esempio ABAP qui descritto consente all’utente di controllare le uscite digitali del gateway ERP semplicemente cliccando sull’abituale interfaccia utente.

Con un minimo sforzo è possibile in questo modo attivare luci, tapparelle, apriporta, spie di segnalazione ecc in ambiente SAP.

Avete già alimentato il/i vostro/i gateway ERP

• con la corrente,
• effettuato il collegamento alla vostra rete,
• e assegnato un indirizzo IP: con WuTility è facile!

Per il resto il gateway ERP è già preconfigurato di fabbrica.

Il seguente codice esempio può essere copiato direttamente con copia/incolla. Solo le assegnazioni in rosso dell’indirizzo IP e della password devono essere sostituite dai valori da voi utilizzati:

• pwd = password Wayback
  corrispondente alla password definita nel gateway ERP
  
  
• host = indirizzo IP o hostname del gateway ERP

Testo sorgente sotto forma di file di testo: 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.