Re: why would QtmhGetEnv return blanks for CGIConvMode?

[Steve Richter <stephenrichter@xxxxxxxxx>]

Kevin,

thanks for the help.

    convMode    = hGetEnvVlu( 'CGI_MODE' ) ;
    outputMode  = hGetEnvVlu( 'CGI_OUTPUT_MODE' ) ;
    asciiCcsid  = hGetEnvVlu( 'CGI_ASCII_CCSID' ) ;
    ebcdicCcsid = hGetEnvVlu( 'CGI_EBCDIC_CCSID' ) ;

**------------------------- QtmhGetEnv --------------------------------
D pr_QtmhGetEnv   pr                  ExtProc('QtmhGetEnv')
D  OutBuf                    32000a   options(*VarSize)
D  InBufSx                      10i 0 const
D  OutActualSx                  10i 0
D  InVarName                    64a   const options(*VarSize)
D  InVarNameLx                  10i 0 const
d  OutError                           likeds(refApiError)

** ---------------------- hGetEnvVlu -----------------------------
** hGetEnvVlu - get environment variable value
** sVlu = hGetEnvVlu( VarName ) ;
phGetEnvVlu       b                   export
dhGetEnvVlu       pi          1024a   varying
d InVarName                     80a   const varying

d Error           ds                  likeds(refApiError)
d                                     inz(*Likeds)
d buf             s           9999a
d ActDataLx       s             10i 0
 /free

     pr_QtmhGetEnv( buf: %size(buf): ActDataLx:
                    InVarName: %len(InVarName): Error ) ;
     if  ActDataLx > 1024 ;
       return x'01' ;
     else ;
       return  %subst( buf: 1: ActDataLx ) ;
     endif ;

 /end-free
p                 e

On Mon, Sep 17, 2012 at 9:46 AM, Kevin Turner
<kevin.turner@xxxxxxxxxxxxxxx>wrote:

> CGIConvMode is not an environment variable.  The environment variable is
> just called CGI_MODE.
>
> Although this is a link to V5R2 - they are pretty much unchanged I
> believe:
> http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzaie/rzaieenvvar.htm
>
>
> -----Original Message-----
> From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
> Behalf Of Steve Richter
> Sent: 17 September 2012 14:10
> To: Web Enabling the AS400 / iSeries
> Subject: [WEB400] why would QtmhGetEnv return blanks for CGIConvMode?
>
> the QtmhGetEnv api is returning blanks for the CGIConvMode environment
> variable in a CGI program.  I also get blanks when I use the getenv api.
> Why would that be?  CGIConvMode is specified in the httpd.conf file used
> for the instance of apache server.
>
> -- portion of the httpd.conf file
> ServerRoot /cgidev/conf
> DocumentRoot /cgidev/conf/hotdocs
> Listen 8014
> DefaultType text/html
> #  CGI
> CGIConvMode %%EBCDIC/EBCDIC%%
> # CGIConvMode BINARY
> ThreadsPerChild      53
> MaxCGIJobs          100
> StartCGI              2    QTMHHTP1
> Timeout             120
>
> -- my code that gets the environment variable:
>
>    convMode    = hGetEnvVlu( 'CGIConvMode' ) ;
>
> ** ---------------------- hGetEnvVlu -----------------------------
> ** hGetEnvVlu - get environment variable value
> ** sVlu = hGetEnvVlu( VarName ) ;
> dhGetEnvVlu       pr          1024a   varying
> d                                     extproc('hGetEnvVlu')
> d InVarName                     80a   const varying
>
> ** ---------------------- hGetEnvVlu -----------------------------
> ** hGetEnvVlu - get environment variable value
> ** sVlu = hGetEnvVlu( VarName ) ;
> phGetEnvVlu       b                   export
> dhGetEnvVlu       pi          1024a   varying
> d InVarName                     80a   const varying
>
> d Error           ds                  likeds(refApiError)
> d                                     inz(*Likeds)
> d buf             s           9999a
> d ActDataLx       s             10i 0
>  /free
>
>      pr_QtmhGetEnv( buf: %size(buf): ActDataLx:
>                     InVarName: %len(InVarName): Error ) ;
>      if  ActDataLx > 1024 ;
>        return x'01' ;
>      else ;
>        return  %subst( buf: 1: ActDataLx ) ;
>      endif ;
>
>  /end-free
> p                 e
> --
> 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.
>
>
> NOTICE: The information in this electronic mail transmission is intended
> by CoralTree Systems Ltd for the use of the named individuals or entity to
> which it is directed and may contain information that is privileged or
> otherwise confidential. If you have received this electronic mail
> transmission in error, please delete it from your system without copying or
> forwarding it, and notify the sender of the error by reply email or by
> telephone, so that the sender's address records can be corrected.
>
>
>
>
> --------------------------------------------------------------------------------
>
>
> CoralTree Systems Limited
> 25 Barnes Wallis Road
> Segensworth East, Fareham
> PO15 5TT
>
> Company Registration Number 5021022.
> Registered Office:
> 12-14 Carlton Place
> Southampton, UK
> SO15 2EA
> VAT Registration Number 834 1020 74.
> --
> 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.