× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.