Tarea Cobol

Desarrollo de aplicaciones I
TAREA01.

Nombre: Cill
Profesor: xxxx

Introducción.

En este informe usaremos un programa llamado cobol que es usado en empresas para almacenamiento de diferentes tipos.
La idea de esta tarea número 1 es crear un programa en lenguaje cobol para agregar, eliminar, modificar un grupo detrabajadores almacenados en un archivo Personal.dat.

Enunciado.

Cree un programa RM-COBOL 85 que permita mantener el siguiente archivo:
Archivo: Personal.dat
Organización: secuencial.
Acceso: secuencial.
CAMPOS.
Rut x(9)
Apellidos x(30)
Nombres x(30)
Código departamento x(4)
Nombre departamento x(15)
Dirección (calle y número) x(40).
Comuna x(20)
Ciudad x(20)Fecha de nacimiento 9(8), ssaammdd.
Fecha contrato 9(8), ssaammdd.
Total cargas 99.
Código AFP 99.
Nombre AFP x(30).
Código ISAPRE/FONASA 99.
Nombre ISAPRE/FONASA x(30).

El programa deberá permitir:
* Ingresar un nuevo trabajador.
* Eliminar un trabajador.
* Al regrabar un registro debe dar la opción de modificar el código y nombre de un departamento, como tambiénsu dirección.

* Al término de la ejecución deberá desplegar una pantalla (legible, con mensajes claros) con los siguientes datos mínimos:
* Total de registros leídos.
* Total de registros grabados.
* Registros eliminados.
* Registros nuevos.
* Promedio general de cargas familiares (las que quedaron grabadas).

* Fecha y hora de procesamiento(ejecución).
* Autor (programador) y quien ejecutó el programa.

Código Del programa.

IDENTIFICATION DIVISION.
PROGRAM-ID. Tarea01.
AUTHOR. Rodrigo Fernandez.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
select personal assign to disk
organization sequential.
select temp assign to diskorganization sequential.

DATA DIVISION.
FILE SECTION.
FD PERSONAL
LABEL RECORD IS STANDARD
VALUE OF FILE-ID "personal.dat".
01 REG-PERS.
02 RUT.
03 rut-1 PIC 9(8).
03 dig PIC x.
02 apellidos PIC x(30).
02 nombres PIC x(30).
02 cod-dptoPIC x(4).
02 nom-dpto PIC x(15).
02 DIRECCION.
03 calle PIC x(34).
03 numero PIC x(6).
02 comuna PIC x(20).
02 ciudad PIC x(20).
02 FECH-NAC.
03 ss PIC 99.
03 aa PIC 99.
03 mm PIC 99.
03 dd PIC 99.
02FECH-CON.
03 ss1 PIC 99.
03 aa1 PIC 99.
03 mm1 PIC 99.
03 dd1 PIC 99.
02 total-car PIC 99.
02 cod-afp PIC 9.
02 nom-afp PIC x(30).
02 cod-isa-fo PIC 99.
02 nom-isa-fo PIC x(30).



FD TEMP
LABEL RECORD IS STANDARDVALUE OF FILE-ID "temp.dat".
01 REG-TEMP.
02 RUT1.
03 rut-2 PIC 9(8).
03 dig1 PIC x.
02 apellidos1 PIC x(30).
02 nombres1 PIC x(30).
02 cod-dpto1 PIC x(4).
02 nom-dpto1 PIC x(15).
02 DIRECCION1.
03 calle1 PIC x(34).
03 numero1 PIC x(6).02 comuna1 PIC x(20).
02 ciudad1 PIC x(20).
02 FECH-NAC1.
03 ss1 PIC 99.
03 aa1 PIC 99.
03 mm1 PIC 99.
03 dd1 PIC 99.
02 FECH-CON1.
03 ss2 PIC 99.
03 aa2 PIC 99.
03 mm2 PIC 99.
03 dd2 PIC...