|
midrange.com
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 mailing list archive is Copyright 1997-2025 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.
