Informe Cobol

INTRODUCCIÓN:
El lenguaje cobol, es uno de los mas prestigiosos en cuanto al manejo de grandes cantidades de datos y ficheros con gran precisión.
Esta Tarea # 2 de DAP I se basa en trabajar con los archivos de diferentes organizaciones en COBOL.
Esta tarea constará de Un archivo de entrada que es Nombres.txt y luego finalmente a archivos .dat de organización relativa a partir del campo Rut conun programa .cbl en RM COBOL85.

ENUNCIADO:
Desarrolle un programa RM-COBOL 85 que:
* A partir del archivo NOMBRES.txt genere un archivo relativo, cuya clave para acceso directo sea los últimos cuatro dígitos de su RUT.
* Dado que habrá alguno de estos números que se repitan (ej. 17867050 y 15427050) solo el primer registro leído puede ser grabado en el archivo de salida NOMBRES.DAT,el segundo registro y otros que vengan deben ser grabados en forma secuencial en el archivo relativo NOMBRES2.DAT.
Archivo: NOMBRES.dat
Organización: Relativa.
Campos:
RUT 9(9),
DV rut X,
Apellido primero X(16),
Apellido segundo X(16),
Nombres X(32),
Fecha de nacimiento 9(8) (SSAAMMDD).
Sexo X.
2da. Parte
Los dos archivos creados; NOMBRES.DAT y NOMBRES2.DAT deben serobjeto de los siguientes procesos:
* Ingresar nuevos registros.
* Ingresar un RUT, buscar el registro y mostrarlo. De no existir solicitar un nuevo RUT.
* Listar:
* A partir de un RUT ingresado (puede ser orden ascendente o descendente)
* A partir de un apellido ingresado (puede ser orden ascendente o descendente)

DESARROLLO TEORICO:
Para poder realizar esteprograma, primero hay comprender perfectamente el enunciado de esta tarea.
Luego de tener claro el o los procedimientos q se podrían realizar, se procederá a realizar diversas pruebas a medida que se avance en el código del programa, para percatarse a tiempo de posibles fallas de lógica o de lectura de datos, por lo que se realizaran varias impresiones, primero comprobando que se imprimen títulos,luego se procederá a la impresión de datos correspondientes, los cuales serán revisados a base de un archivo Nombres.txt que contiene los datos necesarios para comparar y comprobar que los resultados que nos arroja el programa son los correctos.

PROGRAMA FUENTE:
PRIMER PROGRAMA (CREA INDEXADO):
IDENTIFICATION DIVISION.
PROGRAM-ID. TAREA2.
AUTHOR. MARCOS-LEPPE.ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT NOMBRES ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.

SELECT NOMBRES1 ASSIGN TO DISK
ORGANIZATION IS RELATIVE
ACCESS MODE IS DYNAMIC
RELATIVE KEY IS CLAVE1.

SELECT NOMBRES2 ASSIGN TO DISK
ORGANIZATION ISRELATIVE
ACCESS MODE IS DYNAMIC
RELATIVE KEY IS CLAVE2.

SELECT RUT-INDE ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS INDE-RUT.

SELECT APE-INDE ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE DYNAMIC
RECORD KEY IS CLAVE-AP.DATA DIVISION.
FILE SECTION.


FD NOMBRES
LABEL RECORD IS STANDARD
VALUE OF FILE-ID "NOMBRES.TXT".
01 REG-NOMBRE.
02 RUT PIC 9(9).
02 DV PIC X.
02 PRIMER-APE PIC X(16).
02 SEGUNDO-APE PIC X(16).
02 NOMB PIC X(32).
02 FECHA-NAC PIC9(8).
02 GENERO PIC X.
FD NOMBRES1
LABEL RECORD IS STANDARD
VALUE OF FILE-ID "NOMBRES1.DAT".
01 REG-NOMBRE1.
02 1-RUT PIC 9(9).
02 1-DV PIC X.
02 1-PRIMER-APE PIC X(16).
02 1-SEGUNDO-APE PIC X(16).
02 1-NOMB PIC X(32).
02 1-FECHA-NAC PIC 9(8)....