RE: Plain old RPGLE program in /Free

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.