Mostrando del 1 al 10 de 10 registros
<<>>
Hola, comparto con ustedes un programa COBOL que traduce un monto en números a su correspondiente monto escrito. Ejemplo:
Monto Numerico: 360321, 98
Monto Escrito : TRESCIENTOS SESENTA MIL TRESCIENTOS VEINTIUNO CON 98 CTVOS
Soporta hasta 999 miles de millones y devuelve un texto de 170 caracteres que pueden usar como mejor les convenga (separa en dos o más lineas).
Espero les sea de utilidad.
Saludos,
Sergio
Código fuente orientado hacia la Herramientas CASE (Computer Aided Software Engineering, Ingeniería de Software Asistida por Computadora) desarrollador en RM/COBOL-85 que trabaja con parámetros:
Cop001 --> Crea, Modifica y Elimina registro de una Archivo Indexado
SysHelp --> Despliega ayuda interactiva utilizando arreglos unidimensionales (vectores)
SysKey --> Despliega el código ASCII del teclado
SysMsg --> Despliega mensajes
SysWait --> Ejecuta un Relay (Espera)
SysTime --> Despliega la hora del sistema
SysDate --> Despliega la fecha del sistema
SysBox --> Despliega una Caja ó Ventana
SysClear --> Dibuja una Caja ó Ventana en Blanco
SysRead --> Ejecuta lectura de campos
SysMenu --> Despliega Menú de Opciones a través de una Barra Iluminada
SysMain --> Módulo Principal
Observación: para poder ejecutar la compilación de todos los módulos (*.cbl) se debe crear cualquier carpeta como ejemplo SYSCASE y dentro de ella se deben guardar los compliladores del RM/COBOL 85 a partir de la versión 4.10 for DOS tales como:
- RMCOBOL.EXE
- RMCOBOL.OVY
- RUNCOBOL.EXE
Ejecutar el archivo SYS.BAT para hacer la compilación automática por lotes.