RE: Mod 10 check digit calculation

Thanks Scott! You are, as usual, absolutely right in your recommendations.

Credit where the credit is due, this code was based on a code sample
published by Hans Boldt in 2003 on iSeries Network RPG forum.

regds
Sarvapriya



==================================================================
Scott Klement wrote:
==================================================================



On Thu, 13 Apr 2006, Sarvapriya_Tripathi@xxxxxxxxx wrote:
[SNIP]
>     d mod10           pr            10i 0 ExtProc('MOD10')
>     d   string                     100a   const varying
[SNIP]

Nice code.  I have two suggestions, however:

a) The "ExtProc" is unnecesary in this case, since it's the
same name as the prototype.

b) Instead of coding the prototype twice, code it once in a /COPY book and
just use the one definition. This helps ensure that the prototypes are
always the same, protecting you against parameter errors. It also makes it
easier to use your routine since you don't have to re-code the prototype
every time you call it.

******************************************************************************

The  information contained in this electronic communication and any
accompanying document is confidential, may be attorney-client privileged,
and is intended only for the use of the addressee.  It is the property of
Ryder System, Inc.  Unauthorized use, disclosure or copying of this
communication, or any part of it, is strictly prohibited and may be
unlawful.  If you have received this communication in error, please notify
the sender immediately by return email, and destroy this communication and
all copies of it, including all attachments.  Electronic communication may
be susceptible to data corruption, interception and unauthorized tampering
and Ryder disclaims all liability of any kind for such actions or any
consequences that may arise directly or indirectly therefrom.
******************************************************************************