Cada vez más la gente pasa de contestar a los post

[marcoszorrilla]

No he podido resistirme:

       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.