The DB/400 version is the OS/400 version
Option 1 issue command DSPOBJD OBJ(QSYS/QCMD) OBJTYPE(*PGM) press 8
system level ... V6R1M0 <-- that's the answer
Option 2 - do a print screen - usually ctrl-pause
look at the spool file 5761SS1 --> V6R1M0 <-- 080215 it will be on the second line
I'm sure there are other ways to get this info.
Phil
Here's a CL program I use on our system. I just call the CL and I get the info.
---CL Program: DSPVER ---
PGM
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))
SNDMSG MSG('Release: '||&RELEASE) +
TOUSR(*REQUESTER)
ENDPGM
--- END OF CL ---
Last Wiki Answer Submitted: April 6, 2009 3:14 pm by Koohiisan5,005 pts.
All Answer Wiki Contributors: Koohiisan5,005 pts. ,
philpl1jb44,630 pts.
If you live outside the United States, by submitting your email address you consent to having your personal data transferred to and processed in the United States.
This works from a green-screen comand line.
GO LICPGM.
Take option 10 – Display installed licensed programs.
When the list of programs appears, press F11 – Display release to see the release level.
This works from a green-screen comand line.
GO LICPGM.
Take option 10 – Display installed licensed programs.
When the list of programs appears, press F11 – Display release to see the release level.