Cobol - Rutina conversion numeros a letras

Estoy buscando una rutina de conversion de numeros (enteros y dos decimales) a letras,
sabeis de alguna o de algun sitio donde hayais visto alguna?
Saludos y gracias.

Tengo una rutina que me convierte solamente numeros
enteros "sin decimales" a letras.

Esta es la rutina que yo uso y me resulta muy buena

***** working-storage section.

* RUTINA DE CONVERCION DE NUMEROS A LETRAS EN CHEQUES.
01 DATOS-PARA-CHEQUE.
03 FLAG PIC 9 VALUE ZERO.
03 MONTO-CHE.
05 MONTO-CHE1 PIC 9(6)V99.
05 AUXILIARES-CHE REDEFINES MONTO-CHE1.
07 MILLAR PIC 999.
07 CENTENAS PIC 999.
07 CHE-CENTS PIC 99.
03 TABLA-UNIDADES.
05 FILLER PIC X(6) VALUE ' UN'.
05 FILLER PIC X(6) VALUE ' DOS'.
05 FILLER PIC X(6) VALUE ' TRES'.
05 FILLER PIC X(6) VALUE 'CUATRO'.
05 FILLER PIC X(6) VALUE ' CINCO'.
05 FILLER PIC X(6) VALUE ' SEIS'.
05 FILLER PIC X(6) VALUE ' SIETE'.
05 FILLER PIC X(6) VALUE ' OCHO'.
05 FILLER PIC X(6) VALUE ' NUEVE'.
03 TAB-UNI REDEFINES TABLA-UNIDADES OCCURS 9 TIMES.
05 UNI OCCURS 6 TIMES PIC X.
03 TABLA-DIECIQUIN.
05 FILLER PIC X(7) VALUE ' DIEZ'.
05 FILLER PIC X(7) VALUE ' ONCE'.
05 FILLER PIC X(7) VALUE ' DOCE'.
05 FILLER PIC X(7) VALUE ' TRECE'.
05 FILLER PIC X(7) VALUE 'CATORCE'.
05 FILLER PIC X(7) VALUE ' Q

Tengo una rutina que me convierte solamente numeros
enteros "sin decimales" a letras.