|
None of these suggestions have worked. I believe that it must have something to do with CL parm passing because this method works fine between RPGLE programs. \Vincent -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams Sent: May 4, 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( ). >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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.