|
midrange.com
You want to code this anyway:
D EBytesP 10I 0 INZ(%size(WpError))
Note the addition of the I data type
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Brad Stone
Sent: Thursday, July 29, 2004 4:41 PM
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Re: CGI-programming.....
Ahah! You're right... I've used that for so long, I
haven't looked back. I must have misinterpreted it...
Worst case scenario, some of the message gets cut off I
would assume.
Also, don't click that link if you're using Mozilla... IBM
sites really know how to hose it up good. :)
Brad
On Thu, 29 Jul 2004 16:11:55 -0500
Mel Rothman <mel@xxxxxxxxxxxxxx> wrote:
> Brad, INZ(40) for eBytesP is incorrect.
> inz(%size(WPError)) is always correct.
>
> Bytes provided is not the number of bytes provided for
> exception data. It is the size of the entire data
> structure, which, in WPerorr's case, is 56.
>
> For details, see IBM's documentation (especially the
> "Example: receiving the error code with the exception
> data"), at
>
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/index.htm?info/
apis/api.htm
>
> According to the Information Center, the QtmhGetEnv API's
> interface did not change from V5R2 to V5R3. I don't
> believe it has changed since it was introduced around
> V3R2 (CISC) and V3R6 or V3R7 (RISC).
>
>
> Mel Rothman, CGIDEV2 Author
> Mel rothman, Inc.
>
> Brad Stone wrote:
> >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
_______________________________________________
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.
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.
