RE: Where can you find the Version & Release #'s on your AS/400

Arlene and Dan,

If you wish to use an API, this information can be found through Retrieve
Product Information (QSZRTVPR), specifying the *OPSYS for Product ID.

Another commonly used techique is to use the SYSLVL value returned for the
QSYS *LIB object...

RTVOBJD OBJ(QSYS/QSYS) OBJTYPE(*LIB) SYSLVL(&VERSION)


I used this technique in a command to conveniently retrive this info every
format I could think of.  See below.  Contact me off line if you'd like a
copy of the source.

Regards,
Jerry Jewel

"Better living through fine code and hot coffee!"

mailto:jerryjewel@email.com



COMMAND PROMPT PRINT SCREEN...

Retrieve Release Level (XRTVRELLVL)

Type choices, press Enter.

Return var for Vx        (2) . .                 Example: V4
Return var for VxRx      (4) . .                 Example: V4R4
Return var for VxRxMx    (6) . .                 Example: V4R4M0
Return var for Vxx       (3) . .                 Example: V04
Return var for VxxRxx    (6) . .                 Example: V04R04
Return var for VxxRxxMxx (9) . .                 Example: V04R04M00
Return var for x         (1) . .                 Example: 4
Return var for xx        (2) . .                 Example: 44
Return var for xxx       (3) . .                 Example: 440

-----------------------------------------------
FREE! The World's Best Email Address @email.com
Reserve your name now at http://www.email.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
+---