Re: Using COBOL for CGI Programming

When you compiled the program, did you specify the library QZBHCGI is in or did you use *LIBL? If you used *LIBL, you need to make sure that the library it resides in (should be QHTTPSVR) is in the CGI worker job's library list. In this one case, it is probably a good idea to hard code the library name when you compile your CGI program.

Matt

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Rich Loeber
Sent: Wednesday, September 24, 2008 1:58 PM
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Using COBOL for CGI Programming

Matt,

It is set to *PUBLIC *USE.

Rich

--------------------------------------------------------------------------

Haas, Matt (CL Tech Sv) wrote:

Did you check the authority on QZBHCGI to make sure that QTMHHTP1 can use it?

Matt

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Rich Loeber
Sent: Wednesday, September 24, 2008 1:43 PM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] Using COBOL for CGI Programming

I've been playing with using COBOL to develop a CGI application, but I
keep hitting a stone wall. I have a simple test program to create a
"Hello World" scenario and by all indications it should be working. But,
when I run it, I get the following joblog entries in the Apache server
job:

MCH0601 Escape 40 09/24/08 13:31:07.277816
QZHBCGI CGILIB *STMT QZHBCGI CGILIB *STMT
From user . . . . . . . . . :
QTMHHTP1
From module . . . . . . . . :
QZHBCGI
From procedure . . . . . . :
QtmhWrStout
Statement . . . . . . . . . :
81
To module . . . . . . . . . :
QZHBCGI
To procedure . . . . . . . :
QtmhWrStout
Statement . . . . . . . . . :
81
Message . . . . : Space offset
X'0006D000' or X'0000000000000000' is outside
current limit for object APACHEDFT
QTMHHTTP 366722.
Cause . . . . . : A program tried
to set a space pointer or use storage
outside a space, or tried to use an
unallocated page in teraspace. The space
class is X'03'. The space class
designates the type of space: 00-primary
associated space (includes space
objects). 01-secondary associated space 0.
02-implicit process space for
automatic storage. 03-implicit process space
for static storage in activation
group mark X'00000015'. 04-implicit process
space for heap identifier
X'00000000' in activation group mark X'00000015'.
05-constant space. 06-space for
handle-based heap identifier X'00000000'.
07-teraspace offset
X'0000000000000000'. 08-teraspace for OS/400 PASE memory
address X'0000000000000000'. Offset
X'0006D000' only applies to storage
outside teraspace.
X'8000000000000000D03CBE5648001000' is a pointer to the
teraspace page or the start of the
implicit process space for the

allocation.
CPI93CA Information 20 09/24/08 13:31:07.343624
QPDLOGER QSYS 0252 QZHBCGI CGILIB *STMT
From user . . . . . . . . . :
QTMHHTP1
To module . . . . . . . . . :
QZHBCGI
To procedure . . . . . . . :
qzhbcgi_ExceptionHandler__FP21_INTRPT_Hndlr_Pa

rms_T
Statement . . . . . . . . . :
41
Message . . . . : Suspected program
QZHBCGI not found.
Cause . . . . . : The suspected
program QZHBCGI was not found. The reported
error was logged, with the
reporting program specified as the suspected
program. Recovery . . . : Change
the suspected program name to an
existing program
name.
CPF2105 Information 40 09/24/08 13:31:07.428600
QPDSERR QSYS 0BA4 QPDLOGER QSYS 008A
From user . . . . . . . . . :
QTMHHTP1
Message . . . . : Object QZHBCGI in
*LIBL type *PGM not found.
Cause . . . . . : No object was
found for the name or type specified.
Recovery . . . : Specify the
correct name or type of the object. Then try
the request
again.

The QZHBCGI program is not a *PGM object but rather a *SRVPGM object and
it is, in fact, in the correct library. The program has been successfully
bound with this program reference.

I've searched the archives and Google and see some hints at several things
that this might be, but all attempts to resolve this have failed.

Has anyone successfully created a COBOL CGI program? And, what's your
secret? All I'm doing is issuing a procedure call to the standard output
routine.

Rich Loeber
Kisco Information Systems
http://www.kisco.com

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