|
I agree... The EXTPGM needs to be removed. Make sure that the PR and PI names match the name of your source. I have never used the EXTPGM when defining the parms of a program. Michael Schutte "Bob Cozzi" <cozzi@xxxxxxxxx> Sent by: To rpg400-l-bounces@ "'RPG programming on the AS400 / midrange.com iSeries'" <rpg400-l@xxxxxxxxxxxx> cc 05/04/2006 02:29 Subject PM RE: *Entry to /Free problem Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> I'll say it again. Remove the EXTPGM keyword and it will work. -Bob Cozzi www.RPGxTools.com RPG xTools - Enjoy programming again. -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles Sent: Thursday, May 04, 2006 1:13 PM To: RPG programming on the AS400 / iSeries Subject: RE: *Entry to /Free problem No they don't. They can be anything, they just have to match. I thought the EXTPGM was required, I always put it there, but I seem to recall Barbara correcting me at one point, however a quick search failed to turn up anything. So let's just say EXTPGM has to be there :-) Consider that usually the prototype is in a separate file, so other programs/procedures can use CALLP. Thus, they need to know the EXTPGM name in order to call the program. Matt, I think there is a problem someplace else in your code. Can you post the from the PR to the first few c-specs? Or maybe even from the start of the source to the first few c-specs. Thanks, Charles Wilt -- iSeries Systems Administrator / Developer Mitsubishi Electric Automotive America ph: 513-573-4343 fax: 513-398-1121 > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams > Sent: Thursday, May 04, 2006 1:31 PM > To: RPG programming on the AS400 / iSeries > Subject: Re: *Entry to /Free problem > > I think that's the wrong solution. The PR and PI names, I > think, have > to be the name of the program; at least I remember getting an > error once > when I wrote one where they didn't. > > > The problem is that the EXTPGM( ) keyword is not needed in the RPG IV > program for a Call / Parm interface. EXTPGM is used to qualify the > actual program that will be invoked with a CALLP, EVAL, or just a > function( ). > > > > * Jerry C. Adams > *IBM System i Programmer/Analyst > B&W Wholesale Distributors, Inc.* * > voice > 615.995.7024 > fax > 615.995.1201 > email > jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx> > > > > Matt.Haas@xxxxxxxxxxx wrote: > > >Change BANK101 to main in the PI and PR. > > > >Matt > > > >-----Original Message----- > >From: rpg400-l-bounces@xxxxxxxxxxxx > >[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Forbes, Vincent > >Sent: Thursday, May 04, 2006 1:17 PM > >To: rpg400-l@xxxxxxxxxxxx > >Subject: *Entry to /Free problem > > > >I am trying to convert to *Entry to /Free & I get a MCH3601. > Does the > >CLP have to be CLLE? Or am I missing something else? > > > >CLP > > DCL &HOLIDAY *CHAR LEN( 1) > > DCL &DCYMD *CHAR LEN( 8) > > DCL &STRDAT *CHAR LEN( 8) > > DCL &ENDDAT *CHAR LEN( 8) > > DCL &DATRNG *CHAR LEN( 80) > > > > CALL BANK101 (&HOLIDAY &DCYMD &STRDAT &ENDDAT > >&DATRNG) > > > >Only &DCYMD is set in the CLP. > > > >RPGLE > > > > // *ENTRY PLIST > > // PARM HOLDAY > 1 > > // PARM DCYMD 8 > > > > // PARM StrDat 8 > > > > // PARM EndDat 8 > > > > // PARM DateRange 80 > > > > > > dBANK101 pr extpgm('BANK101') > > d Holday 1A > > d Dcymd 8A > > d StrDat 8A > > d EndDat 8A > > d DateRange 80A > > > > //ENTRY > > dBANK101 pi > > d Holday 1A > > d Dcymd 8A > > d StrDat 8A > > d EndDat 8A > > d DateRange 80A > > > > HOLDAY = 'N'; // This works. > > > > DateRange = DCYMD; // Error occurs here. > > > >Dump > > > >DATERANGE CHAR(80) NOT ADDRESSABLE > > > >DCYMD CHAR(8) '20060203' > >'F2F0F0F6F0F2F0F3'X > >ENDDAT CHAR(8) NOT ADDRESSABLE > >HOLDAY CHAR(1) 'N' 'D5'X > >STRDAT CHAR(8) ' ' > >'4040404040404040'X > > > >Vincent Forbes > >CIBC > >Toronto, Ontario > > > > > > > > -- > This is the RPG programming on the AS400 / iSeries (RPG400-L) > mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
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.