Re: system version

[Al Barsa <barsa@xxxxxxxxxxxxxxxxxxx>]

Lots of different ways:

Interactively:

GO LICPGM

Option 10 F11.

> From a program, there are two methods.  My favorite (because IBM
"guarantees" that it works) is:

DCL         VAR(&APIPARM) TYPE(*CHAR) LEN(1000)
DCL         VAR(&APIPARMLEN) TYPE(*CHAR) LEN(4)
DCL         VAR(&APIERRCDE) TYPE(*CHAR) LEN(4)
DCL         VAR(&PRDINF) TYPE(*CHAR) LEN(27)  VALUE('*OPSYS *CUR  0000*CODE
')
CALL        PGM(QSZRTVPR) PARM(&APIPARM &APIPARMLEN  PRDR0100 &PRDINF
&APIERRCDE)
CHGVAR      VAR(&OS400VRM) VALUE(%SST(&APIPARM 20 6))

Jim Sloan prefers to retrieve the system creation level of the program QCMD
in QSYS, but I always fear that IBM could through you a curve ball.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

"i" comes before "p", "x" and "z"
e gads

Our system's had more names than Elizabeth Taylor!

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com
http://www.as400connection.com



                                                                           
             "Dwayne Allison"                                              
             <Dwayne.Allison@A                                             
             ffirmativeInsuran                                          To 
             ce.com>                   "Midrange Systems Technical         
             Sent by:                  Discussion"                         
             midrange-l-bounce         <midrange-l@xxxxxxxxxxxx>           
             s@xxxxxxxxxxxx                                             cc 
                                                                           
                                                                   Subject 
             08/22/2006 10:27          system version                      
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




How do I get our system version?

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.