Visita il nuovo sito https://www.markonetools.it/reperimento-livello-sistema-operativo/
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
PGM
DCL VAR(&REL) TYPE(*CHAR) LEN(6)
RTVDTAARA QGPL/QSS1MRI &REL
/* RTVDTAARA QUSRSYS/QSS1MRI &REL */
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('RELEASE +
= ' *CAT &REL)
ENDPGM