Thanks to each of you for the good postings. You've got me going now. I
may miss their target date of yesterday but Tuesday is looking pretty
good. Now, if anyone has an algorithm to speed up the QA dept things
will shake out rather nicely. We'll be using something which follows
very closely on
Thanks James. This is a project I'm embroiled in, too. Your code worked
right out of the box.
Karl
> SUBROUTINE CC.VALID(CCN,OK,CTYPE)
> *
> OK=0 ; WGT=2 ; SUM=0 ; CCLEN=LEN(CCN)
> DIGIT=0 ; CTYPE=""
> CHK.DIGIT=CCN[CCLEN,1] ; MDIGIT=0
> FOR X = CCLEN - 1
< stuff d
ND
Larry Hiscock
Western Computer Services
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes
Sent: Friday, December 02, 2005 8:11 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Mod10 Credit Card Checksum
Say, has anyone written some code to
Did this a long time ago. It wont cost much to see if it works.
j
** SUBROUTINE MOD10CD(NUM1, CDNUM)
M2STR= ""
SUM.STRING=""
SUM.OPERANDS=""
NEXT.HIGH.10=0
INPUT NUM1
LNUM1=LEN(NUM1)
FOR I = LNUM1 TO 1 STEP -2
IF MOD(I,2) = 0 THEN
SUM.STRING<-1>=NUM1[I,1]
END ELSE
M2STR:=NUM1[I,1]
END
Barker,
I haven't needed to know this for the last several years, so I had
to look it up. This looks right, but you should double check it:
http://www.epanorama.net/documents/smartcard/magcard.html
- Chuck "LRC" Barouch
Baker Hughes wrote:
Say, has anyone written some code to vali
l Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes
Sent: Friday, December 02, 2005 10:11 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Mod10 Credit Card Checksum
Say, has anyone written some code to validate a Credit Card number,
using the Mod10 (nicknamed)
Today's your lucky day. I have the LUHN check (and much more) written
in Javascript and posted on the web @
http://www.precisonline.com/ccvalidate.html. Should be no big deal to
translate to U2.
-Kevin
[EMAIL PROTECTED]
http://www.PrecisOnline.com
---
u2-users mailing list
u2-users@listserv
;"
END CASE
IF CTYPE = "" THEN
OK=0
CTYPE = "Invalid Credit Card Type"
END ELSE
OK=1
CTYPE=OCONV(CTYPE,"TPAY.TYP;X;;0")
IF CTYPE = "" THEN
OK=0
CT
lid card number."
0094 END
0095 RETURN
Robin Stanley
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Baker Hughes
Sent: Friday, December 02, 2005 8:11 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Mod10 Credit Card Checksum
Say, has anyone written som
Say, has anyone written some code to validate a Credit Card number,
using the Mod10 (nicknamed) or ANSI X4.13 (realname) LUHN formula? I
was just told today get this installed yesterday, so I'm naturally
looking to see if some kind-hearted fellow MV'ver has something already
written (it is the sea
10 matches
Mail list logo
