RE: Mixing Subroutines & Sub-Procedures.

Ya know....You shouldn't take it personally. <g>

The thing that's interesting to me is that he knows enough about
procedures to turn them into subroutines.  Just because RPGIV has been
around for ten years doesn't mean you have to use it.

Some folks do insane things with RPGIV.  One of the two other people in
my shop who uses any ILE features prefers not to use binding
directories.  He has complicated programs that use several service
programs that are almost impossible for anyone else to compile and bind
without careful research.  He's also in love with procedure pointers and
has huge blocks of code enclosed in conditional compilation directives.
Procedure pointers and conditional compilation directives are good
things, but.... 

<><><>-----Original Message-----
<><><>From: rpg400-l-bounces@xxxxxxxxxxxx
<><><>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
<><><>Sent: Wednesday, August 24, 2005 6:47 AM
<><><>To: RPG programming on the AS400 / iSeries
<><><>Subject: RE: Mixing Subroutines & Sub-Procedures.
<><><>
<><><>In the very same program that I had the do loop I started
<><><>adding subprocedures.  The fellow who wrote the original
<><><>program will never use a subprocedure and promptly takes
<><><>them out of code that I modify for him.
<><><>(Jon, he was the one who ground his own coffee beans for
<><><>you when you came onsite to teach us RPGLE.)  Now, I want
<><><>to play along, and use his subroutines but I can't
<><><>because I use subprocedures.  So, I end up putting most
<><><>of the guts of his subroutine into a subprocedure.
<><><>
<><><>Now, for another example of why I prefer subprocedures
<><><>instead of subroutines.  In his code I see a lot of (must
<><><>use MOVE instead of EVAL to thwart any attempts to
<><><>convert to free form):
<><><>C         MOVE WRKVR1       SUBVR1
<><><>C         MOVE WRKVR2       SUBVR2
<><><>C         MOVE WRKVR3       SUBVR3
<><><>C         MOVE WRKVR4       SUBVR4
<><><>C         EXSR $SUBR
<><><>C         MOVE SUBVR4       WRKVR4
<><><>Avoiding this crud is why we have prototypes, CONST, etc.
<><><>
<><><>
<><><>Rob Berendt
<><><>--
<><><>Group Dekko Services, LLC
<><><>Dept 01.073
<><><>PO Box 2000
<><><>Dock 108
<><><>6928N 400E
<><><>Kendallville, IN 46755
<><><>http://www.dekko.com
<><><>
>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************