MVSFORUMS.com

mummanen

How to convert numeric number to roman number in MF COBOL?

Do we have any function for this?

EX: 1 = I, 2 = II, 3 = III ... 10 = X etc...

kolusu · Posted: Mon Feb 02, 2004 3:45 pm Post subject:

mummanen,

The conversion of numeric number to roman number in MF COBOL can be done via DBCS Support.

Check this link for Double-Byte Character Set Support

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

mummanen · Posted: Mon Feb 02, 2004 4:29 pm Post subject:

Did anybody have some example code for converting numeric number to roman number?

I did through the SQL query embedded into my cobol program

select to_char(11,'RN') from dual;

ofer71 · Posted: Tue Feb 03, 2004 12:32 pm Post subject:

Hi

I found this REXX function in the web.

O.
________
herbalaire

Glenn · Beginner Joined: 23 Mar 2003 Posts: 56 Topics: 3

1 = I
4 = IV
5 = V
9 = IX
10 = X
(and so forth)

and so forth....you take your number, substitute and build the value using your STRING verb and then go from there...I suggest you store this as a table and go down the list in descending order (M = 1000 CM = 900 ... on down to 1's.)

Going to be a lot of loops...just a hint...I did this in another language - hopefully I can find it and post it if you still need a hint.