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

[Mel Rothman <melrothman@xxxxxxxx>]

QSZRTVPR (Retrieve Product Information) works well.  Here is a short CL
program that illustrates its use.

/* SEND A MESSAGE THAT DISPLAYS OS/400 RELEASE */                   
             PGM                                                    
             DCL        VAR(&RCVR) TYPE(*CHAR) LEN(128)             
             DCL        VAR(&RCVRLEN) TYPE(*CHAR) LEN(4) +          
                          VALUE(X'00000080')                        
             DCL        VAR(&FORMAT) TYPE(*CHAR) LEN(8) +           
                          VALUE('PRDR0100')                         
             DCL        VAR(&PRDINFO) TYPE(*CHAR) LEN(27) +         
                          VALUE('*OPSYS *CUR  0000*CODE     ')      
             DCL        VAR(&ERRCODE) TYPE(*CHAR) LEN(4) +          
                          VALUE(X'00000000')                        
             CALL       PGM(QSYS/QSZRTVPR) PARM(&RCVR &RCVRLEN +    
                          &FORMAT &PRDINFO &ERRCODE)                
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +              
                          MSGDTA('Release = ' *CAT %SST(&RCVR 20 6))
             ENDPGM                                                 

Mel Rothman


Leif Svalgaard wrote:
> 
> 
> > Easiest way I know of is to do:
> >
> > RTVOBJD OBJ(QSYS/QSYS) OBJTYPE(*LIB) SYSLVL(&SYSLVL)
> >
> > In theory, this is not the "correct" way to do it as there are API's
> 
> which one?
>
+---
| 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
+---