Knowledge Base

MarkOneTools · Marco Riva

Reperimento livello sistema operativo

markonetoolsmarco rivablog
In questo articolo vi propongo diversi metodi per reperire il livello di sistema operativo. 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('RELEASE + = ' *CAT %SST(&RCVR 20 6)) ENDPGM AREA DATI QSS1MRI PGM DCL VAR(&REL) TYPE(*CHAR) LEN(6) RTVDTAARA QGPL/QSS1MRI &REL /* RTVDTAARA QUSRSYS/QSS1MRI &REL */ SNDPGMMSG MSGID(CPF9898) MSGF(Q …

Riservato agli iscritti

Per leggere l'articolo completo serve un account Faq400. È gratis, e con lo stesso account fai domande a Willi e leggi tutto l'archivio.

Prova a chiederlo a Willi

Willi risponde usando questo articolo e gli altri contenuti di Faq400, e ti dice da dove prende ogni frase. Serve un account: è gratis.

Chi legge questo, legge anche