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

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

[report a broken link by clicking here]