How to know my AS400 version

[gonen]

Is there a way to retrieve the AS400 version (5.3 5.4 etc.) I run on in a REXX program using any RTV command ?

thanks

[FaStOnE]

Re: How to know my AS400 version

Gonen,

Per Scott Klement... here's a way (CL wise). You can adjust for REXX:

DCL VAR(&CHARVER) TYPE(*CHAR) LEN(9)
DCL VAR(&VERSION) TYPE(*DEC) LEN(6)

. . .

/* GET OS/400 VERSION */

RTVOBJD OBJ(QSYS/QCMD) OBJTYPE(*PGM) SYSLVL(&CHARVER)
CHGVAR VAR(&CHARVER) VALUE(%SST(&CHARVER 2 2) *CAT +
%SST(&CHARVER 5 2) *CAT %SST(&CHARVER 8 2))
CHGVAR VAR(&VERSION) VALUE(&CHARVER)

. . .

IF (&VERSION *GE 050100) DO
/* DO SOMETHING THAT REQUIRES V5R1 OR LATER */
ENDDO 

Hope this helps..

-Rick

[jamief]

Re: How to know my AS400 version

@#%@#%@#%@#% rick..thats verbose

dspdtaara QSS1MRI

there is also an api but this is CL--so I didnt repost

[FaStOnE]

Re: How to know my AS400 version

You're such a Suck-up!

[Mercury]

Re: How to know my AS400 version

A Quick Method

[B][B][FONT=Times New Roman,Times New Roman,Times][B][FONT=Arial]DSPDTAARA QUSRSYS/QSS1MRI[/FONT][/B][/FONT][/B][/B]

The OS version is in positions 1-6 of data area QSS1MRI in QUSRSYS library.

[sudarshan_ramal]

Re: How to know my AS400 version

The first line of your spool files also contains the version of the AS400 machine that you are using.

WRKSPLF(Take option 5 to display the spool file)

[gonen]

Re: How to know my AS400 version

thanks for a great one

[patinorior]

Re: How to know my AS400 version

you could also try this :
"GO LICPGM"
take option 10 (Display installed licensed programs)
press F11 (Display release)
Look for the one whose description is "Operating System/400"

here you will find the version

patino