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


  1.  Home
  2. WEB400
  3. March 2003

Re: Cobol CGI with the Call Statement

For every "CALL PROCEDURE" the module must be included on the CRTPGM command. Here is an example:

CRTPGM PGM(CGIINTRA/CGICLM05) MODULE(CGISRC/CGICLM05 + CGISRC/CGICBM05 TPS/FORMATEQ TPS/GETEQLOC + SOM/GETEXCHANG) BNDSRVPGM(QHTTPSVR/QZHBCGI) + ACTGRP(*NEW)

Thanx, PLA

Diane Nott wrote:

I have been having a little difficulty running the cobol CALL statement in a Cobol CGI program. If the statements are not used, the program compiles and works just fine. After adding the statements, the program errors out without giving me a good reason. Only after running Create Module and then issuing the command:

CRTPGM PGM(DIANE/CGIREGSUMM) MODULE(DIANE/CGIREGSUMM) BNDDIR(CGICBLDEV/TISRVPGM) ACTGRP(CGI) AUT(*USE) I get this error: Definition not found for symbol 'REGSUMM1'. Definition not found for symbol 'REGSUMM2'. Program CGIREGSUMM not created. Program CGIREGSUMM not created. Regsumm1 and regsumm2 are 2 cobol programs with 2 parameters. The command used in the main cgi program is:

CALL PROCEDURE 'REGSUMM1' USING WS-YEAR-1 WS-TERM-1.
CALL PROCEDURE 'REGSUMM2' USING WS-YEAR-2 WS-TERM-2.

I even tried using the Call statement the regular way without the Procedure in the command. Any suggestions?

Diane

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