Ever wanted to find your IBM i OS Version in RPG?

Following on from this old blog about how to find the OS version from a CL Program (and when I say OLD I mean from back in 2009, when I was still young and crispy.. as opposed to how I am now; old, wrinkled and generally dustier). I decided to quickly convert the same code into RPGLE.

Here is the same code concept (minus all over the old “If the OS is a version from 2004 then do this” bits) written in RPGLE, as a sub-procedure — so you could copy this into a *SRVPGM if you wanted:

// +------------------------------------------------------------------------+
// | rtn_IBMi_Version - RPGLE version of os and Return to calling program   |
// |                   Use QSZRTVPR API to get the current OS release       |
// +------------------------------------------------------------------------+
dcl-proc rtn_IBMi_Version export;
  dcl-pi rtn_IBMi_Version char(10) end-pi;

  dcl-s XPFPRDINF char(27) inz('*OPSYS *CUR  0000*CODE     ');
  dcl-s SLICPRDINF char(27) inz('XXXX999*XXXX 0000*CODE     ');

  dcl-pr RtvPrdInfo extpgm('QSZRTVPR');
    *n char(1) options(*varsize); // RecVar
    *n int(10) const; // RecVarLen
    *n char(8) const; // FormatName
    *n like(XPFPRDINF) const options(*varsize); // ProdInfo
    *n char(32000) options(*varsize); // ErrCode
  end-pr;

  dcl-ds ErrorCode qualified;
    BytesProv int(10) inz(0);
    BytesAvail int(10) inz(0);
  end-ds;

  dcl-s Receiver char(109);

  dcl-s XPFVRM char(6);
  dcl-s XPFLVL char(3);

  dcl-s SLICVRM char(6);
  dcl-s SLICLVL char(3);

  dcl-s rtnvalue char(10);

  // Retrieve IBM OS/400, IBM i5/OS or IBM i (XPF) Release Information
  RtvPrdInfo ( Receiver:
               %len(Receiver):
               'PRDR0100':
               XPFPRDINF:
               ErrorCode);

  XPFVRM = %SUBST(Receiver:20:6);
  XPFLVL = %SUBST(Receiver:106:3);

  %SUBST(SLICPRDINF:1:4) = %SUBST(Receiver:13:4);
  %SUBST(SLICPRDINF:8:6) = '*ONLY ';

  // Retrieve IBM System Licensed Internal Code (SLIC) Release Information
  RtvPrdInfo ( Receiver:
               %len(Receiver):
               'PRDR0100':
               SLICPRDINF:
               ErrorCode);

  SLICVRM = %SUBST(Receiver:20:6);
  SLICLVL = %SUBST(Receiver:106:3);

  RtnValue = SLICVRM + SLICLVL;

  Return RtnValue;

end-proc;

PS: Yes, I know I could have written this in many other ways, but I tried to make this as readable as possible for newbie IBM-i Programmers.