Evaluate Weigh the pros and cons of technologies, products and projects you are considering.

What is your OS/400 release? Find out now

You can find out about your iSeries release in keying in just one simple command. Key in the following CL source and compile it, and then create a command to run the CL program.

You can find out about your iSeries release in keying in just one simple command. Key in the following CL source and compile it, and then create a command to run the CL program.

 
  
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     

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: Tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Read this Search400.com Featured Topic: Monitoring your iSeries system .

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.


Dig Deeper on iSeries system performance and monitoring

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close