>　CL上から別サーバーへPINGを投げ、
>　応答があれば次の処理を実行し、
>　応答がなければ次の処理を飛ばす
>　ようなことは可能でしょうか？
>　
自己解決しました
VFYTCPCNN　　RMTSYS('XXX.XXX.XX.XX')　MSGMODE(*VERBOSE　+
　　　　　　　　　　　*ESCAPE)　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
MONMSG　　　　　MSGID(CPF0000)　EXEC(GOTO　CMDLBL(LABEL2))