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

["Brad Stone" <brad@xxxxxxxxxxxx>]

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