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"