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)
             ENDDO
             ENDDO
             ENDDO

[report a broken link by clicking here]