Thanks Bryan!

Charles

On Thu, Sep 25, 2008 at 10:06 AM, bryan dietz <bdietz400@xxxxxxxxx> wrote:
Error in program. Cut/paste hosed it up


DCL &PRDINFO *CHAR 27 VALUE('*OPSYS#*CUR##0000*CODE####')

replace # with a space


THIS SYSTEM IS AT RELEASE V6R1M0





On Thu, Sep 25, 2008 at 9:48 AM, bryan dietz <bdietz400@xxxxxxxxx> wrote:
I get:

Message ID . . . . . . : CPF0C1C Severity . . . . . . . : 30
Message type . . . . . : Escape
Date sent . . . . . . : 09/25/08 Time sent . . . . . . : 09:40:36

Message . . . . : Release level *CUR 0 not valid.
Cause . . . . . : The release level must be in the format of VxRyMz where x
and y are 0 through 9 and z is 0 through 9 or A through Z. If the format
requested is PRDR0700, the release level must be a valid operating system
release level, *PRV or *CUR.
Recovery . . . : Specify a valid release level and then try the request
again.


Bryan

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 is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





--

bryan




--

bryan
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



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].