No he podido resistirme:
Código:
IDENTIFICATION DIVISION.
PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
*-----------------------------------------------------------------
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CLIENTE ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS CLI-RUT,
ALTERNATE RECORD KEY IS CLI-NOMBRE WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-DIRECCION WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-CASA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-OFICINA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FAX WITH DUPLICATES,
FILE STATUS IS FS-CLIENTE.
SELECT PELICULA ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS PEL-CODIGO,
ALTERNATE RECORD KEY IS PEL-TITULO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-ACTORES WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-EDAD-MINIMA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-TOTAL WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-DISPONIBLE WITH DUPLICATES,
FILE STATUS IS FS-PELICULA.
SELECT PRESTAMO ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
* clave compuesta:
* PRE-RUT-CLIENTE
* PRE-COD-PELICULA
* PRE-FECHA-PRESTAMO
RECORD KEY IS CLAVE-PRESTAMO,
ALTERNATE RECORD KEY IS PRE-ESTADO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-ENTREGA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-DEVOLUCION WITH DUPLICATES,
FILE STATUS IS FS-PRESTAMO.
Un Saludo.