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

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

On Sunday, June 14, 1998 1:14 PM, Bob Crothers [SMTP:bob@cstoneindy.com] 
wrote:
> 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?

>>"RTVOBJD ... SYSLVL(&SYSLVL)"

-snip-

Tried it on V4R2 and V4R1: both match.

If you're leery of testing the release level of the system library (which 
seems to work just fine,) you can also try this Retrieve Product 
Information API code that someone (alas I don't know who) emailed me long 
ago.  It's in the V3R7 manual OS/400 Software APIs.

PGM

   DCL        &RELEASE    *CHAR  6

 /*************************************************************/
 /* RCVR CAN BE 8 BYTES OR LARGER (MUST BE ENOUGH TO HOLD THE */
 /* ALL THE FIELDS UPTO AND INCLUDING THE FIELD YOU WANT FROM */
 /* THE PRDR0100 FORMAT.                                      */
 /* X'00000000' FOR THE ERROR CODE TELLS THE API TO SIGNAL    */
 /* ERRORS.                                                   */
 /*                                                           */
 /* PRDINFO (PRODUCT INFORMATION):                            */
 /*   *OPSYS - THE PRODUCT ID FOR THE OPERATING SYSTEM IS     */
 /*            USED.                                          */
 /*   *CUR   - USE THE RELEASE OF THE CURRENTLY INSTALLED     */
 /*            SYSTEM                                         */
 /*   0000   - BASE OPTION                                    */
 /*   *CODE  - USE LOAD ID FOR THE GIVEN PROD ID, RELEASE     */
 /*            LEVEL, AND OPTION.                             */
 /*                                                           */
 /*                                                           */
 /*************************************************************/
   DCL        &RCVR       *CHAR  128
   DCL        &RCVRLEN    *CHAR  4      VALUE(X'00000080')
   DCL        &FORMAT     *CHAR  8      VALUE('PRDR0100')
   DCL        &PRDINFO    *CHAR  27     VALUE('*OPSYS *CUR  0000*CODE
   DCL        &ERRCODE    *CHAR  4      VALUE(X'00000000')

   CALL QSYS/QSZRTVPR PARM(&RCVR &RCVRLEN &FORMAT &PRDINFO &ERRCODE)

   CHGVAR &RELEASE (%SST(&RCVR 20 6))
   SNDPGMMSG MSG('This system is at release' |> &RELEASE)
   ENDPGM

Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

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