Re: Copybooking PRs (and searching the archives) -- RPG400-L

But the to and the your...flying into space...

On Sun, Jul 3, 2011 at 6:00 AM, Norm Dennis <nhdennis@xxxxxxxxxxx> wrote:

Michael, Michael, Michael ... "there grammar"?

... their grammar ;-)

Yes, Simon is definitely missed but at least lives on in the archives.

Norm Dennis

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Michael Ryan
Sent: Sunday, 3 July 2011 12:28 AM
To: RPG programming on the IBM i / System i
Subject: Re: Copybooking PRs (and searching the archives)

Well, you can't be to careful when your talking about there grammar.

On Sat, Jul 2, 2011 at 11:11 AM, Dennis Lovelady <iseries@xxxxxxxxxxxx>
wrote:

I found this, but it's from 2002 and is directed to a Mike, rather
than a Dave. He makes valid points here...

http://archive.midrange.com/rpg400-l/200204/msg00908.html

Gads, I miss Simon! A gem from that post that bears repetition:

Second. Your correct on this. I just copied this from an example I
found (not that I really understood it) so this was just a typo.

(The quality of English on this list is appalling "Your correct on this"
is syntactically incorrect. It should be "You're correct on this".
Jeez)

(yeah, I chose only that out that big post. Sue me. :)

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Millions long for immortality who do not know what to do with
themselves on a rainy Sunday afternoon."
-- Susan Ertz

I remember getting slammed by Simon for exposing this technique
(which I still use), maybe 4 years ago. I haven't been able to find
it in the archives. I notice you can no longer sort the archive
search results on time ascending. Also, when I click on next or
previous by author, I get a post written by someone else.

2011/7/1 Sam_L <lennon_s_j@xxxxxxxxxxx>:

Below is the technique I use, where there is only *one* source
member in QRPGLESRC, that of the service program, including prototype

and code.

No additional source member for the prototypes is needed.

I assume that the service program is fairly static after being
written and thus will be compiled infrequently, but will be bound
to other program more frequently.

So,those doing the compile and binding to other program do not have
to do anything, except code a /include pointing to the source of
the service program. Their compile will pull in just the
prototypes and ignore everything else, because the compiler directive

is not set.

If the service program has to be compiled, then you need a compiler
directive, but that is easy to set up with WDSC (Compile, Work with
Compile commands), or I suppose a user command in PDM. It is also
easy to set up with our source control system, which remembers how
the source should be compiled.

If anyone sees any drawbacks with this technique I'd like to know.

Sam

Sample stripped source of QRPGLESRC/SRV_DATE shown below.
Hopefully it will wrap correctly.

I use /include because there was a problem with the SQL
precompiler, though it is probably fixed by now.

/if defined (CompileSRV_DATE)
h nomain option(*NoDebugIo)
*=====================================================
* To use, include these lines in your program:
* H Bnddir('SRV_DATE')
* /include QRPGLESRC,SRV_DATE
/endif
*=== Prototypes for Exported SRV_DATE routines =======
* (This is copied into the user's code )
D MthName3 PR 3a
D InMth 2p 0 Const
D MthName PR 9a varying
D InMth 2p 0 Const
D GetDOW PR 1P 0
D InDate d Const DatFmt(*ISO)
D DayName PR 9a varying
D InDay 1p 0 Const
*=== End of Prototypes for Exported SRV_DATE routines
/if not defined (CompileSRV_DATE)
/eof
/endif

P MthName3 B export
D PI 3
D InMth 2p 0 Const
D wkMth s like(MthName3)
/free
monitor;
wkMth = G_MonthNames3(InMth);
on-error;
wkMth=%char(InMth);
endmon;
return wkMth;
/end-free
P MthName3 E

On 6/30/2011 11:22 AM, BButterworth@xxxxxxxxxxxxxx wrote:

Another option is that with the use of compiler directives, you
can

copy

the prototypes out of your module source without the use of an

additional

copybook member like so:

--
This is the RPG programming on the IBM i / System i (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 is the RPG programming on the IBM i / System i (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 is the RPG programming on the IBM i / System i (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 is the RPG programming on the IBM i / System i (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.

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1388 / Virus Database: 1516/3739 - Release Date: 07/02/11

--
This is the RPG programming on the IBM i / System i (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.