Attivazione delle uscite digitali con ABAP

Test

La routine ABAP qui descritta esemplifica come è possibile attivare le uscite digitali del gateway ERP per mezzo della procedura Wayback. Il codice può essere ripreso direttamente per alcuni progetti ABAP, dove l’esecuzione qui avviene come reazione al verificarsi di determinati eventi.

Ad esempio con l’aiuto del gateway ERP è possibile visualizzare il superamento/mancato raggiungimento di valori limite di pezzi o carico direttamente da SAP su una torretta di segnalazione a semaforo.

1. Preparativi

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

2. Il codice sorgente ABAP

Il seguente codice esempio può essere copiato direttamente con copia/incolla. Solo le assegnazioni in rosso nelle prime quattro righe devono essere sostituite dai parametri da voi utilizzati:

• utente = comando con lo stato delle uscite desiderato
  p. es. "output0=on" attiva la prima uscita del gateway ERP,
  "output1=off" disattiva la seconda uscita del gateway ERP.
  
  
• 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 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.