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