Re: Info on P-Groups?

Tony,

A couple of years ago, Kevin Wright provided some code to this list that 
retrieves the processor tier group.

Below is the code he provided ...

Pgm

   Dcl        Var(&Result    ) Type(*Char     ) Len(64         )
   Dcl        Var(&RstLen   ) Type(*Char     ) Len(4           )
   Dcl        Var(&Format   ) Type(*Char     ) Len(8           )  
Value('PRDR0100')
   Dcl        Var(&OSInfo   ) Type(*Char     ) Len(27         )  Value('*OPSYS 
*CUR  0000*CODE     ')
   Dcl        Var(&ErrCde   ) Type(*Char     ) Len(4           )
   Dcl        Var(&Rcvr      ) Type(*Char     ) Len(64          )
   Dcl        Var(&RcvrLen ) Type(*Char    )  Len(4           )  
Value(X'00000040')
   Dcl        Var(&RcvrFmt ) Type(*Char    ) Len(8           )  
Value('LICR0200')
   Dcl        Var(&PrdID     ) Type(*Char     ) Len(17         )  Value('       
      5050')
   Dcl        Var(&PrdFmt   ) Type(*Char     ) Len(8          )  
Value('LICP0100')
   Dcl        Var(&EC          )  Type(*Char     ) Len(4          )  
Value(X'00000000')
   Dcl        Var(&PrcGrp    ) Type(*Char     ) Len(64         )

  ChgVar     Var(%bin(&RstLen 1 4)) Value(64       )
  ChgVar     Var(%bin(&ErrCde 1 4)) Value(0        )

  Call       Pgm(QSys/QSZRtvPr) Parm(&Result &RstLen &Format &OSInfo &ErrCde)

  ChgVar     Var(%sst(&PrdID 1 13))  Value(%sst(&Result 13 13))

  Call      Pgm(QSys/QLZARtv) Parm(&Rcvr &RcvrLen &RcvrFmt &PrdID &PrdFmt &EC)

  ChgVar     Var(&PrcGrp    )  Value(%sst(&Rcvr 48 3))

  SndPgmMsg  MsgID(CPF9898) MsgF(QCPFMsg) MsgDta('Processor group is' *bcat
                     &PrcGrp) MsgType(*Comp  )

  EndPgm


Todd Kidwell (Netstar)
AS/400 System Administrator
(313) 224-0578

>>> "William A.(Tony) Corbett" <corbett@ASRESOURCES.COM> 09/26/02 09:34AM >>>
Hi,
At one time, I (think) had info to determine the P-group of
"model-processor-interactive feature".  For example, a 720-2262-1502 -> P20.
Ie., what if the 2262 becomes a 2263?  We're looking into several upgrade
possibilities and I need to know where the P-group change happens.  Anyone
have a link that will help me to determine this?

TIA

AS/Resources, Inc.
William A.(Tony) Corbett
IBM Certified Specialist - AS/400 Developer
http://www.asresources.com
corbett@asresources.com
770-587-4812 (office)
678-935-5006 (mobile)
fax:  404-663-4737



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