TopKat
125 pts. | Aug 20 2009 2:56PM GMT
Jayanta,
From other forums I learned that even IBM doesn’t consider data area QSS1MRI reliable. They recommend using the QSZRTVPR API.
I copied this code from an answer given by Scott Klement. It works quite well:
PGM PARM(&RELEASE)
DCL VAR(&RELEASE) TYPE(*CHAR) LEN(6)
DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(32)
DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&PRODINFO) TYPE(*CHAR) LEN(27)
DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(8)
CHGVAR VAR(%BIN(&RCVLEN 1 4)) VALUE(32)
CHGVAR VAR(%BIN(&ERRCODE 1 4)) VALUE(0)
CHGVAR VAR(%SST(&PRODINFO 1 7)) VALUE(’*OPSYS’)
CHGVAR VAR(%SST(&PRODINFO 8 6)) VALUE(’*CUR’)
CHGVAR VAR(%SST(&PRODINFO 14 4)) VALUE(’0000′)
CHGVAR VAR(%SST(&PRODINFO 18 10)) VALUE(’*CODE’)
CALL PGM(QSZRTVPR) PARM(&RCVVAR +
&RCVLEN +
‘PRDR0100′ +
&PRODINFO +
&ERRCODE)
CHGVAR VAR(&RELEASE) VALUE(%SST(&RCVVAR 20 6))
ENDPGM
Hope this helps.
Chenthil
250 pts. | Aug 25 2009 2:04PM GMT
simple way is open any spool file in your as400
you can see the version of the OS on top left of the spool file ( 7th line from top )






