Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ZTMCHK

ZTMCHK.m

Go to the documentation of this file.
  1. ZTMCHK ;SEA/RDS-Taskman: Option, ZTMCHECK, Part 1 ;01/12/95 08:12
  1. ;;8.0;KERNEL;;Jul 10, 1995
  1. ;
  1. N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
  1. CHECK ;Main Entry Point For Environment Check
  1. S U="^",%ZIS="",IOP="HOME" D ^%ZIS
  1. W @IOF,!!,"Checking Task Manager's Environment."
  1. ;
  1. GLOB ;Checking Task Manager's Globals
  1. W !!,"Checking Taskman's globals..."
  1. F ZT="^%ZTSCH","^%ZTSK","^%ZTSK(-1)","^%ZIS(14.5,0)","^%ZIS(14.6,0)","^%ZIS(14.7,0)" D
  1. . W !?5,ZT," is ",$S($D(@ZT):"",1:"not "),"defined!" W:'$D(@ZT) $C(7)
  1. . Q
  1. ;
  1. NODES ;Check Required %ZOSF Nodes
  1. W !!,"Checking the ^%ZOSF nodes required by Taskman..."
  1. S ZTF=1 F ZTN="ACTJ","AVJ","MAXSIZ","MGR","OS","PROD","TRAP","UCI","UCICHECK","VOL" D
  1. . I $D(^%ZOSF(ZTN))[0 W !?5,"^%ZOSF('",ZTN,"') is missing!",$C(7) S ZTF=0
  1. . Q
  1. I 'ZTF K ZTF,ZTN Q
  1. W !?5,"All ^%ZOSF nodes required by Taskman are defined!"
  1. ;
  1. D LOOKUP
  1. CONT ;program is continued in ZTMCHK1
  1. G ^ZTMCHK1
  1. ;
  1. LOOKUP ;lookup TaskMan site parameters
  1. N Y D GETENV^%ZOSV S ZTVOL=$P(Y,U,2),ZTPAIR=$P(Y,U,4)
  1. S ZTOS=^%ZOSF("OS")
  1. S ZTVSN=$O(^%ZIS(14.5,"B",ZTVOL,""))
  1. S ZTVSS=$G(^%ZIS(14.5,+ZTVSN,0))
  1. S ZTVLI=$P(ZTVSS,U,2)
  1. ;
  1. S ZTPN=$O(^%ZIS(14.7,"B",ZTPAIR,"")),ZTPS=$G(^%ZIS(14.7,+ZTPN,0))
  1. S ZTPT=$P(ZTPS,U,4),ZTSIZ=+$P(ZTPS,U,5)
  1. I 'ZTSIZ,ZTOS'["VAX DSM",ZTOS["DSM" S ZTSIZ=32
  1. S ZTRET=+$P(ZTPS,U,6),ZTVMJ=+$P(ZTPS,U,7),ZTSLO=+$P(ZTPS,U,8)
  1. Q
  1. ;
  1. PARAMS ;
  1. N ZTF,ZTJ,ZTN,ZTOS,ZTPAIR,ZTPN,ZTPS,ZTPT,ZTRET,ZTS,ZTSIZ,ZTSLO,ZTV,ZTVLI,ZTVMJ,ZTVOL,ZTVSN,ZTVSS,ZTX,DTOUT,DUOUT,X,Y
  1. D LOOKUP,INFO^ZTMCHK1
  1. Q