copy member for prototypes--was RE: Date procedure

I think there are several arguments for doing this.  I'm not going to say
any of them have merit, but...

1.  Shop standard forbids use of copy members. (Not as uncommon as you might
think.)

2.  Aid to maintenance by persons unfamiliar with RPGIV, especially
conditional compilation directives.

3.  Makes program easier to understand for some one who first sees it at 2AM
after receiving a support call.

4. A small program with sub procedures defined in the same source member as
the main program/module probably is better self contained.  


I'll bet someone else can come up with others.  Remember, I didn't say any
of them have any merit.  


> -----Original Message-----
> From: bmorris@ca.ibm.com [mailto:bmorris@ca.ibm.com]
> Sent: Thursday, December 07, 2000 12:25 PM
> To: RPG400-L@midrange.com
> Subject: Re: Date procedure
> 
> 
> 
> >Date: Thu, 7 Dec 2000 12:16:27 -0500
> >From: Contractor1@Parkdalemills.com
> >
> >
> *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
> ::::::::::::
> > * Procedure definition
> >
> *:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
> ::::::::::::
> >
> >DGetSunDt         PR              D
> >D #StrDate                        D   Const
> >D #Error                        64A
> >
> >PGetSunDt         B                   Export
> 
> Patrick,
> 
> Eek! it looks like you have the prototype in the same
> source file as the procedure.  Was that just for your
> mailing-list post, or is that how your code really is?
> 
> Barbara Morris
> 
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---