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