Re: Retrieving Interactive Feature Code

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.