RE: How to Tell what version of OS/400 running under?

[Neil Palmer <npalmer@xxxxxxxxxxx>]

It returns the CURRENT release.
You need only do DSPOBJD QSYS *LIB  and take option 8 to see the system
level.



Neil Palmer                                AS/400~~~~~      
NxTrend Technology - Canada   ____________          ___  ~     
Thornhill, Ontario,  Canada   |OOOOOOOOOO| ________  o|__||=   
Phone: (905) 731-9000  x238   |__________|_|______|_|______)   
Cell.: (416) 565-1682  x238    oo      oo   oo  oo   OOOo=o\   
Fax:   (905) 731-9202       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
mailto:NPalmer@NxTrend.com    AS/400  The Ultimate Business Server      
http://www.NxTrend.com

> -----Original Message-----
> From: Bob Crothers [SMTP:bob@cstoneindy.com]
> Sent: Sunday, June 14, 1998 1:14 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: How to Tell what version of OS/400 running under?
> 
> David,
> 
> Tried what you suggested and it does return what I expected 
> (V03R07M00).  But, that is what our machine was originally installed 
> with.  Do you know if this works on ALL as/400's?
> 
> Could a few of you out there type in the below program and tell me a) 
> What it returns and b) What release of OS/400 you are on?  Do they 
> agree?
> 
> PGM
> DCL        VAR(&SYSLVL) TYPE(*CHAR) LEN(9)
> RTVOBJD    OBJ(QSYS/QSYS) OBJTYPE(*LIB) SYSLVL(&SYSLVL)
> SNDPGMMSG  MSG(&SYSLVL)
> ENDPGM
> 
> Thanks,
> Bob
> 
> -----Original Message-----
> From: David Gibbs [SMTP:david@midrange.com]
> Sent: Sunday, June 14, 1998 4:24 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: How to Tell what version of OS/400 running under?
> 
> At 10:53 AM 6/14/98 , Bob Crothers wrote:
> >How can I retrieve the current OS/400 version out of a program?
> 
> Try "RTVOBJD OBJ(QSYS) OBJTYPE(*LIB) SYSLVL(&SYSLVL)"
> 
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---