Banking question

[John Esak]

> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com
> [mailto:filepro-list-bounces at lists.celestial.com]On Behalf Of Courtney
> Sent: Monday, November 29, 2004 3:35 PM
> To: Filepro Help List
> Subject: Banking question
>
>
> Does anybody have a check digit routine for credit cards?  Mine does not
> seem to work for AMEX...
>
> Courtney Karl Seith
> North Shore Agency
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list


Sorry, but I have posted this SO many times before... I just can't do it
iagain. It takes me hours to find these old routines. It would be easier for
you to look it up in the archives for this list. I'm sure others will
provide it perhaps.  The one I place here was for all credit card types,
well at least VI, MC, AX. The simplest way to do it is to involve a couple
edits and a small subroutine.

If it were at my fingertips, I would put it up here. I remember only that it
was a full description with processing table and the following edits...

Others here may have it readily available... or one of their own... (which,
of course, wouldn't be nearly as cool as mine... :-)

John Esak

forma  ."3" N N N <" "> N N N N N N <" "> N N N N N
formv1 ."4" N N N <" "> N N N N <" "> N N N N <" "> N N N N
formv2 ."4" N N N <" "> N N N <" "> N N N <" "> N N N
formv  .formv1|formv2
formm  ."5" N N N <" "> N N N N <" "> N N N N <" "> N N N N
formd  ."6" N N N <" "> N N N N <" "> N N N N <" "> N N N N
allcc  .forma|formv|formm|formd