|
midrange.com
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-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.
