ZJFOO.m

ZJFOO ;ISF/RWF - GTM Routine to JOB an arbitrary entry point ;5/9/2002

 ;;8.0;KERNEL;**275**;Jul 10, 1995

 ;To run under VMS,

 ;  mumps ZJFOO.M

 ;  link ZJFOO.OBJ

 ;  In a com file

 ;  $ forfoo="$" + f$parse("user$:[gtmmgr.r]ZJFOO.exe")

 ;  $ forfoo "argument"

 ;To run under Linux

 ;  mumps ZJFOO.m

 ;  chmod u+x,g+x ZJFOO.o

 ;  In shell script

 ;  $gtm_dist/mumps -run ZJFOO "argument"

 ;

 ;Set the interupt

 S $ETRAP="D ^%ZTER HALT",$ZINTERRUPT="I $$JOBEXAM^ZU($ZPOSITION)"

 I $L($ZCMDLINE) J @$ZCMDLINE Q

 Q