View Full Version : ping und traceroute auf einer AS400 Maschiene
Hallo
Wenn ich ein ping oder traceroute auf einer AS400 Maschiene machen möchte, dann mache ich PING, F4 und gebe Name vom Host, den ich anpingen möchte.
Nun, wie kann ich Ergebnis abfragen, ob ping erfolgreich war?
Mittels RCVMSG kannst du die Nachrichten des Ping auslesen.
Ist schon uralt, aber vielleicht paßt das ja schon so für Dich.
PGM PARM(&RMTSYS &OK)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&OK) TYPE(*CHAR) LEN(1) VALUE('0')
DCL VAR(&RMTSYS) TYPE(*CHAR) LEN(15)
PING RMTSYS(&RMTSYS) MSGMODE(*VERBOSE)
RCVMSG MSGTYPE(*LAST) MSGID(&MSGID)
IF COND(&MSGID = 'TCP3210') THEN(CHGVAR +
VAR(&OK) VALUE('1'))
ELSE CMD(CHGVAR VAR(&OK) VALUE('0'))
ENDPGM
ich garantiere auch für nix, aber zumindest hat's damals so gereicht/funktioniert.
camouflage
11-06-13, 08:55
Das geht doch einfacher...
Cursor auf Meldung: Verbindung zum ....
stellen, F1 drücken und danach F10 für Nachrichten im Jobprotokoll.
Ich geh davon aus, daß er es im Batchbetrieb braucht, denn interaktiv ist es ja so leicht, daß er gar nicht zu fragen bräuchte.
camouflage
11-06-13, 10:43
Hmmm, ein F4 im Batchbetrieb dürfte ziemlich schwierig werden ;-))
Probiers mal mit PING RMTSYS(Host) MSGMODE(*QUIET *ESCAPE) und anschließendem MONMSG ... wie in diesem Beispiel (http://iprodeveloper.com/rpg-programming/using-ping-cl-program).
Vielen herzlichen Dank für alle Antworten.
Es funktioniert bestens.