Re: Using COBOL for CGI Programming

Hi Rich (Long time no see :)

It looks like a signature violation to me

This types of errors comes when your client code access a wrong procedure in
the service program since this is done by vectors and not by names.


Ensure that the signature is the same in your Cobol program and the exported
signature from QZHBCGI.

In my case it is D8E3D4C8C3C7C96DF0F0F240 .... in both cases...

I suggest that you create the program in two steps to ensure right binding:

CRTCBLMOD
CRTPGM .. where you bind to the QZHBCGI and set the:

Allow *SRVPGM library update . . *YES *YES, *NO


Hope this will do the trick


Best regards


Niels Liisberg
IceBreak Chief SW Architect

System & Metode Technologies
Håndværkersvinget 8, DK-2970 Hørsholm
Phone: +45 70 20 36 10
Fax: +45 70 20 30 11
Direct: +45 45 177 055
Mobile: +45 31 158 861
E-mail: nli@xxxxxxxxxxxxxxxxx
Web: www.system-method.com and www.Icebreak.org



-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Steve Richter
Sent: 24. september 2008 21:36
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Using COBOL for CGI Programming

cobol does not map parameters like RPG does. make sure data types and
lengths match with the program being called.


On Wed, Sep 24, 2008 at 2:56 PM, Haas, Matt (CL Tech Sv)
<matt.haas@xxxxxxxxxxx> wrote:

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.