RE: Procedures are FUN!

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Joe,

You've finally caught up with what we've been doing since V3R2!  That's
great!!!

:)

Bob Cozzi
www.rpgiv.com/seminars



-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of Joe Pluta
Sent: Monday, October 14, 2002 11:18 AM
To: rpg400-l@midrange.com
Subject: Procedures are FUN!


The more I work with this stuff, the more fun I'm having.

For example, I've set up a procedure that formats an OVRDBF command.  I
want to execute that via QCMDEXC.  Using a couple of prototypes, I end
up with the following:

callp     Exec(OvrDbf(xcdds:DFDSL:DFDSF:DFDSM):128)

"Exec" is my prototype for QCMDEXC, while "OvrDbf" is my prototype to
format the OVRDBF command.  This is the way programming should be!  This
single line replaces 10 lines of code in my original program (two calls
to external
programs) and a couple of work variables.

Thanks again everybody on the compiler team - you're doing a great job.

Joe

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.