Cheque edit

[Kenneth Brody]

Quoting Del (Thu, 31 May 2007 19:43:48 -0500):
[...]
> They tried to print a one million dollar check and the character string
> was blank.  I assumed this was an edit failure, and went to define edits
> to test the cheque edit (never did that before - I don't comprehend
> edits very well).  Anyway, I find that the edit fails at 100,000.00, no
> matter what length I use.  It appears to be coded so that it won't go
> beyond 99,999.99.
>
> I don't know the edit language well enough to know if it can be made to
> go to larger numbers.  Has anybody done this?  Please advise.

You have a very old "cheque" edit.  Replace it with this one, which
I believe has been included with filePro for many years, and which
will accept numbers up to $9,999,999,999,999.99:

(I wrote this many years ago [they were on an NCR Tower, IIRC] for a
bank that needed to write checks in the hundred-million-dollar range.
Too bad I didn't get 0.001% of each check they wrote.)

====================
CHEQUE:[{!" "!}](zero|<*** > lots cents|<*** zero>cents)
lots:(tr| hb | tb | bil | hm | tm | ml | ht | tt | thou | hun | tens |
ones)
tr:N N N N N N N N N N N N N & (!0! | ones< trillion >) hb
hb:N N N N N N N N N N N N & (!000! | chek2 < billion > ) hm
tb:N N N N N N N N N N N & ( !00! | ( (!0! ones | tens) < billion >)) hm
bil:N N N N N N N N N N & (!0!|ones< billion >) hm
hm:N N N N N N N N N & ( !000! | chek2 < million >  ) ml2
ml2:                    ( !000! | chek2 < thousand > ) chek2
tm:N N N N N N N N & ( (!0! ml) | ( tens < million > ml2 ) )
ml:N N N N N N N & (!0! | ones < million >) ml2
ht:N N N N N N & ml2
chek2:( !0! | ones< hundred > )  ( !00! | ( !0! ones | tens ) )
tt:N N N N N & (!00! | ( !0! ones | tens ) < thousand > ) (hun|tens|ones)
thou:N N N N & (!0!| ones < thousand >)(hun | tens | ones)
hun:N N N & (!0!|ones < hundred >) (tens | ones)
ones:!0!|!1!<one>|!2!<two>|!3!<three>|!4!<four>|!5!<five>|!6!<six>|one2
one2:!7!<seven>|!8!<eight>|!9!<nine>
tens:!10!<ten>|!11!<eleven>|!12!<twelve>|!13!<thirteen>|!14!<fourteen>|ten2
ten2:!15!<fifteen>|!16!<sixteen>|!17!<seventeen>|!18!<eighteen>|ten3
ten3:!19!<nineteen>|!20!<twenty>|!30!<thirty>|!40!<forty>|!50!<fifty>|ten4
ten4:!60!<sixty>|!70!<seventy>|!80!<eighty>|!90!<ninety>|ten5
ten5:(!0!|ten6 <"-">) ones
ten6:!2!<twenty>|!3!<thirty>|!4!<forty>|!5!<fifty>|!6!<sixty>|ten7
ten7:!7!<seventy>|!8!<eighty>|!9!<ninety>
cents:< and > [!.!] num num </100 dollars ***>
zero:zer1 <*** zero> !.! cents
zer1:(N N N N N&!00000!)|(N N N N&!0000!)|zer2
zer2:(N N N&!000!)|(N N&!00!)|(N&!0!)
====================

--
KenBrody at BestWeb dot net        spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com