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

Phil,

Can I also get the source?  I have the ILE/C and could compile it. 
 Would also put it on our website if you would like.

Bob

-----Original Message-----
From:   Phil Hall [SMTP:hallp@ssax.com]
Sent:   Monday, June 15, 1998 9:48 AM
To:     MIDRANGE-L@midrange.com
Subject:        Re: How to Tell what version of OS/400 running under?

The ILE/C program I offered for getting the Feature code/software 
group also
returns the OS version, by using the software product api's to query 
the *BASE
OS level. This I feel is better than querying QCMD object (IIRC, QCMD 
on V3R1M5
was still tagged as V3R1M0)

Patrick Townsend has the source and object and has offered to make the 
*PGM
object available from his website (is this still correct Patrick ?)

Jon Paris has offered to port it to RPG (as an exercise he'd like to 
try) I'm
going to do a CL port this morning & post the source later today.

The output from the utility is;

Model 9402, Type 40S-2110, PRC Group P05, SN# zzy-xxxxx, OS is at V  
3R7M0.

(where SN# iwill be your AS/400 serial number...)

--phil

--
Phil Hall
________________________________________________

email . . . . : hallp@ssax.com
phone(w). . . : (312) 258-6319

News/400 C/C++ Forum moderator at;
       http://www.news400.com/c/index.htm
________________________________________________
+---
| 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
+---

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