module zap (main = zap)=
begin

!	Performs the $forcex system service on a process.  This is about
!	the same as ^Y.  The PID is obtained via GET_PID.
!
!	R.J. FitzPatrick		July 1979
!	Smithsonian Astrophysical Observatory, Cambridge MA
!

library 'SYS$LIBRARY:STARLET.L32';

own
	pid: long;

external routine
	get_pid;

global routine zap (start_add, cli_callback) =
    begin

    local
	status;

	status = get_pid (.cli_callback, pid) ;
	if .status neq ss$_normal then return .status;
	if .pid eql 0 then return ss$_nonexpr;
	$forcex( pidadr=pid, code=ss$_abort )
    end;
end
eludom