Re: Plain old RPGLE program in /Free

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

If the purpose of the prototype is to simply define the PLIST parameters 
for the current program, EXTPGM is not required on the 'PR' (prototype 
definition), though it won't break anything if it's there. 

If one is prototyping to make a callp to another program the EXTPGM 
keyword and value are required.  But Pete's example seemed to indicate 
that he is trying to define the parameters of this program's (MAIN's) 
PLIST.  The combination of the protoype ('PR') and interface ('PI') in 
the D-specs of the mainline are what do this.  The 'PI' spec line(s) in 
fact define the parameters that the program will use when it is called; 
the 'PR' field names are irrelevant (can even be blank), but the field 
attributes between the PR and PI must match.

On the other hand, if MAIN is a procedure internal to the program, the 
EXTPGM keyword is still not required.  In fact, would cause the program 
to (hopefully) not compile. 

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



Wilt, Charles wrote:
> Pete,
>
> You don't need DFTACTGRP(*NO).
>
> What you're missing is EXTPGM on the prototype.
>
>      D Main            PR                 extpgm('MYPGM')
>      D                                8A 
>
> Also, you don't want the P-spec, just the D-spec procedure interface.
>
>       *-----------------------------------------------------------
>       *  Begin Mainline
>       *    Note the following PI and it's corresponding prototype
>       *    replace the *ENTRY  PLIST specs
>       *-----------------------------------------------------------
>      D Main            PI
>      D   MyParm                      8A
>      C/free
>
> HTH,
> Charles
>
>
>   
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx 
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Pete Helgren
> > Sent: Monday, October 22, 2007 11:41 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Plain old RPGLE program in /Free
> >
> > I was feeling pretty comfortable with my transition from 
> > RPGIII to RPGLE and /free until I needed to write a program 
> > from scratch that wasn't using *ENTRY to pass parms to the 
> > program.  I must not understand the differences between the 
> > way RPGIII passed parameters and the way RPGLE operates.
> >
> > What I have been doing (cheating) was to have a short, 
> > initial non-free calculation section like this:
> >
> >      C     *ENTRY        PLIST
> >      C                   PARM                    MyParm
> >      C/free
> >
> > What I want to do is to do it "correctly".  So after poking 
> > around the Internet I thought I came up with the solution:
> >
> >      D Main            PR
> >      D                                8A
> >      D*********************************************************
> >      D*Main Procedure
> >      D*********************************************************
> >      P Main            B
> >      D                 PI
> >      D   MyParm                      8A
> >      C/free
> >  // Body of the program here
> >
> > It wouldn't compile until I used dftactgrp(*no) 
> > actgrp(*caller) on the H specs.
> >
> > Although it compiles, when I run it in debug mode, the 
> > program is invoked but "hangs" at the command line, it never 
> > progresses to the first statement of the program which is 
> > where I have my breakpoint set.
> >
> > So the question is:  What is the correct way to write a 
> > simple program in RPGLE that takes parameters?  What do I do 
> > with the *ENTRY PLIST method of passing parameters?  I could 
> > go back to using the *ENTRY PLIST approach but I'd like to 
> > use the "correct" way, if there is such a thing...
> >
> > Thanks,
> >
> > Pete Helgren
> >
> >
> >
> > --
> > 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 e-mail transmission contains information that is intended to be confidential and privileged.  If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful.  Please reply to the message immediately by informing the sender that the message was misdirected.  After replying, please delete and otherwise erase it and any attachments from your computer system.  Your assistance in correcting this error is appreciated.
>
>