CL based "ping" check

From: Marco Facchinetti

****** Inizio dati **********************************
 PGM        PARM(&IP &MSG)
 DCL        VAR(&IP) TYPE(*CHAR) LEN(20)
 DCL        VAR(&MSG) TYPE(*CHAR) LEN(60
 PING       RMTSYS(&IP) MSGMODE(*VERBOSE *ESCAPE
 MONMSG     MSGID(TCP3210) EXEC(SNDMSG MSG(&MSG) +
              TOUSR(*SYSOPR)
 ENDPGM
******** Fine dati **********************************

[report a broken link by clicking here]