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

[[kuan-yiu]]

Empezado por Casimiro Notevi

jajaja, ciertamente, cobol se inventó para que la gente (los jefes encorbatados) que no saben nada de programación, pudieran leer el código (en inglés) y pareciera que lo entendían, surgió así, y no me lo invento, es historia conocida y documentada.

Eso no quita que tuviera cosas buenas y malas, como todo, pero sus principios fueron por ese motivo.

... me has matao.

[marcoszorrilla]

Rm-Cobol. Ver el código fuente de uno de estos programas era como leer una novela.

En aquellos entonces opté por el Basic, ya que con C.O.B.O.L., dibujar un simple círculo era labor de amanuenses.

Un Saludo.

[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.

[Casimiro Notevi]

Viendo ese código que ha puesto marcoszorrilla, me he acordado que la primera vez que vi algo en cobol, me dije: "quietoooorrrr... ¿pero esto qué es?, ¿un lenguaje o una broma?", y vi que no era ninguna broma, lo borré y seguí con mi lenguaje C

[[kuan-yiu]]

Que mareo , si es que me pongo mala leyendo eso... Lo peor de todo es que se me daba muy bien.

[marcoszorrilla]

For I = 1 To 24
Locate I,35
PRINT "Esto es un ejemplo de Bucle"
Next I
Rem Para el compilador
End

Aquí os dejo otro, para el recuerdo.

Un Saludo.

[jacanche]

Empezado por marcoszorrilla

No he podido resistirme:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
....

Vaya, eso me trajo recuerdos de hace 18 años cuando empece a programar y aprendi gwbasic, cobol, dbase III plus, usaba discos flexibles de 5 1/4 de 160 kb, vaya que pasan los años, y la tecnologia avanza a pasos agigantados

[[maeyanes]]

Ya estás viejo Procu...

[[egostar]]

Empezado por maeyanes

Ya estás viejo Procu...

Hombre, si esto apenas paso hace 20 años, no hay que ser, cuales viejos.

Yo aún use tarjetas perforadas y la primer maquina que conocimos fue una Comodore compartida para todos los alumnos de la escuela con dos unidades de disquette 5 1/4 no existia disco duro, incluso teniamos que apartar la hora desde una semana antes.

Saludos

[Ñuño Martínez]

Yo recuerdo a mi padre cambiando los tambores del IBM... ¡Qué tiempos! Yo tenía unos 4 años de edad. Más tarde me enteré de que los departamentos de la empresa tenían que pedir hora y, cuando llegaba esta, tenían que apagar el computador, cambiar el tambor del programa, el de datos, y encenderlo de nuevo.

Luego vino el 360 y la cosa cambió mucho: ¡todos los departamentos podían trabajar al mismo tiempo con el ordenador! Ese fue el primer ordenador que toqué (bueno, un terminal que el 360 no lo tocaba nadie). Con 6 años aprendí a apagar el terminal, y no era tan fácil como ahora, os lo aseguro.

Me encantan las batallitas que me cuenta...