Everything you are all saying is correct, but the System Value QPRCFEAT gives you a hybrid of what the processor and the interactive feature is. It's not well documented, and became much harder to use once IBM gave you variable interactive in the model 7xx line, but it something that anyone can get and read. (i.e.: no programming, no special authority). There's a chart in my "System Values" pitch that I do for COMMON. Al Al Barsa, Jr. Barsa Consulting Group, LLC 400>390 914-251-1234 914-251-9406 fax http://www.barsaconsulting.com http://www.taatool.com Vern Hamberg <vhamberg@centerf ieldtechnology.co To m> Midrange Systems Technical Sent by: Discussion midrange-l-bounce <midrange-l@xxxxxxxxxxxx> s@xxxxxxxxxxxx cc Subject 03/30/2004 09:37 Re: Retrieving Interactive Feature AM Code Please respond to Midrange Systems Technical Discussion <midrange-l@midra nge.com> I think it's the type of Type-Model - ours is 1517-001, so it's interactive feature 1517. You can get it programatically with the MATMATR API (actually a sufraced MI instruction). To get the actual limit, you might look at the MATRMD (Materialize resource management data). There are options (x01 and x1E, IIRC) that will give you the interactive limit. Take a look at <http://publib.boulder.ibm.com/iseries/v5r1/ic2924/tstudio/tech_ref/mi/> for information. C includes are located in QSYSINC/MIH. These are MI instructions that IBM has made available to HLLs. You can use them in RPG as well as C - just need to set up data structures to match. They are read-only - no danger to your system. You are not programming IN MI by using these instructions, rather, you are using MI functions in a high-level language, just as any other API. Actually, there is a version of this you can run in CLLE - it uses pointers to both variables, so CL can call it. Here follows a little code to do it. The size of the &Data variable is determined from information at the above site, as well as the C include. PGM DCL VAR(&DATA) TYPE(*CHAR) LEN(2616) DCL VAR(&OPTION) TYPE(*CHAR) LEN(2) VALUE(X'012C') DCL VAR(&PROCFEAT) TYPE(*CHAR) LEN(4) DCL VAR(&INTFEAT) TYPE(*CHAR) LEN(4) CALLPRC PRC('_MATMATR1') PARM(&DATA &OPTION) CHGVAR VAR(&PROCFEAT) VALUE(%SST(&DATA 2609 4)) CHGVAR VAR(&INTFEAT) VALUE(%SST(&DATA 2613 4)) ENDPGM HTH Vern At 09:41 PM 3/29/2004 -0600, you wrote: >Is there a way to retrieve the Interactive Feature Code? >I know I can get the Processor Feature code from a system value, but I would >also like to find the Interactive Feature code. >If I do a DSPHDWRSC (*PRC), how do I determine the interactive feature code? > >Thanks, >Bob _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.