[WEB400] Re: Cobol CGI with the Call Statement

[Patrick L Archibald <Patrick.Archibald@xxxxxxxxxxxxx>]

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.