× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: QCLSRC, QRPGSRC, etc... best practice?
  • From: Buck Calabro <kc2hiz@xxxxxxxxx>
  • Date: Mon, 29 Oct 2018 14:10:15 -0400
  • Autocrypt: addr=kc2hiz@xxxxxxxxx; keydata= xsDiBEcbaT4RBADqmM9OgXil65pjrxclJpxuAF6vraI3kkmJbEHb5ElL7EquHE3QDuFqFgIB 4NZLHDbVAh0AD5exAX+r+xg//UvtBc2k34HROnCpWTMnIOaSVhhVjpYEbZGLz6wfrRpu4Qyn 45iaKT4F0qcHo+0LrGQPef3xrFkUhxURgzY5zgo6+wCg/XjYJ155witPWB2CbNf6RAm9QT0D /jSp6YhvE3xPE12aBuRYM678JTbaQfuYv4HUfug1Wz/0zH5btfEihWVN4wbKaoQ/H/29v2TP /Lyh8XTVd3Z0rz4iaSD5fGicn81WPANBeIepLB8vpfEik6UhHpN1DJkz6Ryw2mgx8p53LhHV Ck4Jt0HP2TAl3f7QTXGFOiFzJwEqBACsHk/gFpKAHdv7n4vJoHqp0RNgOOyhnTThlulPilt6 tAaSe10FOrrugBuLMn7wXBANQ1ApmIb5yNjhYqPREj65OVv2MUbw8H2HnQs//Z6aodyR/kzU 2q2G9A/YFI1LL0m/gvaVbEj/wE0ybBgFkrcoEFeStkqS5HzLEFGUDFXhD80fQnVjayBDYWxh YnJvIDxrYzJoaXpAZ21haWwuY29tPsKFBBMRAgBFAhsDBgsJCAcDAgQVAggDBBYCAwECHgEC F4AFAkcbdMokGGh0dHA6Ly9rZXlzZXJ2ZXIudmVyaWRpcy5jb206MTEzNzEvAAoJEN7KcclH umuRfngAoNXU6AXqyTR8FRuoXKBGS4k7bPUEAJ912WKSkjpCt0axjrq6j22e5XgWzc7BTQRH G2k+EAgAnLXJ9hOqedgsIYM3LuomBBNN+7WTFSVaJ3Rqz8XVZtJvLL0bIRAvpVK9L9rYXlCR cPAm0YNK6H2DR7sQxWlxEH4mWB+jTCTALpcVq+Kpfbw5qDdn+9DVMS7tBOchtTlPSGgdKgn7 sTObra8cHtX/ddTB6OLzHeTXr4PZbUwVeQdIStdwMmozKBQvgjXWKi1GiuYbwYkCM/zJEUCs J36BIE4li9xohJ5O4iKC20YVckMJfZLbn1a2gVgn6Re8C5ezNewT0qM8ZDCUNENWAxsU/c9J UCFQ2QcMU+25b84D5yPxnEKna5U9Fz2JjRjWy5ZKZx2+WhZj0r2Tw6/kGb28AwADBgf/WBsn JSMHxyVfg+LKLHpdANwa9jdrKOt2WjJbWOiJ9l7SmqD0oi3c22FFxRXKsFfjCikLk9wbLZKH SqqnOePvMMHqNcqQTSv7+ARjxnBH4g6dhqg+zmebKpt8zV2awQzYSSm4YY6IqzkWmPNAN7BU zUtSAfL4UU2PljTnT9m443aVCTXMne5l90HQv/gdJ121owg5KuGE6LodTpoR4hn9nbdKWtfY pDNoykvR+GN5y335yF2Zp/j6QgdxWezjou5Y3/6PUZLEsJagWe9hAcKb1eiO2bmg+1bFYu0T g5Mvb27nqfFeHHFysC7a7sXtxp/pqNLNDcK6j/7Th6vF7/n98cJJBBgRAgAJBQJHG2k+AhsM AAoJEN7KcclHumuR9SgAnRuJWHon4GP58xbqCiFR/jSUfvRgAJ47KZ1UNoXgdftoePnbrZu6 W+poEw==
  • List-archive: <https://archive.midrange.com/rpg400-l/>
  • List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
  • List-id: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l.midrange.com>
  • List-post: <mailto:rpg400-l@midrange.com>
  • List-subscribe: <https://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
  • List-unsubscribe: <https://lists.midrange.com/mailman/options/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

On 10/29/2018 1:15 PM, Booth Martin wrote:

This leads to the issue I am having.  I was taught early on that
hard-wiring names into programs was a Red Flag and a promise for future
nightmares of odd errors.

Hard coding is indeed a red flag, but some are unavoidable with the
current implementation.

My own work practice is that I have a source library of QDEV which has
my source member models for everything from subfiles to message files to
sql to filters to  on&on.  Current projects are also in there.  One
advantage is that this guarantees all objects will have unique names
within the project.  Also, when a project is ready to be handed off
everything is all there in 1 place.  Forgetting pieces disappears as a
problem.   /COPY in that scenario is something I have never figured out,
but now it appears that prejudice must be buried with MOVE, GOTO, and
VARPG.

"... when specifying a physical file, the library, file, and member
name, can be in one of these formats:

|libraryname/filename,membername filename,membername membername |

 * A member name must be specified.
 * If a file name is not specified, QRPGLESRC is assumed. ..."

Well, you can skip the library; the compiler will find the source file
in the library list. You can specify the RPG source file as whatever you
like to use, for example

/copy myrpgsrc,mycpymbr
/copy qprotosrc,mycpymbr
/copy qcpysrc,mycpymbr

If you really want all the pieces/parts in a single source file named
mysrc, then you might have something like this

mysrc custsrv - Customer service program
mysrc custbnd - Customer srvpgm binder
mysrc custcpy - Customer srvpgm prototypes
mysrc custinqr - Customer inquiry main
mysrc custdsp - Customer inquiry dspf
mysrc custpf - Customer pf
mysrc custl1 - Customer lf by name
mysrc custmake - Build the Customer application from source

Inside mysrc custinqr, you'd have
/copy mysrc,custcpy
...
largeCustInd = isLargeCust(customerID);
...

So yes, there is some hard coding, but it's a minimum amount of yuck :-)

Scott, it appears that IBM's preferred choice is not QCPYSRC, either. 
My own first-impression preference would be a default of *FILE.

Pop in an RFE; that's an eminently useful suggestion. If you're in a
hurry, consider modifying one of the available preprocessors to do this
for you.

Anyway, that pretty well sums up my quandary.  It looks to me like using
the default probably works best, but I better listen to the people who
have already been there.
Not sure why the default has any particular value other than lots and
lots of people... er, default to it. :-/


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.