Re: Easy way to get LPAR from RPG?

[Bryan Dietz <bdietz400@xxxxxxxxx>]

you can also usr the QWCRSSTS API:
http://publib.boulder.ibm.com/infocenter/systems/scope/i5os/index.jsp?topic=/apis/qwcrssts.htm

SSTS0200 Format contains LPAR info.

I have used it in a CL to get the %ASP used.  A quick change should get 
you the LPAR info at offset 77 and 81.

/*    Here is a quick way to see the percent used of ASP1.          */
/*    The API used is QWCRSSTS.                                     */
/*                                                                  */
/*                                                                  */
/*        comments to bryandietz@xxxxxxxxx                          */
     PGM
     DCL VAR(&PCT) TYPE(*CHAR) LEN(7)
     DCL VAR(&RCVDTA) TYPE(*CHAR) LEN(067)
     DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4) VALUE(X'00000043')
     DCL VAR(&RESETO) TYPE(*CHAR) LEN(10) VALUE('*YES      ')
     DCL VAR(&FMTNAM) TYPE(*CHAR) LEN(08) VALUE('SSTS0200')
     DCL VAR(&ERRSTS) TYPE(*CHAR) LEN(08) VALUE(X'00000000')
     DCL VAR(&PCTASP) TYPE(*DEC) LEN(7) VALUE(0)
     DCL VAR(&PCTX) TYPE(*DEC) LEN(7 4) VALUE(0)
     CALL PGM(QWCRSSTS) PARM(&RCVDTA &RCVLEN &FMTNAM &RESETO &ERRSTS)
     CHGVAR VAR(&PCTASP) VALUE(%BIN(&RCVDTA 53 4))
     CHGVAR VAR(&PCTX) VALUE(&PCTASP / 10000)
     CHGVAR VAR(&PCT) VALUE(&PCTX)
     SNDPGMMSG MSG('The system disk is ' || &PCT *TCAT '% used')
     ENDPGM

Bryan

James Lampert said the following on 2/13/2008 8:16 PM:
> Is there an easy way to get the LPAR number from RPG? One that works 
> under all OS releases that support LPARs?