Josber
28 de abril de 2026, 12:55
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]
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]