Return to %SS.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1       snw         1: %SS    ; A.Trocha; System Job Status [1999/01/29- 3:42:04]
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%SS.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:42 $
                      4:        ;
                      5:        N exec,s,pid,tty,stat,idle,prg,ss,ss1,i,tab,tab2
                      6:        ;
                      7:        S tab=8
                      8:        S tab2=5
                      9:        W !!,?20,"FreeM - System Job Status"
                     10:        W !,?23,$ZD,"  ",$ZT
                     11:        D ss
                     12:        ;
                     13:        ;--- show status
                     14:        W !!,?23,"Partitions in Use: ",$G(ss)
                     15:        W !
                     16:        W !,?tab,"PID/JOB    TTY      STATUS       IDLE       NAME" 
                     17:        W !,?tab,"-------   -----   ----------   --------   --------"
                     18:        F i=1:1:$G(ss) D
                     19:        . S s=ss(i)
                     20:        . S pid=$P(s,"'"),stat=$P(s,"'",3)
                     21:        . W !,?tab,$$lb(pid_$S(pid=$J:"*",1:""),10),$$lb("TTY"_$P(s,"'",2),8)
                     22:        . W $$lb($S(stat="S":"Sleeping",stat="R":"Running",1:"Unknown"),13)
                     23:        . W $$lb($P(s,"'",4),11),$P(s,"'",5)
                     24:        W !,?tab,"-------   -----   ----------   --------   --------"
                     25:        W !!
                     26:        W !,?tab2,"Max Parition Size/ Used Partition Size:   ",$V(37),"/",$S
                     27:        W !,?tab,"Number of Routine Buffers:   ",$V(33)
                     28:        W !,?tab,"  Max Size for Routine:   ",$V(32)
                     29:        W !!
                     30:        Q
                     31:        ;
                     32: lb(str,len) Q str_$J("",len-$L(str))
                     33:        ;
                     34: ss     N exec,s,prg,pid,tty,stat,idle
                     35:        ;--- get system status
                     36:        K %
                     37:        S exec="!<ps -xa|grep "_$V(30,1)
                     38:        X exec
                     39:        F i=1:1:% D
                     40:        . S s=$G(%(i))
                     41:        . S prg=$TR($E(s,23,$L(s))," ")
                     42:        . I prg'=$V(30,1) Q
                     43:        . S pid=$TR($E(s,1,7)," ")
                     44:        . S tty=$TR($E(s,8,10)," ")
                     45:        . S stat=$TR($E(s,11,12)," ")
                     46:        . S idle=$TR($E(s,13,22)," ")
                     47:        . S ss=$G(ss)+1
                     48:        . S ss(ss)=pid_"'"_tty_"'"_stat_"'"_idle_"'"_prg
                     49:        . S ss1(pid)=ss
                     50:        K %
                     51:        Q