Thanks James. This is a project I'm embroiled in, too. Your code worked
right out of the box.
Karl
<quote who="James F Thompson">
> 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 deleted... >
--
karl
_/ _/ _/ _/_/_/ ____________ __o
_/ _/ _/ _/ _/ ____________ _-\<._
_/_/ _/ _/_/_/ (_)/ (_)
_/ _/ _/ _/ ......................
_/ _/ arl _/_/_/ _/ earson [EMAIL PROTECTED]
--
IT Director, ATS Industrial Supply, Inc.
http://www.atsindustrial.com
Toll-free: 800-789-9300 x29
Direct2Desk: 801-978-4429
Facsimile: 801-972-3888
--
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
