× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.