Re: Retrieving Interactive Feature Code

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

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