| 1 | ZTMCHK1 ;SEA/RDS-Taskman: Option, ZTMCHECK, Part 2 ;04/19/99 15:25
|
|---|
| 2 | ;;8.0;KERNEL;**127**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | LINKS ;Check Required Volume Sets' Links
|
|---|
| 5 | W !!,"Checking the links to the required volume sets..."
|
|---|
| 6 | S (ZTJ,ZTV)=0
|
|---|
| 7 | L0 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 | ;
|
|---|
| 14 | EOP ;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 | ;
|
|---|
| 18 | INFO ;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 | ;
|
|---|
| 34 | STATUS ;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 | ;
|
|---|
| 40 | DONE ;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=""
|
|---|
| 42 | EXIT Q
|
|---|
| 43 | ;
|
|---|
| 44 | MGR ;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 | ;
|
|---|
| 50 | ERLINKS ;Error Trap For LINKS Code
|
|---|
| 51 | W !?5,"The link to volume set ",ZTS," appears to be down!",$C(7) G L0
|
|---|
| 52 | ;
|
|---|
