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 ---

Please complete the following information:

REGISTER / LOG-IN TO DISCUSS

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Submit your e-mail address below to continue

E-mail: 

E-mail: 

Handle:   

Password: 

Forgot Password?

Create Handle: 

Your handle identifies you in ITKnowledgeExchange. Max 30 char.

Create Password: 

Confirm Password: 

Yes, I agree to the IT Knowledge Exchange  Terms and Conditions.

hidden modal window