You could use DSPECS Defines to keep out the unwanted pr. I don't keep all of my pr in one copy book however, I do use dspec defines to include what I want in the programs. Such as...
In the copy book I have...
* first make sure that a second copy isn't being done. If already defined force end of file.
/if defined(BEFEMAIL)
/eof
/endif
/define BEFEMAIL
/if defined(Emails)
D SetupEmail pr ExtPgm('BEFCCRTMSU')
D pSetupMode 1 const
D SendEmail pr ExtPgm('BEFCCRTM')
D pSendCono 3 const
D pSendTempl 10 const
/endif
Then in the program
/define Emails
/copy copybook
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry C. Adams
Sent: Thursday, June 30, 2011 10:45 AM
To: 'RPG programming on the IBM i / System i'
Subject: RE: Copybooking PRs WasRE: Impossible to even think about rewriting in RPG
I, too, keep a separate /copybook for each prototype external to the
program. But, even if the PR's are all in one /copybook, the program only
cares about those that it needs/uses. I used a package at my last place of
employment that kept all prototypes in a single /copybook; that way all I
had to do was code a single /copy statement; when I wanted to use a
function, it was available.
For a simple example, let's say that the copybook (Functions) included
prototypes for FunctionA, FunctionB, and FunctionC. All I have to code in
the D-specs is D/copy Functions. If I only use FunctionC in Calcs, the
other copied prototypes are superfluous but not a problem (except that they
are included in the compilation listing, which is a clutter).
I have often considered creating nested copybooks with similar functions in
each. Just never got around to it.
Jerry C. Adams
IBM i Programmer/Analyst
There will be a procession next Sunday afternoon in the grounds of the
Monastery; but if it rains in the afternoon, the procession will take place
in the morning. - Announcement read to a church congregation
--
A&K Wholesale
Murfreesboro, TN
615-867-5070
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Kurt Anderson
Sent: Thursday, June 30, 2011 9:11 AM
To: RPG programming on the IBM i / System i
Subject: Copybooking PRs WasRE: Impossible to even think about rewriting in
RPG
In this list and in presentations I often hear about people putting _all_ of
their prototypes into _one_ copybook. This has always boggled my mind and I
feel like maybe there's something I'm not grasping.
Like Bryce, we have a special source member for copybooks (we make these
members end in a Y - C was taken for CLs). Each Service Program of ours has
its own copybook to share its exported procedure prototypes as well as any
Data Structure templates, global variables or constants required by the
caller or service program.
I can't imagine putting all of that into one copybook. It seems like a step
toward the monolithic pain in the a$$. I'd imagine cleanup of it would be a
pain as well.
Thoughts?
Kurt Anderson
Sr. Programmer/Analyst
CustomCall Data Systems
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bryce Martin
Sent: Thursday, June 30, 2011 8:04 AM
To: RPG programming on the IBM i / System i
Subject: Re: Impossible to even think about rewriting in RPG
John,
I know it seems a bit scattered, but I put all of my PR's in source members
in a source file called QCOPYSRC. So anytime I need a prototype for a
service program or regular program I just do...
/copy QCOPYSRC,PROGCP
So instead of suffixing with an R or P or whatever you use in the program
name I'll suffix my copy members with CP. So there isn't really much to
think about. That will then make those available to call. Once the
organization is set up and you get your thinking to line up with the new
methods and processes it becomes second nature and, in my experience, is
much faster and more organized.
Thanks
Bryce Martin
Programmer/Analyst I
570-546-4777
John Yeung <gallium.arsenide@xxxxxxxxx> Sent by:
rpg400-l-bounces@xxxxxxxxxxxx
06/29/2011 10:11 PM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
To
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
Re: Impossible to even think about rewriting in RPG
Barbara,
I appreciate your patience and professionalism. Despite my
blathering, you still make a genuine, nonjudgmental effort to reach
out. I'll look into it more when I get a chance. I've always gotten
an icky feeling with /copy, but I suppose it's no worse than
#include-ing C header files. (Not that I'm too happy with #include.)
It's yet another place where the program is scattered about, another
piece to maintain. We'll see how it goes.
John
--
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 message (including any attachments) is intended only for the use of
the individual or entity to which it is addressed and may contain
information that is non-public, proprietary, privileged, confidential, and
exempt from disclosure under applicable law. If you are not the intended
recipient, you are hereby notified that any use, dissemination,
distribution, or copying of this communication is strictly prohibited. If
you have received this communication in error, please notify us and destroy
this message immediately. ---
--
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.
________________________________
Notice from Bob Evans Farms, Inc: This e-mail message, including any attachments, may contain confidential information that is intended only for the person or entity to which it is addressed. Any unauthorized review, use, disclosure or distribution is strictly prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message and any attachments.
midrange.com
