RE: Plain old RPGLE program in /Free

["Wilt, Charles" <WiltC@xxxxxxxxxx>]

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.