Re: QSZRTCPR and 6.1

Strange I pulled that code out of the archives:
http://archive.midrange.com/midrange-l/200802/msg01624.html

I notice that I added an error when coping and pasting. But it
wouldn't have compiled...

Oh wait looks like some spaces are missing in the &PRDINFO

Make sure its 27 characters like so (x = space)
*OPSYSx*CURxx0000*CODExxxxx

PGM

DCL &RELEASE *CHAR 6
DCL &RCVR *CHAR 128
DCL &RCVRLEN *CHAR 4 VALUE(X'00000080')
DCL &FORMAT *CHAR 8 VALUE('PRDR0100')
DCL &PRDINFO *CHAR 27 VALUE('*OPSYS *CUR 0000*CODE ')
DCL &ERRCODE *CHAR 4 VALUE(X'00000000')

CALL QSYS/QSZRTVPR PARM(&RCVR &RCVRLEN &FORMAT &PRDINFO &ERRCODE)

CHGVAR &RELEASE (%SST(&RCVR 20 6))

SNDPGMMSG MSG('THIS SYSTEM IS AT RELEASE' |> &RELEASE)

ENDPGM







On Thu, Sep 25, 2008 at 9:37 AM, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

All,

Just curious what the QSZRTVPR api returns if your running IBM i 6.1?

Anybody out there know or can try the following:
PGM

DCL &RELEASE *CHAR 6
DCL &RCVR *CHAR 128
DCL &RCVRLEN *CHAR 4 VALUE(X'00000080')
DCL &FORMAT *CHAR 8 VALUE('PRDR0100')
DCL &PRDINFO *CHAR 27 VALUE('*OPSYS *CUR 0000*CODE ')
DCL &ERRCODE *CHAR 4 VALUE(X'00000000')

CALL QSYS/QSZRTVPR PARM(&RCVR &RCVRLEN &FORMAT &PRDINFO &ERRCODE) +
CHGVAR &RELEASE (%SST(&RCVR 20 6))

SNDPGMMSG MSG('THIS SYSTEM IS AT RELEASE' |> &RELEASE)

ENDPGM

Thanks!
Charles