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.