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


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].