Re: Free Format Procedures

In WDSc you can let it create the code, including the necessary /free and /end-free, automatically:
Source
New
Procedure

It will create both the prototype and the subprocedure stub.

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



Michael Ryan wrote:

Thanks...I didn't think there was (I've been coding /free for a long
time), but I'm always open to getting smarter. Plus, the program I'm
coding has a ton of procedures in it, so it became somewhat more
irritating this morning. Maybe cause it's Friday.

On 10/5/07, Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx> wrote:

From: Michael Ryan

Maybe there's a cool way and I just don't know, so I thought I would
ask. What's the technique for using /Free and /End-Free with free
format in procedures? Like this?

/End-Free
P doProcess B

D doProcess PI

/Free
<free format code>
/End-Free
P doProcess E

Or is there a better way? Thanks!

Nope, that's all you can do. Today, /free only includes C-specs; the P- and
D- specs must be fixed format, and since every procedure needs P- and D-
specs, that means you have a lot of /free and /end-free, especially if you
write lots of little routines.

One shortcut I use (and this is entirely a style thing; some people won't
like it because it's not "self-documenting" enough) is that the procedure
interface (D-spec type PI) and the procedure end (P-spec type E) don't need
to have the procedure name repeated.

/End-Free
P doProcess B

D PI

/Free
<free format code>
/End-Free
P E

Thus I only have the procedure name on two lines: the prototype and the
procedure begin. But that's just me.

Joe

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