PGM        PARM(&URL)                                              
/*---------------------------------------------------------*/                   
/*  CHKPING :  CHECK PING                                  */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&URL) TYPE(*CHAR) LEN(128)                          
             DCL        VAR(&STATUS) TYPE(*CHAR) LEN(4) VALUE(UP)               
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)                          
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)                       
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             PING       RMTSYS(&URL) MSGMODE(*QUIET *ESCAPE)                    
             MONMSG     MSGID(TCP3210) EXEC(DO)                                 
             CHGVAR     VAR(&STATUS) VALUE(DOWN)                                
             ENDDO                                                              
             CHGVAR     VAR(&MSG) VALUE(&URL *TCAT ' = ' *CAT &STATUS)          
             GOTO       SNDMSG                                                  
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)                       
 SNDMSG:                                                                        
             SNDPGMMSG  MSG(&MSG) TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)                
             ENDPGM