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 *