Ejemplo de Mantenimiento para RM/Cobol y OpenCobol
Para los que quieren iniciarse en programación cobol pero no saben muy bien como empezar.
He visto que los que inician a programar realizan un alta de registros en un secuencial y después quieren listar o mantener lo introducido con un programa que utiliza un fichero indexado o cosas mas raras que no funcionan o que, para mi, están mal planteadas.
He sintetizado ideas y voy a poner un ejemplo de mantenimiento (ABM) para realizar altas, baja y modificaciones. Lo que los modernos llaman CRUD (Crear, Leer, Actualizar y Borrar).
Adaptado para RM/COBOL --> sient01m.zip
Adaptado para OpenCobol --> entida.zip ( las teclas de funcion estan activadas, pero ESC, cursor arriba y alguna cosa mas no he podido de momento activar)
Id preguntando las dudas.
Primer consejo. Meter todo lo que es igual en COPYs. Trabajando de esta forma se puede modificar un copy y recompilar toda la aplicación modificando solo un fichero. (Yo lo he metido en el .CBL para no despistar y he comentado el copy)
Importante utilizar el "file status". Es la única forma de abrir un fichero y comprobar que existe, para poder abrir nuevo o comprobar que esta deteriorado, bloqueado, etc.
Ademas con el "file status" se puede comprobar si un registro existe o no. Para poder modificar despues o dar opción a borrar.
En el mantenimiento adjuntado, en cada campo se da posibilidad de subir, bajar, etc. Para OPenCOBOL de momento eso no funciona.
La pantalla esta Displayada a pelo. Tengo un gestor de pantallas que seria engorroso entender para los no iniciados.
|