Rutina para eliminar procesos

Os paso una rutina que busca por nombre de la rutina y extrae su PID.

Con dicho PID hacemos un kill de dicho proceso

EliminarProcesoRutina(rutina)
     S PID=""
     FOR I=1:1 {
          S PID=$O(^$JOB(PID))
          Q:PID="" 
          IF ##class(%SYSTEM.Process).%OpenId(PID).RoutineGet() = rutina {
	      W "El PID del JOB "_rutina_" es "_PID,!
	      S Result = $ZU(4,PID)
	      IF Result = 1 {
		      W "El Proceso "_rutina_" se ha eliminado con EXITO"
	      } ELSE {
		      W "El Proceso "_rutina_" NO se ha podido eliminar"
	      }
	      Q
          }           
    } 		
    Q

EliminarProcesoDevice(device)
     S PID=""
     FOR I=1:1 {
	S PID=$O(^$JOB(PID))
	Q:PID=""
	IF ##class(%SYSTEM.Process).%OpenId(PID).CurrentDeviceGet() = device {
	        W "El PID del Device Name "_device_" es "_PID,!
		S Result = $ZU(4,PID)
		IF Result = 1 {
			W "El Device Name "_device_" se ha eliminado con EXITO"
		} ELSE {
			W "El Device Name "_device_" NO se ha podido eliminar"
		}
		Q			
	}
     }
     Q

 

About: cbrown


Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies