| 1 | ZTMON1 ;SEA/RDS-TaskMan: Option, ZTMON, Part 2 (Main Loop) ;11/03/2003 13:42
|
|---|
| 2 | ;;8.0;KERNEL;**36,118,127,275**;Jul 10, 1995
|
|---|
| 3 | MON D IO:MODE,JOB,SUB
|
|---|
| 4 | G DONE
|
|---|
| 5 | ;
|
|---|
| 6 | IO ;Evaluate Waiting Lists
|
|---|
| 7 | N X,X1
|
|---|
| 8 | S ZT1=$$H3($H),ZT2=$G(^%ZTSCH("IO")),ZT=$$DIFF^%ZTMS1(ZT1,+ZT2,1)
|
|---|
| 9 | W !!,"Checking the IO Lists:" I $D(^%ZTSCH("IO"))>2 W:+ZT2 " Last TM scan: ",ZT," sec, " W:$P(ZT2,"^",2)]"" "Last Dev: ",$P(ZT2,"^",2)
|
|---|
| 10 | S ZT1="",ZTT=0
|
|---|
| 11 | I1 S ZT1=$O(^%ZTSCH("IO",ZT1)) I ZT1="" W:ZTT=0 !?5,"There are no tasks waiting for devices." Q
|
|---|
| 12 | I $D(^%ZTSCH("IO",ZT1))<9 G I1 ;Skip devices without tasks
|
|---|
| 13 | W !?5,"Device: ",ZT1 S Y=1 I ZT1'=$I S X=ZT1,X1=$G(^%ZTSCH("IO",ZT1)) D DEVOK^%ZOSV
|
|---|
| 14 | W $S(Y:" is not available,",$D(^%ZTSCH("DEV",ZT1)):" is allocated,",1:" is AVAILABLE,")
|
|---|
| 15 | S ZTC=0,ZT2="" F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)),ZT3="" Q:'ZT2 F ZT=0:0 S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTC=ZTC+1,ZTT=1
|
|---|
| 16 | W " with ",$S(ZTC=1:"one task",1:ZTC_" tasks")," waiting." W:ZTC>50 $C(7)
|
|---|
| 17 | G I1
|
|---|
| 18 | ;
|
|---|
| 19 | JOB ;Evaluate Job List
|
|---|
| 20 | W !!,"Checking the Job List:"
|
|---|
| 21 | S ZTC=0,ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("JOB",ZT1)),ZT2=0 Q:ZT1="" F ZT=0:0 S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:'ZT2 S ZTC=ZTC+1
|
|---|
| 22 | W !?5,"There ",$S(ZTC=0:"are no tasks",ZTC=1:"is 1 task",1:"are "_ZTC_" tasks")," waiting for ",$S(ZTC'=1:"partitions.",1:"a partition.") W:ZTC>20 $C(7)
|
|---|
| 23 | ;
|
|---|
| 24 | C ;Evaluate Cross CPU list
|
|---|
| 25 | S ZT1=""
|
|---|
| 26 | F S ZT1=$O(^%ZTSCH("C",ZT1)) Q:ZT1="" S ZTC=+$G(^(ZT1)) D
|
|---|
| 27 | . S ZTCO=0,ZT2=""
|
|---|
| 28 | . F S ZT2=$O(^%ZTSCH("C",ZT1,ZT2)),ZT3=0 Q:ZT2="" F S ZT3=$O(^%ZTSCH("C",ZT1,ZT2,ZT3)) Q:ZT3="" S ZTCO=ZTCO+1
|
|---|
| 29 | . W !?5,"For ",ZT1," there ",$S(ZTCO=1:"is ",1:"are "),ZTCO," tasks. "
|
|---|
| 30 | . W $S(ZTC>8:"Not responding",$$OOS^%ZTM(ZT1):"Out Of Service",'$D(^%ZIS(14.7,"B",ZT1)):"Not defined",1:"")
|
|---|
| 31 | . Q
|
|---|
| 32 | TASK ;Evaluate Task List
|
|---|
| 33 | W !!,"Checking the Task List:"
|
|---|
| 34 | S ZTC=0 F ZT1=0:0 S ZT1=$O(^%ZTSCH("TASK",ZT1)) Q:'ZT1 S ZTC=ZTC+1
|
|---|
| 35 | W !?5,"There ",$S(ZTC=0:"are no tasks",ZTC=1:"is 1 task",1:"are "_ZTC_" tasks")," currently running."
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | SUB ;Look for idle submanagers
|
|---|
| 39 | D SUBCHK^%ZTMS5
|
|---|
| 40 | N %N,ZT1,ZT2,ZT3,ZT4 L +^%ZTSCH("SUB"):1
|
|---|
| 41 | I $D(^%ZTSCH("WAIT","SUB")) W !,"Sub-Managers told to Wait."
|
|---|
| 42 | S %N=""
|
|---|
| 43 | F S %N=$O(^%ZTSCH("SUB",%N)) Q:%N="" D
|
|---|
| 44 | . S %=$G(^(%N)),ZT4=+$G(^%ZTSCH("LOADA",%N))
|
|---|
| 45 | . W !?5,"On node ",%N," there ",$S('%:"are no",%=1:"is 1",1:"are "_$J(%,2))," free Sub-Manager(s)."
|
|---|
| 46 | . W " Status: ",$S($D(^%ZTSCH("STOP","SUB",%N)):"Stop",ZT4:"BWait",1:"Run")
|
|---|
| 47 | . I $G(^%ZTSCH("SUB",%N,0))>5 W !?10,"SUB-MANAGERS ARE NOT STARTING."
|
|---|
| 48 | . Q
|
|---|
| 49 | L -^%ZTSCH("SUB")
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | DONE ;Prompt to Quit Or Continue
|
|---|
| 53 | W !!,"Enter monitor action: UPDATE// "
|
|---|
| 54 | R ZTR:$S($D(DTIME)#2:DTIME,1:60) S:ZTR="" ZTR="U"
|
|---|
| 55 | I "Uu"[$E(ZTR) G MON^ZTMON
|
|---|
| 56 | I "Ee"[$E(ZTR) Q:$$CALL("LIST^XUTMKE") G DONE
|
|---|
| 57 | I "Ss"[$E(ZTR) W @IOF X ^%ZOSF("SS") G DONE
|
|---|
| 58 | I "Pp"[$E(ZTR) W @IOF D PARAMS^ZTMCHK G DONE
|
|---|
| 59 | I "Rr"[$E(ZTR) W @IOF D RES G DONE
|
|---|
| 60 | I "Tt"[$E(ZTR) S MODE='MODE W !,"Mode set to ",$S(MODE:"normal",1:"short") G DONE
|
|---|
| 61 | I ZTR="^"!(ZTR="@") Q
|
|---|
| 62 | I ZTR'["?" G MON^ZTMON
|
|---|
| 63 | I ZTR="??" Q:$$CALL("SELECT^XUTMONH") G MON^ZTMON
|
|---|
| 64 | W !!?5,"Enter <RETURN> to update the monitor screen."
|
|---|
| 65 | W !?5,"Enter ^ to exit the monitor."
|
|---|
| 66 | W !?5,"Enter E to inspect the TaskMan Error file."
|
|---|
| 67 | W !?5,"Enter P to see taskman parameters."
|
|---|
| 68 | W !?5,"Enter R to see busy Resource slots."
|
|---|
| 69 | W !?5,"Enter S to see a system status listing."
|
|---|
| 70 | W !?5,"Enter ? to see this message."
|
|---|
| 71 | W !?5,"Enter ?? to inspect the tasks in the monitor's lists."
|
|---|
| 72 | G DONE
|
|---|
| 73 | ;
|
|---|
| 74 | H3(%) ;Convert $H to seconds.
|
|---|
| 75 | Q 86400*%+$P(%,",",2)
|
|---|
| 76 | ;
|
|---|
| 77 | CALL(RTN) ;Check for called routine
|
|---|
| 78 | N DUOUT
|
|---|
| 79 | I $D(^DIC(19,0))[0 W !,"In the wrong account." Q 0
|
|---|
| 80 | D @RTN Q $D(DUOUT)
|
|---|
| 81 | ;
|
|---|
| 82 | RES ;Check on resource devices
|
|---|
| 83 | N ZT1,ZT2,ZT3,ZTIM,X
|
|---|
| 84 | S ZT1=""
|
|---|
| 85 | F S ZT1=$O(^%ZTSCH("IO",ZT1)) Q:ZT1="" I ^%ZTSCH("IO",ZT1)="RES" D
|
|---|
| 86 | . ;Q:$D(^%ZTSCH("IO",ZT1))<9
|
|---|
| 87 | . S ZT2=$O(^%ZISL(3.54,"B",ZT1,0)),ZT3=0 Q:ZT2'>0
|
|---|
| 88 | . S X=$G(^%ZISL(3.54,ZT2,0))
|
|---|
| 89 | . W !,"Resource ",ZT1," Aval. Slots: ",$P(X,U,2)
|
|---|
| 90 | . F S ZT3=$O(^%ZISL(3.54,ZT2,1,ZT3)) Q:ZT3'>0 D
|
|---|
| 91 | . . S X=^%ZISL(3.54,ZT2,1,ZT3,0),ZTIM=$P(X,U,5) I ZTIM]"",ZTIM'["," S ZTIM=$$H0^%ZTM(ZTIM)
|
|---|
| 92 | . . W !,?10,"Slot: ",$J(ZT3,2)," Job: ",$P(X,U,3)," Task: ",$P(X,U,4)
|
|---|
| 93 | . . W " time: ",$$HDIFF^%ZTLOAD7($H,ZTIM,2)
|
|---|
| 94 | . . Q
|
|---|
| 95 | . Q
|
|---|
| 96 | Q
|
|---|
