Trailing-Edge
-
PDP-10 Archives
-
tops10and20_integ_tools_v9_3-aug-86
-
tools/pop/pop.com
There are 3 other files named pop.com in the archive. Click here to see a list.
$!+
$! Define pop :== @pop
$!
$! then '$ pop' will exit the current subprocess.
$!
$! Note that tpid was gotten with an f$getjpi in login.com
$! so this won't work if you take login.com in your subprocesses
$!-
$ our_pid := 'f$getjpi(0, "PID")
$ if our_pid .nes. tpid then $logout
$ write sys$output "You are not in a subprocess"
$ exit