| 1 | ZTMCHK ;SEA/RDS-Taskman: Option, ZTMCHECK, Part 1 ;01/12/95 08:12
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
|
|---|
| 5 | CHECK ;Main Entry Point For Environment Check
|
|---|
| 6 | S U="^",%ZIS="",IOP="HOME" D ^%ZIS
|
|---|
| 7 | W @IOF,!!,"Checking Task Manager's Environment."
|
|---|
| 8 | ;
|
|---|
| 9 | GLOB ;Checking Task Manager's Globals
|
|---|
| 10 | W !!,"Checking Taskman's globals..."
|
|---|
| 11 | F ZT="^%ZTSCH","^%ZTSK","^%ZTSK(-1)","^%ZIS(14.5,0)","^%ZIS(14.6,0)","^%ZIS(14.7,0)" D
|
|---|
| 12 | . W !?5,ZT," is ",$S($D(@ZT):"",1:"not "),"defined!" W:'$D(@ZT) $C(7)
|
|---|
| 13 | . Q
|
|---|
| 14 | ;
|
|---|
| 15 | NODES ;Check Required %ZOSF Nodes
|
|---|
| 16 | W !!,"Checking the ^%ZOSF nodes required by Taskman..."
|
|---|
| 17 | S ZTF=1 F ZTN="ACTJ","AVJ","MAXSIZ","MGR","OS","PROD","TRAP","UCI","UCICHECK","VOL" D
|
|---|
| 18 | . I $D(^%ZOSF(ZTN))[0 W !?5,"^%ZOSF('",ZTN,"') is missing!",$C(7) S ZTF=0
|
|---|
| 19 | . Q
|
|---|
| 20 | I 'ZTF K ZTF,ZTN Q
|
|---|
| 21 | W !?5,"All ^%ZOSF nodes required by Taskman are defined!"
|
|---|
| 22 | ;
|
|---|
| 23 | D LOOKUP
|
|---|
| 24 | CONT ;program is continued in ZTMCHK1
|
|---|
| 25 | G ^ZTMCHK1
|
|---|
| 26 | ;
|
|---|
| 27 | LOOKUP ;lookup TaskMan site parameters
|
|---|
| 28 | N Y D GETENV^%ZOSV S ZTVOL=$P(Y,U,2),ZTPAIR=$P(Y,U,4)
|
|---|
| 29 | S ZTOS=^%ZOSF("OS")
|
|---|
| 30 | S ZTVSN=$O(^%ZIS(14.5,"B",ZTVOL,""))
|
|---|
| 31 | S ZTVSS=$G(^%ZIS(14.5,+ZTVSN,0))
|
|---|
| 32 | S ZTVLI=$P(ZTVSS,U,2)
|
|---|
| 33 | ;
|
|---|
| 34 | S ZTPN=$O(^%ZIS(14.7,"B",ZTPAIR,"")),ZTPS=$G(^%ZIS(14.7,+ZTPN,0))
|
|---|
| 35 | S ZTPT=$P(ZTPS,U,4),ZTSIZ=+$P(ZTPS,U,5)
|
|---|
| 36 | I 'ZTSIZ,ZTOS'["VAX DSM",ZTOS["DSM" S ZTSIZ=32
|
|---|
| 37 | S ZTRET=+$P(ZTPS,U,6),ZTVMJ=+$P(ZTPS,U,7),ZTSLO=+$P(ZTPS,U,8)
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | PARAMS ;
|
|---|
| 41 | N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
|
|---|
| 42 | D LOOKUP,INFO^ZTMCHK1
|
|---|
| 43 | Q
|
|---|
