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

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Did you get my first reply with the "correct" prototype in it?
I may have been a reply to the other list you sent it to.

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

Hi Bob,

I had to smile when reading your answer.....
Yep, these i got out of the book. I'd written my own which worked very fine
under V5R2. Not anymore under V5R3. So, i searched an searched.... but also
these textbook samples did not work.
Have you tried the api under V5R3 (QtmhGetEnv)? Http-server for Apache.

If so, I hope you can point me in the right direction, because i cannot see
it anymore....

Thanks for your help...

Henk.

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]On
Behalf Of Bob Cozzi
Sent: donderdag 29 juli 2004 17:29
To: 'Web Enabling the AS400 / iSeries'
Subject: RE: [WEB400] CGI-programming.....


Did you create those prototypes or get them out of book? If you got them out
of a book... burn that book!  :)


-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Henk Schipper
Sent: Thursday, July 29, 2004 10:12 AM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] 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 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.


_______________________________________________
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.