× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Elvis,

I don't have a 'M5 system at the moment, but we found QSZRTVPR returns
M0, *not* M5.

What we did was use QUSROBJD for *PRDLOD QSYS/QPZ0050. In the OBJD0300
format, the Licensed_Program field has something like '5722999V05R03M05'

--Dave

Elvis Budimlic wrote:
I am looking for someone running a system with modification level other than
0 to test a simple CL program for me.

I need to verify that for example on V5R3M5 system API actually returns M5
and not M0.



Here's the simple CL sample:



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 for any volunteers.



Elvis



Celebrating 11-Years of SQL Performance Excellence on IBM i5/OS and OS/400

<http://www.centerfieldtechnology.com> www.centerfieldtechnology.com




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.