Re: Convert number to their text representation

[Peter_Vidal@xxxxxxxx]

--

I have this notes:

Service program to convert numbers to words
Service program NbrToWords consists of a single procedure, CvtNbrToWords
(Convert number to words), that converts numbers to words, such as one that
might be used in a program to print checks.  With service program NbrToWords,
the applications needn't worry about the details of the conversion. Simply bind
the service program to your application program, invoke procedure CvtNbrToWord
passing a single numeric parameter, and receive the text in the return value.
Note that the text is returned in lower-case, so after receiving the text, you
must perform capitalization as necessary.

Procedure CvtNbrToWords supports numbers up to 15 digits (trillions) in length.
The procedure accepts whole numbers only. For numbers containing decimal points
(such as the values you print on checks), you invoke the procedure once for the
whole number (e.g., dollars) and then again for the decimal portion (e.g.,
cents) of the number.

Please find attached the sources examples.
(See attached file: Service program to convert numbers to words.doc)

Peter Vidal
Programmer Analyst
PALL Aeropower Corp.




                    "Denis
                    Robitaille"              To:     <rpg400-l@midrange.com>
                    <DRobitaille@casc        cc:
                    ades.com>                Subject:     Convert number to 
their text
                    Sent by:                 representation
                    rpg400-l-admin@mi
                    drange.com


                    01/25/2002 11:34
                    AM
                    Please respond to
                    rpg400-l






Hello all,

Does anybody know of a product, or utility that given a number, gives back the
corresponding text?

Ex:   1234  => one thousand two hundreds thirty four

And also, if this utility could work in several languages, that would be even
better.

If you know of where I could get code snippet to do so or at least start me, I
would apreceate also.

thanks

Denis Robitaille
Directeur services techniques
Cascades Inc
819 363 5187
fax 819 363 5177


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
[ Service program to convert numbers to words.doc of type application/msword 
deleted ]
--