|
LOL, I never even thought to check and sure enough QData is not used. And thanks for the heads up on QUSEC. AND I finally found this little page on the Error DS: http://publib.boulder.ibm.com/iseries/v5r1/ic2924/index.htm?info/apis/error.htm Which answers my problem there. Now all I need is time to work on it... Joel http://www.rpgnext.com On Tue, 2003-10-28 at 16:55, Bruce Vining wrote: > > > If you install option 13 (System Openness Includes) of OS/400 you will get > the QSYSINC library and QRPGLESRC/QUSEC include. > > This however is NOT going to fix all of your problems... The example is > making a (bad) assumption -- namely that the last data structure in QUSEC > is QUSEC, that it ends at byte 16, and that they can then append Qdata to > it starting at byte 17. Several releases back a new data structure was > added (QUSC0200) to the QUSEC include and Qdata is now going to be appended > to this structure and not the intended one (if you use this approach). > > Is Qdata actually used in the sample program? > > > > > > Tom Daly > > <Tdaly@sddsystems. To: "'RPG programming > on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> > com> cc: > > Sent by: Subject: RE: Setting up an > email message > rpg400-l-bounces@m > > idrange.com > > > > > > 10/28/2003 09:52 > > AM > > Please respond to > > RPG programming on > > the AS400 / > > iSeries > > > > > > > > > > > > | My biggest problem > | right now is that the example I found uses the following > | /copy for the > | API data structure error call: > | > | * copy error structure from QSYSINC > | /copy qsysinc/qrpglesrc,qusec > | d Qdata 17 216 > | * set pointer to Error structure > | d pErr s * Inz(%addr(QUSEC)) > | > | I get an error because it cannot find the /copy, and I > | haven't been able > | to find the DS description at the API website > > > > You can find QUSEC in QSYSINC/H but you will have to convert it from C to > RPG. > > typedef struct Qus_EC > { > int Bytes_Provided; > int Bytes_Available; > char Exception_Id[7]; > char Reserved; > /*char Exception_Data[];*/ /* Varying length */ > } Qus_EC_t; > > > > This could probably be improved upon but I've gotten by with this: > > D QUSEC ds > > D BytesProv 10i 0 inz(%size(qusec)) > D BytesAvail 10i 0 inz(0) > D ErrorID 7 > > > > > HTH > Tom Daly > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > > > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l.
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
