RE: Mixing GET and POST Methods

[Andrew.Lutz@xxxxxxxxxx]

Chris,

Like this  :o)  ?

  *
  * Prototype for get environment API
 D qGetEnv         PR                  EXTPROC('QtmhGetEnv')
 D  prEnvRec                   3072    OPTIONS(*VARSIZE)
 D  prEnvLen                           LIKE(StdInt)
 D  prEnvAvl                           LIKE(StdInt)
 D  prEnvName                    64    OPTIONS(*VARSIZE)
 D  prNameLen                          LIKE(StdInt)
 D  prErErrDS                          LIKE(ErErrDS)

   *
 P pGetEnv         B                   EXPORT
  *
 D pGetEnv         PI
 D  envrec                     3072
 D  envlen                             LIKE(StdInt)
 D  envname                      64
  *
 D envreclen       S                   LIKE(StdInt) INZ(%SIZE(envrec))
 D envnamelen      S                   LIKE(StdInt)

*____________________________________________________________________________________________*


 C                   EVAL      envnamelen = %LEN(%TRIM(envname))
 C                   CALLP     qGetEnv( EnvRec : EnvRecLen : EnvLen
 C                                      : EnvName : EnvNameLen : ErErrDs )

*____________________________________________________________________________________________*


 P pGetEnv         E
  *




                                                                                
                                           
                    "Christopher A.                                             
                                           
                    Libby"                       To:     <WEB400@midrange.com>  
                                           
                    <clibby@mainepublicse        cc:                            
                                           
                    rvice.com>                   Subject:     RE: Mixing GET 
and POST Methods                              
                    Sent by:                                                    
                                           
                    owner-web400@midrange                                       
                                           
                    .com                                                        
                                           
                                                                                
                                           
                                                                                
                                           
                    07/30/2001 12:13 PM                                         
                                           
                    Please respond to                                           
                                           
                    WEB400                                                      
                                           
                                                                                
                                           
                                                                                
                                           




> -----Original Message-----
> From: owner-web400@midrange.com [mailto:owner-web400@midrange.com]On
> Behalf Of Andrew.Lutz@abbott.com
> Sent: Monday, July 30, 2001 9:13 AM
> To: WEB400@midrange.com
> Subject: Re: Mixing GET and POST Methods
>
> Mel,
>
> Instead of making everyone think that the 'only' way is with
> CGIDEV2 why don't
> you tell them how this is done
>
> i.e. Use the 'QtmhGetEnv' API with 'REQUEST_METHOD'.  This will tell you
> whether the request was GET or POST
>
> it's really not rocket science.........
>

No, not rocket science, but I prefer my API's wrapped. :>

-Chris

+---
| This is the WEB400 Mailing List!
| To submit a new message, send your mail to WEB400@midrange.com.
| To subscribe to this list send email to WEB400-SUB@midrange.com.
| To unsubscribe from this list send email to WEB400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---




+---
| This is the WEB400 Mailing List!
| To submit a new message, send your mail to WEB400@midrange.com.
| To subscribe to this list send email to WEB400-SUB@midrange.com.
| To unsubscribe from this list send email to WEB400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---