[PowerCOBOL] Números a Letras para cualquier compilador

[Josber]

Aunque supongo que muchos tendrán su propia rutina, para los que no la tienen, he hecho ésta, porque la antigua que tenía, fallaba más que el gobierno, así que he aprovechado para hacer una nueva y de paso compartirla por si a alguien le interesa.

Está hecha en COBOL puro y duro, sin usar funciones ni nada por el estilo, he intentado que sea lo más puro posible, de todas maneras, supongo que los cambios serían mínimos para adaptarlos a otros lenguajes

La rutina usa tres grupos de variables, podría haberlas enlazado a través de LINKAGE, pero como no sé si en otros lenguajes funciona bien, he preferido hacerlas EXTERNAL

      * ----------------------------------------------------------
      * *         VARIABLES PASADAS POR EL PROGRAMA LLAMADOR
      * ----------------------------------------------------------
       01  WS_NUM              GLOBAL EXTERNAL.
           05 WS_NUM_IN        PIC S9(8)V99.
 
       01  WS_TXT              GLOBAL EXTERNAL.
           05 T1               PIC X(60).
           05 T2               PIC X(60).
           05 T3               PIC X(60).
 
       01  WS_MONEDA           GLOBAL EXTERNAL.
           05 WS_MON           PIC 99.
      *

WS_NUM_IN es donde pasamos el valor a convertir
T!, T2 y T3, es donde nos devuelve el texto
WS_MON es donde le indicamos la moneda que vamos a utilizar, (hasta 16 con el EURO por defecto)

Se tiene en cuenta que no se parta ninguna palabra que no quepa bien en T1 o T2 y, admite negativos, está bastante probada pero como es natural, puede tener fallos y como siempre, comentarios y modificaciones son bienvenidos.

Un salu2 a [email protected]

[Gusaiello]

Espectacular!!!!@Josber.

Tengo una rutina que uso desde hace mucho tiempo, pero esta es mucho mejor por el hecho de contemplar varias monedas y valores negativos, muy útil en contabilidad.