Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 1
Programando en Ms-Dos (texto)
TEMARIOPaso a paso
1.- Introducción
2.- Empezando
3.- Las variables
4.- Iniciando el proceso
5.- Pantalla inicial y Menú
6.- Mantenimiento Fichero
7.- Consulta con Scroll
8.- Opción de Listado
uN JueGo eN CoBoL

2.- Empezando

(1226 palabras totales en este texto)
(28035 Lecturas)   Versión Imprimible



Vamos a ver todos éstos pasos, creando nuestra primera aplicación a la que llamaremos "AGENDA". Si bien el programa lo voy a realizar utilizando sintaxis que sean comunes a todos los compiladores, en el uso de ventanas voy a utilizar las de RM, pero si queréis aplicar otro formato, solo tenéis que ver como se hace con Acucobol, en la sección de Ventanas dentro de Temáticos.

Debéis de tener en cuenta que el programa fuente que yo vaya representando aquí, no tiene los espacios precisos y algunos caracteres no se representan correctamente. Pero al final, pero abajo podéis encontrar un enlace al programa .cbl, dispuesto para que lo bajéis y lo compiléis.

Siempre que vaya ampliando la sección, el programa estará preparado con lo que haya sin errores y listo para probar.

Al estar dividido por capítulos, las modificaciones y ampliaciones las iré haciendo en cada uno de ellos, es decir que si al principio declaro unas variables y luego me van haciendo falta mas, estás aparecerán en el capítulo correspondiente. Solo espero que os aclaréis y lo podáis seguir con suficiente claridad.

Las frases en éste color son comentarios.

»» INICIO Antes de nada, identificamos nuestro programa.
IDENTIFICATION DIVISION.
PROGRAM-ID. PRUEBA.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
OBJECT-COMPUTER. RMCOBOL-85
PROGRAM COLLATING SEQUENCE IS MAYUS-MINUS.
SPECIAL-NAMES.
Aqui hacemos que el valor de las mayúsculas y minúsculas sea el mismo y además signamos el punto decimal como una coma.
      ALPHABET MAYUS-MINUS IS
      1 THRU 65, 'A' ALSO 'a', 'B' ALSO 'b', 'C' ALSO 'c',
            'D' ALSO 'd', 'E' ALSO 'e', 'F' ALSO 'f',
            'G' ALSO 'g', 'H' ALSO 'h', 'I' ALSO 'i',
            'J' ALSO 'j', 'K' ALSO 'k', 'L' ALSO 'l',
            'M' ALSO 'm', 'N' ALSO 'n', 'O' ALSO 'o',
            'P' ALSO 'p', 'Q' ALSO 'q', 'R' ALSO 'r',
            'S' ALSO 's', 'T' ALSO 't', 'U' ALSO 'u',
            'V' ALSO 'v', 'W' ALSO 'w', 'X' ALSO 'x',
            'Y' ALSO 'y', 'Z' ALSO 'z',
      92 THRU 97, 124 THRU 128
      DECIMAL-POINT IS COMMA.
»» ARCHIVOS Ahora definimos el registro de los archivos que vamos a utilizar. Una buena estructura podría ser: Código, Nombre, Dirección, Código Postal, Población, Provincia, Teléfono, Móviles, Correo electrónico y Página Web. Tendremos dos claves, una principal y otra alternativa con el nombre. Así iría quedando nuestro programa.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
definimos los archivos con los que vamos a trabajar, su organización, su acceso y sus claves.
      SELECT AGENDA ASSIGN TO RANDOM "AGENDA.DAT"
      ORGANIZATION INDEXED ACCESS DYNAMIC
      RECORD KEY KEYAGE ALTERNATE RECORD KEY KEYAGE1
      FILE STATUS STAAGE.
      SELECT IMPRESORA ASSIGN TO PRINT "PRINTER1".

DATA DIVISION.
FILE SECTION.
aqui describimos la estructura del registro, con sus campos y el tamaño de cada uno. Vamos a darle una clave alternada para tener los datos ordenador por código y por nombre.
FD AGENDA LABEL RECORD STANDARD.
01 REGAGE.
      02 KEYAGE.
            03 AGECOD PIC 9(4).
      02 AGENOM PIC X(30).
      02 AGEDOM PIC X(30).
      02 AGEPOS PIC 99999.
      02 AGEPOB PIC X(20).
      02 AGEPRO PIC X(15).
      02 AGETEL PIC X(20).
      02 AGEMOV PIC X(20).
      02 AGEMAI PIC X(30).
      02 AGEWEB PIC X(40).
      02 KEYAGE1.
            03 AGENOM1 PIC X(30).
            03 AGECOD1 PIC 9(4).
lo mismo hacemos para el archivo de impresora.
FD IMPRESORA LABEL RECORD OMITTED.
01 LINEA PIC X(132).

Decir que esto será invariable, pero a partir de aquí, la Working-Storage Section y la Procedure Division, puede ir variando en cada uno de los capítulos.

   Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]