How to check system version? Sometimes you really need it. There are some ways in CL command entry and some in program.
1. Check data area QSS1MRI
Data area QSS1MRI includes current version and a language number. It is in both QUSRSYS and QGPL.
Run command DSPDTAARA DTAARA(QUSRSYS/QSS1MRI) or DSPDTAARA DTAARA(QGPL/QSS1MRI), you then see it.
2. Run command DSPSFWRSC and then PF11.
3. Run command GO LICPGM, then OPT10, then PF11
4. Run command DSPPTF, then PF11
5. Check a spool file
Above is some methods you can check system version manually. Of course, you can check data areas in a program.
When checking system versions in a program, there are some other ways.
- Retrieve system version from object description
PGM
DCL VAR(&VRM ) TYPE(*CHAR) LEN( 9)
RTVOBJD OBJ(QSYS) OBJTYPE(*LIB) SYSLVL(&VRM)
ENDPGM
- Call API QSZRTVPR
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( +
‘System version is ‘ *CAT %SST(&RCVR 20 6))
ENDPGM