In debug you can see the max cpus and the configured cpus. If anyone is
interested I can write a little script to leave these
values in a CI variable.
Mike Hornsby Co-founder/Chief Technical Officer
Beechglen Development Inc. (beechglen.com)
513-922-0509 [log in to unmask]
comment max cpus
debug dv $a.c0001020,1,decimal;e
comment conf cpus
debug dv $a.c0001024,1,decimal;e
:comment max cpus
:debug dv $a.c0001020,1,decimal;e
DEBUG/iX C.39.06
HPDEBUG Intrinsic at: a.00faffa0 hxdebug+$c8
VIRT $a.c0001020 # 1
:comment conf cpus
:debug dv $a.c0001024,1,decimal;e
HPDEBUG Intrinsic at: a.00faffa0 hxdebug+$c8
VIRT $a.c0001024 # 1
:
----- Original Message -----
From: "Paul Christidis" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, March 29, 2004 3:36 PM
Subject: Re: [HP3000-L] Detecting multiple CPUs
> HP-3000 Systems Discussion <[log in to unmask]> wrote on 03/29/2004
> 06:34:02 AM:
>
> > Anyone have any sugesstions on how to detect if a system has multiple
> CPUs
> > in a CI script?
> >
>
> Rick,
>
> The command file below could help you do that. It should be run once
after
> reboot under a user with enough capabilities to be able to execute
> 'sysinfo.prvxl.telesup' and build a file in the 'pub.sys' group. After
> that point each job/session would execute the resulting file
> (NUMOFCPU.PUB.SYS by default) and would have access to the CI variable.
> The 'default' CI variable is 'NumberOfCpus'
>
> Regards
> Paul Christidis
>
> -------------------------------
> parm arg1="NumberOfCpus"
> # This command file will set a CI variable to the number of CPUs in
> # this host. It uses the date of 'cicat.pub.sys' to detect system
> # updates (possibly adding more CPUs) and recreates the file that
> # hold the appropriate 'setvar' command.
>
> # This command file should be executed only once after 'start-up' by
> # a user with SM capabilities to create the file. Every other logon
> # should merely execute the resulting file in the 'PUB.SYS' group
> #
> setvar _ncFileName "NUMOFCPU.PUB.SYS"
> if FINFO(_ncFileName, "exists") AND &
> FINFO(_ncFileName, -6) >= FINFO("cicat.pub.sys", -6) then
> else
> echo exit > gpfile
> build stdlist;rec=-80,,f,ascii;msg;temp
> file x=stdlist,oldtemp
> continue
> sysinfo.prvxl.telesup > *x <gpfile
> #
> # append 'dummy' record in case 'sysinfo' does not exist. In that case
> # the number of CPUs will be set to '1' (which means at least 1).
> #
> echo CPU ID wrd3 wrd4 wrd5 1 wrd7 >>*x
> setvar _ncDone false
> while NOT _ncDone do
> INPUT _ncText <*x
> if SETVAR(_ncDone, LFT(_ncText, 6) = "CPU ID") then
> setvar _ncNumCpu WORD(_ncText,, 6)
> if _ncNumCpu = "Single" then
> setvar _ncNumCpu "1"
> endif
> echo setvar !arg1 !_ncNumCpu >!_ncFileName
> continue
> save !_ncFileName
> endif
> endwhile
> reset x
> purge gpfile,temp >$null
> purge stdlist,temp >$null
> endif
> xeq !_ncFileName
> deletevar _nc@
> -----------------------------------------------
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|