The way to retrieve if from the system requires a little programming ...

a)      DSPHDWRSC TYPE(*PRC)  OUTPUT(*OUTFILE)  OUTFILE(X/Y)
b)      This command creates a file with a small set of records in it.
c)      I can't say at present which record the data is in but ...
d)      The field PRCIFD will contain the interactive feature code.

Kind regards,

Jeffrey E. Bull
OS400 Software Support Consultant

IBM Certified Systems Expert, iSeries Technical Solutions
IBM Certified Systems Specialist, AS/400 System Administration

*      +44 [0] 149 454 9533               swb.   +44 [0] 149 454 9400
mbl.     +44 [0] 786 750 4961               fax.    +44 [0] 149 454 9454
web.     http://www.itm-group.co.uk
 
ITM Group Ltd, Latimer Square, White Lion Road, Amersham, Buckinghamshire,
HP7 9JQ, United Kingdom


-----Original Message-----
From: Clare Holtham [mailto:Clare.Holtham@xxxxxxxxxxxxxx]
Sent: 30 March 2004 09:33
To: Midrange Systems Technical Discussion
Subject: Re: Retrieving Interactive Feature Code


Aha, I knew it was in there somewhere! Thanks Stefan,

Clare

----- Original Message -----
From: "Stefan Tageson" <Stefan.Tageson@xxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, March 30, 2004 8:49 AM
Subject: Re: Retrieving Interactive Feature Code


