[WEB400] Re: CGI-programming.....

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

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.