> 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


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.