> > Is there a way to retrieve the Interactive Feature Code?
>
> By using the following API's the interactive feature # can be retrieved.
> Sorry for the length and the look of the code.
>
>
>       *===============================================================
>       * GetProcFeat                                                  +
>       *===============================================================
>      PGetProcFeat      B
>      DGetProcFeat      PI             1n
>       *---------------------------------------------------------------
>      D SysProc                        4A
>      D Proc                           4A
>      D Int                            4A
>      D wxdebug                        1N   const
>       *---------------------------------------------------------------
>
>  *---------------------------------------------------------------------
>       * Local work areas *
>  *---------------------------------------------------------------------
>
>      D*****************************************************************
>      D*Field definitions for RHRL0100 format.
>      D*****************************************************************
>      DQGYL0100         DS
>      D*                                             Qgy RHRL0100
>      D QGYBR                   1      4U 0
>      D*                                    number of bytes returned
>      D QGYBA                   5      8U 0
>      D*                                    number of bytes available
>      D QGYNBRRR                9     12U 0
>      D*                                    num of resources returned
>      D QGYREL                 13     16U 0
>      D*                                    length of resource entry
>      D Qvadsomhelst           17   2016a
>
>      DRESDTL           DS
>      D QGYCAT                  1      4U 0
>      D*                                    category
>      D QGYFL                   5      8U 0
>      D*                                    family level
>      D QGYLT                   9     12B 0
>      D*                                    LAN line type
>      D QGYNAME                13     22
>      D*                                    name
>      D QGYTYPE                23     26
>      D*                                    type
>      D QGYMODL                27     29
>      D*                                    model
>      D QGYSTAT                30     30
>      D*                                    status
>      D QGYSYS                 31     38
>      D*                                    system connected to
>      D QGYADDR                39     50
>      D*                                    LAN adapter address
>      D QGYDES                 51    100
>      D*                                    description
>      D QGYKIND               101    124
>      D*                                    resource kind
>
>      D*****************************************************************
>      D*Field definitions for RHRI0410 format.
>      D*****************************************************************
>      DRcvVar           DS
>      D QRHBRTN                 1      4B 0
>      D*                                             Bytes Returned
>      D QRHBAVL                 5      8B 0
>      D*                                             Bytes Available
>      D QRHSBUS                 9     12B 0
>      D*                                             System Bus number
>      D QRHSBOA                13     16B 0
>      D*                                             System Board number
>      D QRHSCAR                17     20B 0
>      D*                                             System Card number
>      D QRHSSRL                21     30a
>      D*                                             System serial number
>      D QRHPART                31     42
>      D*                                             Part number
>      D QRHFRAM                43     46a
>      D*                                             Frame id
>      D QRHCARP                47     51a
>      D*                                             Card position
>      D QRHSPRC                52     55a
>      D*                                             System processor
> feature code
>      D QRHPRC                 56     59a
>      D*                                             Processor feature code
>      D QRHPRCI                60     63a
>      D*                                             Interactive feature
> code
>
>      D ListFormat      S              8    INZ('RHRI0410')
>      D ListFormat2     S              8    INZ('RHRL0100')
>      D Resource        S             10    INZ('          ')
>      D RcvSiz          S             10i 0 INZ(%size(RCVVAR))
>      D RcvSiz2         S             10i 0 INZ(%size(QGYL0100))
>      D ResourceCat     S             10i 0 INZ(4)
>      D strpos          S             10i 0 INZ(1)
>      D DtlSiz          S             10i 0 INZ(%size(RESDTL))
>      D wxlog           S            256a
>
>       *===============================================================
>       * Error Information Data Structure                             +
>       *===============================================================
>       *Error Code
>      DQUSBN            DS
>       *                                             Qus EC
>      DQUSBNB                   1      4B 0          inz(%size(QUSBN))
>       *                                             Bytes Provided
>      DQUSBNC                   5      8B 0
>       *                                             Bytes Available
>      DQUSBND                   9     15
>       *                                             Exception Id
>      DQUSBNF                  16    256
>
>      C                   eval      wxlog      = *blanks
>
>      C                   CALL      'QGYRHRL'
>      C                   PARM                    QGYL0100
>      C                   PARM                    RcvSiz2
>      C                   PARM                    ListFormat2
>      C                   PARM                    ResourceCat
>      C                   PARM                    QUSBN
>
>      C                   if        QUSBNC > 0      error occured
>      C                   callp     SndDbgMsg( GetTime +
>      C                                       ' Error on QGYRHRI program '
> +
>      C                                       'call: ' +
>      C                                        QUSBND)
>      C                   return    *on
>      C                   endif
>
>      C                   if        QGYNBRRR > 0
>      C                   do        QGYNBRRR
>      C                   eval       %subst(RESDTL:1:DTLSIZ) =
>      C                              %subst(Qvadsomhelst:strpos:DTLSIZ)
>
>      C                   if        %subst(QGYKIND:17:8) =
>      C                             x'0000000000080000'
>      C                   eval      Resource = QGYNAME
>      C                   leave
>      C                   endif
>
>      C                   eval      StrPos = StrPos + QGYREL
>      C                   enddo
>      C                   endif
>
>      C                   CALL      'QGYRHRI'
>      C                   PARM                    RcvVar
>      C                   PARM                    RcvSiz
>      C                   PARM                    ListFormat
>      C                   PARM                    Resource
>      C                   PARM                    QUSBN
>
>      C                   if        QUSBNC > 0      error occured
>      C                   callp     SndDbgMsg( GetTime +
>      C                                       ' Error on QGYRHRI program '
> +
>      C                                       'call: ' +
>      C                                        QUSBND)
>      C                   return    *on
>      C                   endif
>
>      C                   if        wxdebug      debug
>      C                   callp     SndDbgMsg( GetTime +
>      C                                      ' System Proc#: ' +
>      C                                      %trim(QRHSPRC) + ' ' +
>      C                                      ' Processor#: ' +
>      C                                      %trim(QRHPRC) + ' ' +
>      C                                      ' Interactive#: ' +
>      C                                      %trim(QRHPRCI) + ' ' +
>      C                                      ' Serial#: ' + QRHSSRL +
>      C                                      ' system board: ' +
>      C                                      %trim(%editc(QRHSBOA:'Z')) )
>      C                   endif
>
>      C                   eval      SysProc = QRHSPRC
>      C                   eval      Proc    = QRHPRC
>      C                   eval      Int     = QRHPRCI
>
>      C                   return    *off
>      PGetProcFeat      E
>       *===============================================================
>
> Stefan Tageson
> Intentia Consulting Sverige AB
> Propellergatan 1, SE-211 19 Malmö, Sweden
> Phone: +46 (0)40 691 35 00
> Cell: +46 (0)733 913 813
> Fax: +46 (0)40 691 3900
> E-mail: stefan.tageson@xxxxxxxxxxx
>
> _______________________________________________
> 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.
>


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


________________________________________________________________________
This e-mail has been scanned for all viruses by ITM. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe, 
email marketing@xxxxxxxxxxxxxxx
ITM - Managing Communication and Information through technology
Company registration number - 3783433
________________________________________________________________________


DISCLAIMER

Any opinions expressed in this email are those of the
individual and not necessarily the Company. This email
and any files transmitted with it, including replies and
forwarded copies (which may contain alterations) 
subsequently transmitted from the Company, are 
confidential and solely for the use of the intended recipient. If you are not 
the intended recipient or the 
person responsible for delivering to the intended recipient, 
be advised that you have received this email in error and
 that any use is strictly prohibited.

If you have received this email in error please notify the IT
manager by telephone on +44 (0)870 871 2233 or via 
email to Administrator@xxxxxxxxxxxxxxx, including a copy
of this message. Please then delete this email and 
destroy any copies of it.

________________________________________________________________________This 
e-mail has been scanned for all viruses by ITM. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe, 
email marketing@xxxxxxxxxxxxxxx
ITM - Managing Communication and Information through technology
Company registration number - 
3783433________________________________________________________________________


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 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.