QLZARTV - Retrieve Processor Tier Grooup (CL)

QLZARTV - Retrieve Processor Tier Grooup (CL)

 

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

Thanks to Kevin Wright & Todd Kidwell