.st0{fill:#FFFFFF;}

IBM i, AS400, iSeries

How to retrieve IBMi (iSeries AS400) operating system version in a CLP program 

 December 16, 2009

By  NickLitten

Share0
Tweet0
Share0

There are lots of way of checking the operating system version on your IBM i Server. On your command line type DSPSFWRSC and with F11 you will see the Software Version of all the products installed on your iSeries. You could also use the DSPPTF command to show the current release as well as the current Cumulative PTF Package (SF99540).

Or you could write a a little something and using an IBM API the CLP code is very simple

Code:
IBMi (iSeries AS400) operating system versionDCL VAR(&VERSION) TYPE(*CHAR) LEN(6) 
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(&APIERROR) TYPE(*CHAR) LEN(4) VALUE(X'00000000') 

CALL PGM(QSZRTVPR) PARM(&RCVR &RCVRLEN &FORMAT +
 &PRDINFO &APIERROR) 
 
CHGVAR VAR(&VERSION) VALUE(%SST(&RCVR 20 6)) 

SNDPGMMSG MSG('IBMi Version is' *bcat &RELEASE)

For example, on my little AS400e iSeries 270 eServer System i Power System running IBMi5.4 this will return a status message saying: » IBMi Version is V5R4M0

Share0
Tweet0
Share0
Author Image
Share0
Tweet0
Share0

NickLitten

IBM i Software Developer, Digital Dad, AS400 Anarchist, RPG Modernizer, Shameless Trekkie, Belligerent Nerd, Englishman Abroad and Passionate Eater of Cheese and Biscuits. Nick Litten Dot Com is a mixture of blog posts that can be sometimes serious, frequently playful and probably down-right pointless all in the space of a day. Enjoy your stay, feel free to comment and remember: If at first you don't succeed then skydiving probably isn't a hobby you should look into.

Nick Litten

related posts:

Example RPG Email Validation program – SQLRPGLE ILE

Read More

Doing Loop the Do Loops in RPG3 and RPG /Free

Read More

Serve JSON Web Services with RPG and YAJL

Read More

iThusiasm

Read More
{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}
__CONFIG_colors_palette__{"active_palette":0,"config":{"colors":{"cff50":{"name":"Main Accent","parent":-1},"a344d":{"name":"Accent Transparent","parent":"cff50"}},"gradients":[]},"palettes":[{"name":"Default","value":{"colors":{"cff50":{"val":"var(--tcb-skin-color-0)"},"a344d":{"val":"rgba(46, 138, 229, 0.85)","hsl_parent_dependency":{"h":210,"l":0.54,"s":0.78}}},"gradients":[]},"original":{"colors":{"cff50":{"val":"rgb(0, 178, 255)","hsl":{"h":198,"s":1,"l":0.5}},"a344d":{"val":"rgba(0, 178, 255, 0.85)","hsl_parent_dependency":{"h":198,"s":1,"l":0.5}}},"gradients":[]}}]}__CONFIG_colors_palette__

Get In Touch

I’m always looking for awesome input, feedback and critique!

HELPDESK / SUPPORT
>