Return to %KILLJOB.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%KILLJOB.m, revision 1.1.1.1

1.1       snw         1: %KILLJOB ; A.Trocha; killjob utility [1999/01/29- 4:28:46]
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%KILLJOB.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:41 $
                      4:        N ss,ss1,pid
                      5:        W !!,?20,"FreeM - Job Termination Utility"
                      6:        W !,?23,$ZD,"  ",$ZT
                      7: query  W !!,"Job number to be halted? "
                      8:        R pid
                      9:        I pid="?" D help G query
                     10:        I pid="^L" D ^%SS G query
                     11:        I pid="" G end
                     12:        D ss^%SS
                     13:        I $G(ss1(pid))="" W !,"Invalid job number!",*7 G query
                     14:        V 100:pid
                     15:        W !!,"killed...",*7
                     16:        G query
                     17: end    W !! Q
                     18:        ;
                     19: help   W !!,"enter job number to be halted or"
                     20:        W !,"enter '^L' to list all jobs..."
                     21:        Q