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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.