source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZTMCHK1.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1ZTMCHK1 ;SEA/RDS-Taskman: Option, ZTMCHECK, Part 2 ;04/19/99 15:25
2 ;;8.0;KERNEL;**127**;Jul 10, 1995
3 ;
4LINKS ;Check Required Volume Sets' Links
5 W !!,"Checking the links to the required volume sets..."
6 S (ZTJ,ZTV)=0
7L0 S X="ERLINKS",@^%ZOSF("TRAP") F S ZTV=$O(^%ZIS(14.5,ZTV)) Q:'ZTV S ZTS=$P(^(ZTV,0),U) I $P(^(0),U,5)="Y",ZTS'=ZTVOL D
8 . S ZTJ=ZTJ+1,ZTX=ZTS D MGR S ZTX=$D(^[Y,ZTS]%ZOSF("PROD")) W !?5,"The link to volume set ",ZTS," is present!"
9 . Q
10 S X="",@^%ZOSF("TRAP")
11 I 'ZTJ W !?5,"There are no volume sets whose links are required!"
12 W !!,"Checks completed...Taskman's environment is okay!"
13 ;
14EOP ;Pause at end of page
15 W ! S Y="" F ZT=0:0 R !,"Press RETURN to continue or '^' to exit: ",Y:$S($D(DTIME)#2:DTIME,1:60) S:'$T DTOUT="" S:Y="^" DUOUT="" Q:Y=""!(Y="^") W !!,"Enter either RETURN or '^'",! W:Y'["?" $C(7)
16 I $D(DUOUT)!$D(DTOUT) W:$D(DTOUT) $C(7) G EXIT
17 ;
18INFO ;Display Task Manager's Information
19 W @IOF,!!,"Here is the information that Taskman has:"
20 W !?5,"Operating System: ",$P(ZTOS,U)
21 W !?5,"Volume Set: ",ZTVOL
22 W !?5,"Cpu-volume Pair: ",ZTPAIR
23 W !?5,"TaskMan Files UCI and Volume Set: ",$P(ZTVSS,U,6),"," S X=$P(ZTVSS,U,7) W $S(X="":ZTVOL,$D(^%ZIS(14.5,X,0))[0:ZTVOL,$P(^(0),U)="":ZTVOL,1:$P(^(0),U)) K X
24 W !!?5,"Log Tasks? ",$P(ZTPS,U,3)
25 W !?5,"Default Task Priority: ",ZTPT
26 I ZTOS["DSM"&(ZTOS'["VAX"),ZTSIZ]"" W !?5,"Task Partition Size: ",ZTSIZ
27 W !?5,"Submanager Retention Time: ",ZTRET
28 W !?5,"Min Submanager Count: ",$P(ZTPS,U,12)
29 W !?5,"Taskman Hang Between New Jobs: ",ZTSLO
30 W !?5,"TaskMan running as a type: ",$P("^COMPUTE^PRINT^GENERAL^","^",$F("CPG",$P(ZTPS,U,9)))
31 I $P(ZTPS,U,10)]"" W !?5,"TaskMan is using VAX DSM enviroment: ",$P(ZTPS,U,10)
32 I $G(^%ZIS(14.7,+ZTPN,2))]"" W !?5,"TaskMan is using '",^(2)," for load balancing"
33 ;
34STATUS ;Display Task Manager's Status-Related Information
35 W !!?5,"Logons Inhibited?: ",ZTVLI
36 W !?5,"Taskman Job Limit: ",ZTVMJ
37 I $D(^XTV(8989.3,0)) S %=$O(^XTV(8989.3,1,4,"B",ZTVOL,0)) W !?5,"Max sign-ons: ",$P($G(^XTV(8989.3,1,4,+%,0)),U,3)
38 X ^%ZOSF("ACTJ") W !?5,"Current number of active jobs: ",Y
39 ;
40DONE ;Prompt To Continue And Quit
41 W ! R !,"End of listing. Press RETURN to continue: ",Y:$S($D(DTIME)#2:DTIME,1:60) S:'$T DTOUT="" S:Y="^" DUOUT=""
42EXIT Q
43 ;
44MGR ;LINKS--lookup name of another volume set's library uci
45 S Y=ZTX I Y]"" S Y=$O(^%ZIS(14.5,"B",Y,""))
46 I Y]"" S Y=$S($D(^%ZIS(14.5,Y,0))#2:$P(^(0),U,6),1:"")
47 I Y="" S Y=$P($P(^%ZIS(14.5,ZTVSN,0),U,6),",")
48 Q
49 ;
50ERLINKS ;Error Trap For LINKS Code
51 W !?5,"The link to volume set ",ZTS," appears to be down!",$C(7) G L0
52 ;
Note: See TracBrowser for help on using the repository browser.