Re: One or two CPU ?

Thanks Bruce !

call procs says

0001

Mvh / Regards Jan Rockstedt
HSB Syd IT
Spangatan 37B, 2:a van.
211 53 Malmo Sweden
Phone: +46-40 - 668 07 45
Fax: +46-40-668 07 55
www.sydit.hsb.se




Bruce Vining <bvining@xxxxxxxxxx>
Sänt av: midrange-l-bounces@xxxxxxxxxxxx
2004-04-15 17:09
Sänd svar till Midrange Systems Technical Discussion
 
        Till:   Midrange Systems Technical Discussion 
<midrange-l@xxxxxxxxxxxx>
        Kopia: 
        Ärende: Re: One or two CPU ?

Try this:

pgm
dcl &rcv *char 10 x'000000A0'
dcl &count *char 4
callprc '_MATMATR1' (&rcv x'01DC')
chgvar &count %bin(&rcv 9 2)
sndpgmmsg &count topgmq(*ext)
endpgm

crtbndcl procs
call procs



 
             Jan.Rockstedt@syd 
             it.hsb.se 
             Sent by:                                                   To 

             midrange-l-bounce         midrange-l@xxxxxxxxxxxx 
             s@xxxxxxxxxxxx                                             cc 

 
                                                                   Subject 

             04/15/2004 03:06          One or two CPU ? 
             AM 
 
 
             Please respond to 
             Midrange Systems 
                 Technical 
                Discussion 
 
 




Hi !

Where can i see on a 810 ISeries if it have one or two CPU ?

Here are a WRKHDWRSC TYPE(*PRC)

Resource        Type-model  Status                Text
CEC01            9406-810   Operational           Main Card Enclosure
PN01             247D       Operational           System Control Panel
MP01             25BA-000   Operational           System Processor Card
PV01             7407-001   Operational           Processor Capacity Card
SP01             25BA       Operational           Service Processor Card
BCC01                       Operational           Bus Adapter
BCC02                       Operational           Bus Adapter
  MS01           3094-000   Operational           1024MB Main Storage Card

  MS02           3094-000   Operational           1024MB Main Storage Card

  MS03           3096-000   Operational           2048MB Main Storage Card

  MS04           3096-000   Operational           2048MB Main Storage Card


Regards Jan Rockstedt
HSB Syd IT
Spangatan 37B, 2:a van.
211 53 Malmo Sweden
Phone: +46-40 - 668 07 45
Fax: +46-40-668 07 55
www.sydit.hsb.se
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.




_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.