Re: Using COBOL for CGI Programming

["Niels Liisberg" <liisberg@xxxxxxxxxxxxx>]

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.