Return to %KILLJOB.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%KILLJOB.m, revision 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