ping und traceroute auf einer AS400 Maschiene

[Fuerchau]

Mittels RCVMSG kannst du die Nachrichten des Ping auslesen.

[Chris.jan]

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]

Das geht doch einfacher...

Cursor auf Meldung: Verbindung zum ....
stellen, F1 drücken und danach F10 für Nachrichten im Jobprotokoll.

[Chris.jan]

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]

Hmmm, ein F4 im Batchbetrieb dürfte ziemlich schwierig werden ;-))

[Pikachu]

Probiers mal mit PING RMTSYS(Host) MSGMODE(*QUIET *ESCAPE) und anschließendem MONMSG ... wie in diesem Beispiel.

[cc]

Vielen herzlichen Dank für alle Antworten.
Es funktioniert bestens.