RE: CGI-programming.....

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Your parameter definitions are not complete. To fix your specific problem,
add the OPTIONS(*VARSIZE) keyword to the last parameter.
Overall however, you should consider the following prototype for QtmhGetEnv
instead:

DAPIGetEnv        PR                  extproc('QtmhGetEnv')
D                            32767A   OPTIONS(*VARSIZE)
D                               10i 0 Const
D                               10i 0
D                               30A   Const OPTIONS(*VARSIZE)
D                               10i 0 Const
D                               16A   OPTIONS(*VARSIZE)

-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Henk Schipper
Sent: Thursday, July 29, 2004 10:12 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: CGI-programming.....

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 RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.