Retreive the current OS Version!

The following program illustrates the way to find the corrent OS level using the API QSZRTVPR, in a CL program.

PGM
DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(256)
DCL VAR(&RELEASE) TYPE(*CHAR) LEN(6)
DCL VAR(&PRODID) TYPE(*CHAR) LEN(27)
DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4)
CHGVAR VAR(%BIN(&RCVLEN 1 4)) VALUE(32)
CHGVAR VAR(%SST(&PRODID 1 7)) VALUE(*OPSYS)
CHGVAR VAR(%SST(&PRODID 8 6)) VALUE(*CUR)
CHGVAR VAR(%SST(&PRODID 14 4)) VALUE('0000')
CHGVAR VAR(%SST(&PRODID 18 10)) VALUE(*CODE)
CALL PGM(QSZRTVPR) PARM(&RCVVAR &RCVLEN +
'PRDR0100' &PRODID X'00000000')
CHGVAR VAR(&RELEASE) VALUE(%SST(&RCVVAR 20 6))
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('THE +
RELEASE OF THIS OPERATING SYSTEM IS ' |> &RELEASE)
ENDPGM

For more information on the API QSZRTVPR, refer to IBM site.

http://publib.boulder.ibm.com/iseries/v5r1/ic2924/index.htm?info/apis/qszrtvpr.htm

Any queries or clarifications mail dean@iseriesuniversity.com

Thanks

Subbu