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