Re: Anyone written CL based "ping" checks ?

Chuck Lewis <clewis@iquest.net> on 10/16/2000 10:18:41 AM

Please respond to MIDRANGE-L@midrange.com

To:   Midrange-L List <MIDRANGE-L@midrange.com>
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  Anyone written CL based "ping" checks ?





Just wondering if anyone had written any CL based "ping" checks that
they would want to share ? OR any good ideas on how to do this ?

_____________________________________________________________________


CLP  Program

using a dataarea with Ping Addresses to check......



 DCL        VAR(&PINGID) TYPE(*CHAR) LEN(20)
 DCL        VAR(&PINGNAME) TYPE(*CHAR) LEN(50)


             CHGVAR     VAR(&COUNT) VALUE(1)
             CHGVAR     VAR(&START) VALUE(1)

 PINGLOOP:   IF         COND(&COUNT *LE 20) THEN(DO)
             RTVDTAARA  DTAARA(PING (&START 20)) RTNVAR(&PINGID)
             RTVDTAARA  DTAARA(PING (&START 50)) RTNVAR(&PINGNAME)
             CHGVAR     VAR(&DOIT) VALUE(%SST(&PINGNAME 50 1))

             IF         COND(&PINGID *GT '     ') THEN(DO)
             IF         COND(&DOIT *EQ 'Y') THEN(DO)
             PING       RMTSYS(&PINGID)
             MONMSG     MSGID(TCP3213 TCP2670 TCP3202) +
                          EXEC(SNDPGMMSG MSGID(NSN0008) +
                          MSGF(NIMSGF) MSGDTA(&PINGNAME) +
                          TOMSGQ(*SYSOPR))
             RCVMSG     MSGTYPE(*LAST) RMV(*YES) MSGDTA(&MSGDTA) +
                          MSGID(&MSGID)
             MONMSG     MSGID(CPF0000 MCH0000)
             RCVMSG     MSGTYPE(*LAST) RMV(*YES) MSGDTA(&MSGDTA) +
                          MSGID(&MSGID)
             MONMSG     MSGID(CPF0000 MCH0000)

             IF         COND(&MSGID *EQ 'TCP3206') THEN(DO)
             SNDPGMMSG  MSGID(NSN0008) MSGF(NIMSGF) +
                          MSGDTA(&PINGNAME) TOMSGQ(*SYSOPR)
             DLYJOB     DLY(60)
             ENDDO
             ENDDO

             CHGVAR     VAR(&COUNT) VALUE(&COUNT + 1)
             CHGVAR     VAR(&START) VALUE(&START + 50)
             GOTO       CMDLBL(PINGLOOP)
 /* A1893 */ ENDDO


 /* A1893 */ ENDDO
 /* A1893 */ ENDDO









+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---