/* REXX */                                                             
/* RECIBE LOS DATOS DE LA ALERTA DEL PANEL SDF. CAMBIA EL ESTADO DE  */
/* LA ALERTA A ACKNOWN. AL TEXTO DE LA ALERTA SE LE AÑADE LA PALABRA */
/* 'REVISADO' Y EL USUARIO QUE LO HIZO                               */
/*                                                                   */
/* SE RECIBE: TIPO RECURSO, SDFROOT, COMPONENTE, REF.VALUE Y ALERTA  */
 PARSE ARG REST SDFROOT COMP RV ALERTA                                 
/* SI EL TIPO DE RECURSO ES SUBSYSTEM, SE USA EL MENSAJE AOF571 PARA */
/* SUSTITUIR LA ALERTA ORIGINAL, ADEMAS DEL USUARIO QUE LO REALIZA   */
IF REST='SUBSYSTEM' THEN                                               
 DO                                                                    
  TEXTO='REVISADO POR' OPID()                                          
  'AOCUPDT 'SDFROOT'.'COMP',RESTYPE='REST',STATUS=ACKNOWN,RV='RV ,     
   ',MSG=(AOF571,'COMP','COMP',ACKNOWN,'TEXTO')'                       
 END                                                                   
/* SI EL TIPO DE RECURSO ES OTRO, SE CREA UN MENSAJE DE ALERTA NUEVO */
/* A PARTIR DEL ORIGINAL, ADEMAS DEL USUARIO QUE LO REALIZA          */
ELSE                                                                   
 DO                                                                    
  TEXTO='REVISADO POR' OPID() ALERTA                                   
  'AOCUPDT 'SDFROOT'.'COMP',RESTYPE='REST',STATUS=ACKNOWN,RV='RV ,     
   ',MSG=(NONE,'TEXTO')'                                               
 END