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

["Bob Cozzi" <cozzi@xxxxxxxxx>]

And do you set QUSBAVL to Zero?

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Henk Schipper
Sent: Thursday, July 29, 2004 3:09 PM
To: Web Enabling the AS400 / iSeries
Subject: RE: [WEB400] CGI-programming.....

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.