×
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.
There is no V5R3M5 of *OPSYS. The V5R3M5 is a LIC (Licensed Internal
Code) release level only; same with the V5R4M5.
Try adding the following lines of code after the *OPSYS information
is retrieved:
CHGVAR (%sst(&PRDINFO 1 13)) /* Gen LIC Product name */ +
(%sst(&RCVR 13 4) *CAT '999' *CAT '*ONLY ')
CALL QSYS/QSZRTVPR /* Retrieve LIC Product Rls *ONLY */ +
PARM(&RCVR &RCVRLEN &FORMAT &PRDINFO &ERRCODE)
CHGVAR &RELEASE (%SST(&RCVR 20 6))
SNDPGMMSG MSG('RELEASE:' *BCAT &RELEASE) +
TOPGMQ(*EXT) TOMSGQ(*TOPGMQ)
Testing on my system: RELEASE: V5R4M5
Note: *CUR for Release Level gives V5R4M0 even though requesting
5722999 which IMO is questionable. I seem to recall only ever using
*ONLY for *OPSYS without problem, so just initializing to *ONLY versus
changing in the above CHGVAR should suffice.?
Regards, Chuck
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.
midrange.com
