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