Dcl (&Msg  ) *Char (000132)                                          
Dcl (&Msgid) *Char (000007)                                          
Dcl (&Tema ) *Char (000023) Value(\'Distribución de Tablas\')         
Dcl (&Texto) *Char (000500)                                          
Dcl (&Direc) *Char (000012) Value(\'10.250.0.112\')                    
Dcl (&Fil  ) *Char (000002)                                          
Dcl (&Dfil ) *Char (000050)                                          
Dcl (&Obj  ) *Char (000008)                                          
Dcl (&SEV  ) *DEC  (001 00) Value(0)                                 
/* Housekeeping                                                      */ 
Rmvmsg Pgmq(*Same (* *None *None)) Msgq(*Pgmq) Clear(*All)           
Chequea Comunicaciones Servidor XXXXXX      */ 
Vfytcpcnn (&Direc) Msgmode(*QUIET) Waittime(5)                       
Rcvmsg Msgq(*PGMQ) Msgtype(*LAST) WAIT(1) Rmv(*NO) Msg(&Msg) +       
Msgid(&Msgid)                                                        
Analiza Check de Comunicaciones SAPPROD                           */ 
If (&Msgid *Eq \'TCP3210\') (Do)                                       
Chgvar (&Sev) (%Sst(&Msg 43 1))                                      
If (&Sev *Eq 0) (Do)                                                 
Armado de e-mail Aviso a Central de Operaciones*/ 
Chgvar (&Obj) Value(\'CGSAVF00\')                                      
Chgvar (&Texto) (\'Fallo de Comunicación - Proceso Transferencia    + 
de Tablas - Branch: CENTRAL\' || \' - Objeto: \' || &Obj  
|| \' Ejecutar Manualmente el PROCESO\')                               
Snddst Type(*LMSG) Tointnet((juan@perez.com.ar *PRI)               + 
(*NONE *CC)) Dstd(&Tema)                                           + 
Longmsg(&Texto) Cfmdel(*YES) Importance(*HIGH) Pty(*HIGH)            
Enddo                                                                
Enddo