Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: KMPDUTL5

Package: Capacity Management

Routine: KMPDUTL5


Information

KMPDUTL5 ;OIFO/KAK - Obtain CPU Configuration;28 Feb 2002 ;2/17/04 10:56

Source Information

Source file <KMPDUTL5.m>

Entry Points

Name Comments DBIA/ICR reference
CPU(ARRAY) ;-- get cpu configuration information
DSM(CPUINFO) ;-- for DSM Platform
CLSTR ; get %GETSYI using wild card to get CSID and NODENAME for all nodes
ERRCLU
CVMS(CPUINFO,TYP) ;-- for Cache for OpenVMS Platform
CWINNT(CPUINFO,TYP) ;-- for Cache for Windows NT Platform
CREATE(FILE,TYP) ;-- function to create new com file
TAGXIT ;
PARSE(LOG,CPUARRY,TYP) ;-- parse log file data
EOF ;-- end of file condition for CVMS
EOF1 ;-- end of file condition for CWINNT
CVMSVER() ;-- returns version of Cache for OpenVMS operating system
CWNTVER() ;-- returns version of Cache for Windows NT operating system

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CWINNT+40
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CWINNT+54
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CWINNT+57
Function Call: WRITE
  • Prompt: "$! KMPDU"_TYPNM_".COM - Obtain System Configuration Information"
  • Line Location: CREATE+18
Function Call: WRITE
  • Prompt: "$!--------------------------------------------------------"
  • Line Location: CREATE+19
Function Call: WRITE
  • Prompt: "$! OIFO - CAPACITY PLANNING/KAK"
  • Line Location: CREATE+20
Function Call: WRITE
  • Prompt: "$! "_$P($T(+2)_";;",2,999)
  • Line Location: CREATE+21
Function Call: WRITE
  • Prompt: "$!--------------------------------------------------------"
  • Line Location: CREATE+22
Function Call: WRITE
  • Prompt: "$!"
  • Line Location: CREATE+23
Function Call: WRITE
  • Prompt: "$ if f$getsyi(""CLUSTER_MEMBER"") .eqs. ""FALSE"" then goto NOT_CLUSTER"
  • Line Location: CREATE+28
Function Call: WRITE
  • Prompt: "$ CONTEXT = """""
  • Line Location: CREATE+29
Function Call: WRITE
  • Prompt: "$START:"
  • Line Location: CREATE+30
Function Call: WRITE
  • Prompt: "$ ID = f$csid(CONTEXT)"
  • Line Location: CREATE+31
Function Call: WRITE
  • Prompt: "$ if ID .eqs. """" then goto EXIT"
  • Line Location: CREATE+32
Function Call: WRITE
  • Prompt: "$ write sys$output ""NODE="" , f$getsyi(""NODENAME"",,ID)"
  • Line Location: CREATE+33
Function Call: WRITE
  • Prompt: "$ write sys$output ""TYPE="" , f$getsyi(""HW_NAME"",,ID)"
  • Line Location: CREATE+34
Function Call: WRITE
  • Prompt: "$ write sys$output ""CPU_CNT="" , f$getsyi(""ACTIVECPU_CNT"",,ID)"
  • Line Location: CREATE+35
Function Call: WRITE
  • Prompt: "$ write sys$output ""SPEED=n/a"""
  • Line Location: CREATE+36
Function Call: WRITE
  • Prompt: "$ write sys$output ""MEMSIZE="" , f$getsyi(""MEMSIZE"",,ID)"
  • Line Location: CREATE+37
Function Call: WRITE
  • Prompt: "$ goto START"
  • Line Location: CREATE+38
Function Call: WRITE
  • Prompt: "$NOT_CLUSTER:"
  • Line Location: CREATE+39
Function Call: WRITE
  • Prompt: "$ write sys$output ""NODE="" , f$getsyi(""NODENAME"")"
  • Line Location: CREATE+40
Function Call: WRITE
  • Prompt: "$ write sys$output ""TYPE="" , f$getsyi(""HW_NAME"")"
  • Line Location: CREATE+41
Function Call: WRITE
  • Prompt: "$ write sys$output ""CPU_CNT="" , f$getsyi(""ACTIVECPU_CNT"")"
  • Line Location: CREATE+42
Function Call: WRITE
  • Prompt: "$ write sys$output ""SPEED=n/a"""
  • Line Location: CREATE+43
Function Call: WRITE
  • Prompt: "$ write sys$output ""MEMSIZE="" , f$getsyi(""MEMSIZE"")"
  • Line Location: CREATE+44
Function Call: WRITE
  • Prompt: "$EXIT:"
  • Line Location: TAGXIT+1
Function Call: WRITE
  • Prompt: "$ write sys$output ""*EOF*"""
  • Line Location: TAGXIT+2
Function Call: WRITE
  • Prompt: "$ exit"
  • Line Location: TAGXIT+3
Function Call: WRITE
  • Prompt: "$!"
  • Line Location: TAGXIT+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PARSE+22
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PARSE+24
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PARSE+35
Info |  Source |  Entry Points |  Interaction Calls