|
Did you also change your prototype so that the error code is 56 bytes instead of 16? On Thu, 29 Jul 2004 22:55:24 +0200 "Henk Schipper" <hs@xxxxxxxxx> wrote: > I used this now as well.... Still the same error.... > I am getting nuts here..... > When I debug, it always just comes when I call > QtmhGetEnv. so it must be > there.... > > I hope you have better luck with my sources.... > > Thanks, > > Henk > > -----Original Message----- > From: web400-bounces@xxxxxxxxxxxx > [mailto:web400-bounces@xxxxxxxxxxxx]On > Behalf Of Brad Stone > Sent: donderdag 29 juli 2004 22:28 > To: Web Enabling the AS400 / iSeries > Subject: Re: [WEB400] CGI-programming..... > > > Here's what I use for error parms on every API I call.. > never done me wrong. I have it in some of my software > that > is running on V5R3 and so far things look good: > > D WPError DS > D EBytesP 1 4B 0 INZ(40) > D EBytesA 5 8B 0 > D EMsgID 9 15 > D EReserverd 16 16 > D EData 17 56 > > Also, if you aren't following the thread on the RPG list > (I > didn't see that you had moved it here) you may want to > consider checking out my eRPG Software Development Kit. > It > really makes all of this a lot easier, and like CGIDEV2 > takes advantage of templates. > > It's has a lighter footprint and testing shows it also > executes faster than CGIDEV2... right now it's in beta > testing and so far the users love it. A couple are > switching over from CGIDEV2 to use it.. > > www.erpgsdk.com > > Hope this helps. > > Brad > www.bvstools.com > > On Thu, 29 Jul 2004 22:08:55 +0200 > "Henk Schipper" <hs@xxxxxxxxx> wrote: > > QUSEC is not changed when i take a look at the V5R2 > > machine and compare it > > with the V5R3 machine. > > however, it seems like the parameters to QtmhGetEnv > might > > have changed (or i > > just have an old qusec source on the V5R3 machine. > > This is the source, maybe someone else can check it as > > well: > > > > QSYSINC/QRPGLESRC(QUSEC) > > DQUSEC DS > > D* Qus EC > > D QUSBPRV 1 4B 0 > > D* Bytes > > Provided > > D QUSBAVL 5 8B 0 > > D* Bytes > > Available > > D QUSEI 9 15 > > D* > Exception > > Id > > D QUSERVED 16 16 > > D* Reserved > > D*QUSED01 17 17 > > D* > > D* Varying length > > > > I initialise the first parameter always with the number > > 16. > > > > thanks, > > > > Henk. > > > > -----Original Message----- > > From: web400-bounces@xxxxxxxxxxxx > > [mailto:web400-bounces@xxxxxxxxxxxx]On > > Behalf Of michaelr_41@xxxxxxxxxxxxxx > > Sent: donderdag 29 juli 2004 17:21 > > To: Web Enabling the AS400 / iSeries > > Subject: Re: [WEB400] CGI-programming..... > > > > > > PASE shouldn't be involved. Has qusec changed between > > V5R2 and V5R3? I'm > > on a V5r2 system and can't check. > > > > On Thu, 29 Jul 2004 17:11:37 +0200, "Henk Schipper" > > <hs@xxxxxxxxx> said: > > > Hi All, > > > > > > I developed a tool for CGI with the apache webserver > > under V5R2M0. Worked > > > all fine. No troubles > > > I use the api QtmhGetEnv the following way: > > > * prototype for QtmhGetEnv API > > > DAPIGetEnv PR > > extproc('QtmhGetEnv') > > > D 32767 > > > D 10i 0 > > > D 10i 0 > > > D 30 > > > D 10i 0 > > > D 16 > > > * prototype for QtmhPutEnv API > > > DAPIPutEnv PR > > extproc('QtmhPutEnv') > > > D 32767 > > > D 10i 0 > > > D 16 > > > * variables used for QtmhGetEnv & QtmhPutEnv calls > > > DEnvRec S 32767 > > > DEnvRecLen S 10i 0 > > inz(%size(EnvRec)) > > > DEnvLen S 10i 0 > > > DEnvName S 30 > > > DEnvNameLen S 10i 0 > > > > > > and the calls: > > > C eval qusbprv = 16 > > > C* Retrieve the request_method > > > C ' ' checkr EnvName > EnvNameLen > > > C callp > > APIGetEnv(EnvRec:EnvRecLen:EnvLen: > > > C > > > EnvName:EnvNameLen:qusec) > > > > > > At the moment we upgraded from V5R2 to V5R3. Latest > > Cum, also the ptf > > > retrieved and applied which IBM requested: > > > 5722999 MF33122 (June 2004) > > > 5722SS1 SI12639 (June 2004) > > > > > > > > > I keep getting an error: Error code parameter not > valid > > > > > > What Am I doing wrong? Or is Pase at the moment a bit > > mixed up? > > > Any help is very appriciated... > > > > > > > > > Regards, > > > > > > Henk > > > _______________________________________________ > > > This is the Web Enabling the AS400 / iSeries (WEB400) > > mailing list > > > To post a message email: WEB400@xxxxxxxxxxxx > > > To subscribe, unsubscribe, or change list options, > > > visit: > > http://lists.midrange.com/mailman/listinfo/web400 > > > or email: WEB400-request@xxxxxxxxxxxx > > > Before posting, please take a moment to review the > > archives > > > at http://archive.midrange.com/web400. > > > > > -- > > > > michaelr_41@xxxxxxxxxxxxxx > > > > _______________________________________________ > > This is the Web Enabling the AS400 / iSeries (WEB400) > > mailing list > > To post a message email: WEB400@xxxxxxxxxxxx > > To subscribe, unsubscribe, or change list options, > > visit: > http://lists.midrange.com/mailman/listinfo/web400 > > or email: WEB400-request@xxxxxxxxxxxx > > Before posting, please take a moment to review the > > archives > > at http://archive.midrange.com/web400. > > > > > > _______________________________________________ > > This is the Web Enabling the AS400 / iSeries (WEB400) > > mailing list > > To post a message email: WEB400@xxxxxxxxxxxx > > To subscribe, unsubscribe, or change list options, > > visit: > http://lists.midrange.com/mailman/listinfo/web400 > > or email: WEB400-request@xxxxxxxxxxxx > > Before posting, please take a moment to review the > > archives > > at http://archive.midrange.com/web400. > > > > Bradley V. Stone > BVS.Tools > www.bvstools.com > _______________________________________________ > This is the Web Enabling the AS400 / iSeries (WEB400) > mailing list > To post a message email: WEB400@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/web400 > or email: WEB400-request@xxxxxxxxxxxx > Before posting, please take a moment to review the > archives > at http://archive.midrange.com/web400. > > > _______________________________________________ > This is the Web Enabling the AS400 / iSeries (WEB400) > mailing list > To post a message email: WEB400@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/web400 > or email: WEB400-request@xxxxxxxxxxxx > Before posting, please take a moment to review the > archives > at http://archive.midrange.com/web400. > Bradley V. Stone BVS.Tools www.bvstools.com
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.