Re: CGI-programming.....

Brad, INZ(40) for eBytesP is incorrect.  inz(%size(WPError)) is always correct.

Mel Rothman, CGIDEV2 Author
Mel rothman, Inc.

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.