Re: Mod10 Routine

[paarcher@xxxxxxxxxxxx]

Hi guys

I've just gone through the rigmarole of having to write a check digit
calculation routine - it's a little fiddly but it works - here is the overview
of how the function works, if you like I can also provide you with the RPG code
that creates the CD.

Regards

Paul Archer, CCNB

To compute the check digit, the program:

1)   Multiplies the units position and every alternate position of the base
number by 2.

2)   Adds the digits in the products to the digits in the base number that were
not multi-plied.

3)   Subtracts the sum from the next higher number ending in zero. The
difference is the check digit. For example:

     Base number              6 1 2 4 8
     Units position and       6    2     8
     every alternate position

     Multiply by 2                    12    4   16

                Digits not multiplied                            1    4

               Add
1+2+1+4+4+1+6 = 19

               Next high number                            20
               ending in 0

     Subtract                                            -19

               Check digit = 1

If alphabetic characters are involved,, the numeric position of the internal
character code is used.


+---
| 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
+---