PROGRAMACIN EN COBOL

Estructura del lenguaje COBOL.

COBOL es un lenguaje de alto nivel y de fcil entendimiento basado en la resolucin de problemas de los campos de gestin y documentacin. COBOL son las iniciales de COmmon Bussiness Oriented Language. Aunque hay lenguajes que nos permiten realizar programas mucho ms complejos en cuanto a posibilidades que aquellos que podemos realizar con COBOL, tenemos que decir que este lenguaje de programacin por el momento no solo que no va a desaparecer sino que va a perdurar mucho ms tiempo que mucho de los posteriores, ya que hay muchas empresas que siguen usando COBOL desde el principio de estas, y como sus programas funcionan constantemente, no se pueden apagar para hacer el cambio a otro lenguaje adems del gran coste que supondra el tomar esta opcin. Por otra parte hay que destacar que el COBOL no nos permite programar juegos complicados para el ordenador, sin embargo si queremos hacer una programacin de bases de datos, tendremos que tener en cuenta que es mucho ms fcil para nosotros el realizarla con COBOL, que el tener que programarla desde cero con programas como JAVA o C++. La estructura de COBOL es totalmente diferente a la estructura de cualquier otro lenguaje. Esta especializacin impide aunque de forma muy simple que expertos programadores vean COBOL como diferente e inaccesible para ellos debido a las grandes diferencias que se encuentran con la programacin tradicional estructurada. Sin embargo aprender COBOL es mucho ms fcil que aprender los otros lenguajes que existen en el mercado, con el inconveniente de no poder hacer de todo con l. Un inconveniente que tiene COBOL a la hora de programar es lo estricto que es cuando se definen las variables, sin embargo, gracias a esta precisin hace que el programa resulte ms rpido que si estuviera realizado por otros lenguajes.

Juego de caracteres.
COBOL permite utilizar casi todos los caracteres que permite el teclado, adems de distinguir entre maysculas y minsculas. Un carcter a mencionar por su utilidad y porque en otros lenguajes no es usado sera el espacio.

Hay tres tipos de juegos de caracteres, los alfabticos, los numricos y los especiales. Los alfabticos corresponden a los 26 caracteres usados en todas las lenguas europeas, usndose tanto en maysculas como en minsculas. Como carcter alfabtico tambin incluiremos el espacio. Los numricos corresponden a los diez dgitos con los que podemos representar cualquier nmero. Los caracteres especiales que son los siguientes: + * / = $ , ; Suma Resta Asterisco Barra de divisin Igual Dolar Coma Punto y Coma . ( ) > < : & Punto Comillas Parntesis Izquierdo Parntesis Derecho Signo de Mayor que Signo de Menor que Dos Puntos Ampersand

Palabras en COBOL:
Hay cuatro tipos de palabras en COBOL. Las palabras definidas para los usuarios, los nombres de funciones, palabras reservadas y los nombres del sistema. Ninguna de las palabras puede en ningn caso superar los 30 caracteres de longitud. Deben formarse por caracteres numricos o alfabticos, incluyndose el guin (signo menos) salvo al principio de la palabra. Hay que destacar que las palabras en minsculas son equivalentes a las que estn formadas por maysculas, por lo que no se podrn utilizar ambas como distintas.

Palabras reservadas de COBOL, variables, smbolos y constantes.

El punto es un signo de vital importancia en cobol ya que nos indica el final de una lnea, en el han de terminar todas las secciones, divisiones y prrafos. Si al final de una lnea el compilador no encuentra el punto, interpretar que la instruccin contina hasta que aparezca el punto de fin de lnea. Dentro de COBOL hay una serie de palabras que estn reservadas al lenguaje y que por ese motivo no se pueden utilizar para definir campos o variables. Las variables sin embargo son creadas por el programador, este tipo de palabras admiten hasta treinta caracteres (letras, dgitos o guiones) que comenzarn siempre por una letra.

Los smbolos son aquellos que tienen un significado especfico para COBOL como tales, y pueden ser ortogrficos( ., ;), aritmticos(+, -, *, /, **) y relacionales (<, >, =). Las constantes son los valores fijos utilizados a lo largo del programa. Tanto el nombre como el valor vienen programados por el programador. Las constantes pueden ser numricas (su valor es un nmero de hasta 18 dgitos.), no numricas (vienen representadas entre comillas) y las figurativas (son palabras reservadas que tienen un valor constante (ZERO = 0, SPACE = , HIGH-VALUE = El valor ms alto, LOWVALUE = El valor ms bajo).

Ejercicio de Ejemplo:
El siguiente programa se encarga de mostrar por pantalla las diferentes posibilidades que se pueden dar con un nmero de bits que van de 1 a 16 (de 1 bit a 2 bytes que son la unidad fsica mnima y la unidad lgica mnima que se utilizan actualmente en informtica).

Introducir el siguiente programa en el ordenador para ver el resultado. IDENTIFICATION DIVISION. PROGRAM-ID. POTENCIAS. AUTHOR. jlbv@jlbv.com. ENVIROMENT DIVISION.

DATA DIVISION. WORKING-STORAGE SECTION. 01 AUX.

02 X PIC 9. 02 N PIC 9. 02 MAX PIC 9. 02 POT PIC 9(5).

PROCEDURE DIVISION. MD1-INICIO MOVE 2 TO X. MOVE 1 TO N. MOVE 16 TO MAX. DISPLAY POSIBILIDADES POR NMERO DE BITS.

MD2-TRATAMIENTO PERFORM MD3-RUTINA THRU FIN-MD3 UNTIL N > MAX DISPLAY PROGRAMA TERMI NADO STOP RUN.

MD3-RUTINA COMPUTE POT = X ** N. DISPLAY N BITS SUPONEN POT POSIBILIDADES. ADD 1 TO N

FIN-MD3. EXIT.

Estructura de los programas COBOL. Organizacin de los datos.

Todos los nmeros llevan un valor que llamado nmero de nivel que indica la jerarqua de los mismos en la estructura general de los datos. Los nmeros de nivel van del 01 hasta el 49, aunque tambin existen el 66, 77 y 88. El 01 define al campo de ms importancia, y que viene seguido del 02 que tiene menos importancia.

Declaraciones, sentencias, prrafos, y divisiones.

Las declaraciones son conjuntos de dos o ms palabras reservadas o palabras que especifican una operacin (generalmente comienzan por un verbo). Una sentencia es el conjunto de una o ms declaraciones, quedando definida la ltima de ellas porque termina con un punto. El prrafo es por tanto un conjunto de sentencias que vienen precedidas por un ttulo. Por ltimo tendremos que destacar la divisin, que surgen por las cuatro divisiones naturales de la programacin en COBOL que son: IDENTIFICATION DIVISION ENVIROMENT DIVISION DATA DIVISION PROCEDURE DIVISION

Programa Fuente.
A la hora de realizar un programa fuente, lo deberemos realizar siguiendo las normas del compilador de COBOL. Las normas ms estandarizadas son las siguientes: Todas las lneas tienen 80 caracteres, ya que en MS-DOS la pantalla slo tena estas columnas, y dado que muchas versiones de COBOL funcionan en MS-DOS, se intenta seguir esa pauta, aunque en Windows aparezcan ms de 80 caracteres y adems con la barra de desplazamiento horizontal podamos obtener muchos ms. El programa cobol se escribe secuencialmente en lneas de 80 caracteres o menos con la siguiente divisin:

La parte (1) comprende las columnas de la 1 a la 6 ambas inclusive y se utiliza para numerar las lneas, aunque hoy en da prcticamente no se utilizan, ya que se suele hacer de forma automtica. La parte (2) comprende la columna 7 y es la que habla con el compilador directamente. En ella podemos encontrar, un guin (-) que nos indica que esta lnea es continuacin de la anterior pero que por su tamao ocupa mas de una lnea, un asterisco (*) que nos indica que el texto que viene a continuacin es un comentario y por lo tanto que el compilador lo ignore, una barra (/) indica que se debe saltar una pgina, o bien puede servir dependiendo de los compiladores para indicaciones del debug. La parte (3) se le llama rea A comprende las columnas 8 a 11 ambas inclusive y aqu es donde se escriben los nombre de las divisiones, de las secciones, de los prrafos, los indicadores de FD (File Description) y los niveles de variables 01 y 77. La parte (4) llamada rea B comprende desde la columna 12 a la 72 y en ellas se incluirn todas las instrucciones del programa, las lneas de las secciones y los niveles de variables mayores a 01. La parte (5) de la columna 73 a la 80 no se utiliza y por lo tanto es ignorada por el compilador. Hay instrucciones que slo pueden funcionar en las lneas 8 a 11 (Zona A), otras que solo pueden funcionar en las lneas 12 a 72 (Zona B), y por ltimo tambin hay otras que pueden funcionar en ambas zonas indistintamente. Los comentarios se representarn mediante lneas que empiecen con * o /, y se podrn escribir tanto en la zona A como en la B. Si una frase no cabe en una lnea, se podr utilizar el smbolo al principio de la siguiente lnea en la zona A para indicar que ah contina la lnea anterior.

Divisiones de un programa COBOL.

Un programa de COBOL tiene cuatro divisiones. Todos los programas deben tener las cuatro secciones, aunque aluna de ellas est vaca. Todas las divisiones deben comenzar en la zona A de programacin (de las columnas 8 a 11).

IDENTIFICATION DIVISION.
Esta divisin se encarga de identificar el programa. Tambin es la parte menos importante, sobretodo en el caso de ser slo un programa.

PROGRAM ID.
Es el nico prrafo obligatorio dentro de la IDENTIFICATION DIVISION y en l se identifica el nombre del programa. Debido a su compatibilidad con el DOS, el nombre de del archivo no podr tener nunca ms de 8 elementos. Si por algn motivo se intentara guardar el archivo con ms de 8 caracteres el ordenador slo necesitar los 8 primeros para llamar al archivo.

AUTHOR.
Es una divisin opcional que permite escribir el nombre del autor del programa.

INSTALLATION.
En esta divisin tambin opcional se suelen definir tres elementos, el nombre del que realiza la instalacin, el equipo que a probado o testado la instalacin o las caractersticas necesarias del ordenador para poder instalar el programa.

DATE-WRITTEN.
Indica la fecha en la cual se realiz el cdigo fuente del programa. Gracias a esta anotacin, si encontramos dos programas que parecen iguales pero con fechas diferentes, supondremos que el que tiene la ltima actualizacin ser el que tiene la fecha posterior.

DATE-COMPILED.
Esta divisin nos permite ver la fecha en la cual se compil el programa. Por lo general esta fecha es posterior o igual a la del programa, aunque en el caso de que se est mejorando el programa, esta fecha significa que ese programa todava no ha conseguido una versin estable desde la que se hizo en el momento de la compilacin.

REMARKS.
Sirve para incluir cualquier otro comentario hasta aqu no reflejado.

Vemos que el nico prrafo obligatorio adems del nombre de divisin es el que hace referencia al nombre del programa, los dems nombre de autor, lugar de instalacin, fechas de creacin y compilacin y comentarios son opcionales, eso s, si se incluyen se deben de poner cumpliendo las normas.

ENVIRONMENT DIVISION.
Es la segunda divisin por orden de aparicin, y en ella se especifican, el ordenador donde se escribi y se ejecutar el programa, as como la relacin entre los ficheros a utilizar con sus correspondencias externas, es decir con los dispositivos a los que har referencia el programa objeto cuando vaya a establecer comunicacin con dicho fichero. Diremos antes de continuar, que en las primeras versiones de este lenguaje haba muchas partes que eran obligatorias en cada programa, pero hoy en da, por ejemplo, sta divisin ya no es obligatoria, as como ninguna de sus partes. Esta divisin es obligatoria aunque no se manejen ficheros en el programa. Incluye nombres de seccin y prrafos fijos que pueden omitirse si no son necesarios. Aqu es donde indicamos al programa de donde se deben tomar los datos y que salidas se utilizarn. Esta divisin empieza en la columna 8 y los nombres de prrafo y seccin son fijos. Esta divisin se divide a su vez en dos partes claramente diferenciadas. La primera, la CONFIGURATION SECTION nos permite especificar las diferentes caractersticas del equipo sobre el que se escribi el programa y en el cual debe funcionar, o bien el nombre del compilador y asignacin de valores a ciertas constantes utilizadas por el compilador. La segunda, la INPUT-OUTPUT SECTION nos permite especificar los diferentes ficheros con los que trabajar el programa adems de su organizacin, mtodo de acceso, nombre de fichero, etc.

CONFIGURATION SECTION. SOURCE-COMPUTER.

Para especificar el tipo de ordenador servidor del programa.

OBJECT- COMPUTER.
Son las caractersticas del ordenador remoto que accede al programa.

ESPECIAL NAMES.
En l se especifican entre otros aspectos el tipo de smbolo para separar los decimales, signo monetario, etc.

Al haber varias opciones diferentes, tan slo en la ltima debe aparecer el punto. Para la lnea de SPECIAL-NAMES el uso ms habitual es el de cambiar el punto decimal usado por los ingleses por la coma y as poder especificar los puntos para los miles, su formato sera el siguiente: SPECIAL-NAMES. DECIMAL-POINT IS COMMA. Tambin podramos cambiar el valor del smbolo de la moneda con: CURRENCY SIGN IS literal, suele ser un solo carcter y no puede coincidir con ninguno de los que usamos para definir las variables, es decir ni A, ni Z, ni 9, ni -, ni +, ni X, etctera. O hacer que todas las letras introducidas sean maysculas o minsculas o que no haya diferencias entre ambas con la clusula ALPHABET.

INPUT-OUTPUT SECTION.
Las instrucciones que se utilizan en esta seccin son los siguientes: FILE-CONTROL. SELECT [OPTIONAL] Nombre-de-archivo ASSIGN TO Tipo-de-dispositivo ORGANIZATION IS Tipo de organizacin ACCESS MODE IS Modo de acceso al fichero RECORD KEY IS Clave del registro. ALTERNATE RECORD KEY IS Claves alternativas al registro. WITH DUPLICATES FILE STATUS IS Variable de estado del fichero.

FILE CONTROL. SELECT.

Es aqu donde especificamos el nombre lgico que va a tener el fichero dentro del programa, suele ser una palabra que identifique lo mas claro posible el contenido del fichero, por ejemplo ARTICULOS, PROVEEDORES, CLIENTES. Si indicamos la opcin OPTIONAL, al hacer un OPEN I-O, si el archivo no existe, se crea. Con lo cual nos evitamos tener que abrirlo como OUTPUT y cerrarlo, antes de poder utilizarlo por primera vez.

ASSIGN TO.
Con esta clusula, especificamos el tipo de dispositivo, si es una impresora PRINTER, si es un fichero sobre el que vamos a grabar RANDOM o DISC, se pueden utilizar otros como INPUT, INPUTOUTPUT, CASSETTE, MAGNETIC-TAPE, pero sin duda los ms utilizados son los dos primeros para identificar si el fichero utilizar una salida impresa o se utilizar sobre disco. Para identificar ficheros utilizados para clasificar utilizaremos SORT.

ORGANIZATION IS.
Aqu indicamos la organizacin de los registros de nuestro fichero, podr ser SEQUENTIAL, RELATIVE o INDEXED, si nuestro archivo fuera secuencial se podra omitir sta clusula as como las restantes. De sta organizacin se deriva el formato del fichero, SEQUENTIAL si los registros se graban secuencialmente conforme se dan entrada sin importar si estn o no repetidos, un ejemplo claro son los archivos de impresora, todos los listados son secuenciales. RELATIVE, si cada registro es identificado por un valor entero con su posicin relativa (prcticamente no se utiliza). INDEXED es la mas utilizada e identifica a ficheros que sus registros son accesibles mediante una clave nica e irrepetible o por varias que pueden estar duplicadas, cualquier fichero de mantenimiento, por ejemplo de ARTICULOS, podra ser INDEXED, y cada cdigo ser nico para cada artculo y con el nos iremos a su posicin y podremos ver todos los dems datos que hagan referencia al registro. Existe tambin para los archivos de texto, tipo AUTOEXEC.BAT la posibilidad de asignarlos directamente especificando LINE SEQUENTIAL en sta clusula.

ACCESS MODE IS.

Indica el modo de acceso al fichero, puede ser SEQUENTIAL, RANDOM o DYNAMIC, si no se especifica ninguno o si el fichero es SEQUENTIAL entiende que el modo ser SEQUENTIAL. RANDOM indica que accederemos a l de forma aleatoria por su clave y DYNAMIC (la mas utilizada) con la que podremos acceder al fichero en el modo que queramos dentro del programa, unas veces de forma secuencial, si nos interesa, otras veces por su clave.

RECORD KEY.
Se utiliza slo si el fichero es indexado y en el decimos cual es el nombre de la clave por la cual accederemos a los registros. Esta deber ser alfanumrica y tendr que estar especificada en la FD del fichero. Si el archivo fuera RELATIVE, esta clusula se sustituira por RELATIVE KEY e indicar el nmero de

registro del fichero, deber estar declarado en la WORKING-STORAGE SECTION como una variable numrica sin signo.

ALTERNATE RECORD KEY.

Esta clusula se utiliza solo para ficheros indexados e identifican una o mas claves alternadas para nuestros registros, por ejemplo en un fichero de clientes cuya clave principal sera el cdigo, podramos asignar como clave alternativa el NIF, y podramos acceder a el por las dos claves, bien por cdigo o bien por NIF, ser tambin alfanumrico y deber tambin estar declarado en la FD. Si aparece WITH DUPLICATES, indica que sta clave alternativa pudiera estar duplicada, por ejemplo si hubiramos escogido como clave alternada adems del NIF, el Nombre del cliente, podra darse el caso de que dos clientes tuvieran el mismo nombre.

FILE STATUS.
Aqu damos el nombre de una variable que especificaremos en la WORKING STORAGE SECTION como un campo alfanumrico de dos caracteres donde el programa depositar el cdigo de error que ocurra en el fichero, dependiendo del valor nosotros podremos operar o hacer alguna accin en concreto.

I-O CONTROL.
Se utiliza para indicarle al programa cuantos archivos van a utilizar el mismo rea de memoria para trabajar. Actualmente no se utiliza mucho debido a la gran potencia de los ordenadores. Un ejemplo de una ENVIRONMENT DIVISION, podra ser la siguiente: CONFIGURATION SECTION. SOURCE-COMPUTER. FSCOBOL. OBJECT-COMPUTER. FSCOBOL. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CLIENTES ASSIGN TO RANDOM "C:DATOSCLIENTES.DAT" ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY KEY-CLIENTE ALTERNATE RECORD KEY-CLIENTE1 FILE STATUS STACLI. SELECT IMPRESORA ASSIGN TO PRINT "PRINTER

DATA DIVISION.
Es la tercera divisin por orden de aparicin, y es donde se declaran absolutamente todos los nombres de campos, registros, variables, es decir donde nombramos cada dato que vayamos a utilizar en nuestro programa. Para almacenar todos estos nombres de datos, sta DIVISION se divide en varias secciones, cada una de ellas orientada a un tipo de datos diferente. WORKING-STORAGE SECTION. Al igual que en la anterior DIVISION ninguna de sus partes es obligatoria, pero si vamos a utilizar alguna variable, aunque solo sea una, tendremos que incluirla en la WORKING-STORAGE SECTION y esto nos obligar tambin a definir la DATA DIVISION. Pasemos a continuacin a explicar ms a fondo cada una de ellas. Esta penltima divisin nos permite definir todos los campos de datos a utilizar. Tambin encontraremos una seccin para transmisin de datos a otros programas. Todos los prrafos de esta divisin son opcionales, aunque en algunos compiladores estos prrafos son obligatorios. Al igual que en la anterior DIVISION ninguna de sus partes es obligatoria, pero si vamos a utilizar alguna variable, aunque solo sea una, tendremos que incluirla en la WORKING-STORAGE SECTION y esto nos obligar tambin a definir la DATA DIVISION. Toda la DATA DIVISION se programa en la zona B.

FILE SECTION.
Aqu describiremos todos los campos que componen los registros de todos los archivos que vayamos a utilizar, que previamente habremos declarado en la INPUT-OUTPUT SECTION dentro de la ENVIRONMENT DIVISION. El resumen de una FILE SECTION podra ser la siguiente: FD Nombre del fichero. BLOCK CONTAINS Nmero de registros por bloque RECORDS RECORD CONTAINS Nmero de caracteres por registro CHARACTERS LABEL RECORD Etiqueta de registro DATA RECORD Nombre del registro. Para identificar el nombre del fichero utilizaremos la clusula FD que previamente habamos descrito en la clusula SELECT de la INPUT-OUTPUT SECTION en la ENVIRONMENT DIVISION.

Cuando queremos que por cada bloque en disco se graben mas de un registro usaremos la clusula BLOCK CONTAINS, en ella especificamos el nmero de registros que pueden caber en cada bloque, (512, 1024), si no se especifica se supone que cada registro va a ocupar un bloque de memoria, o bien ser el propio compilador el que haga el clculo mas apropiado. Para saber el nmero de caracteres que queremos tener en cada registro, usaremos RECORD CONTAINS, que define el nmero de caracteres que tiene el registro sumando todos sus campos, puede ser fija o variable. Si es fija utilizamos un valor y si es variable un rango desde hasta, si no se especfica ser el propio compilador quien la determine. La clusula LABEL RECORD puede tener dos valores STANDARD u OMITTED, el primer caso indica que cada vez que se accede a un registro el compilador har las comprobaciones estandares descritas por el propio compilador y en el segundo stas sern omitidas. Para el caso de los ficheros de datos en disco se suele poner STANDARD y cuando el fichero es de impresora se indica OMITTED. Por ltimo, en DATA RECORD debido a que un mismo fichero puede tener varias descripciones de registro, indicaramos los nombres de stas que debern estar descritas a nivel 01. Normalmente no se utiliza y casi siempre se utilizan una sola descripcin por fichero, por lo que no suele aparecer en casi ningn programa.

WORKING STORAGE SECTION.

Los campos de trabajo que se van creando para el programa. Todos los campos llevarn su nmero de nivel en la zona B, a excepcin de los niveles 01 y 77 que se definirn en la zona A. En ella declararemos todas las variables no referentes a archivos, pero que durante la ejecucin del programa vayamos a utilizar.

LINKAGE SECTION.
Esta es la seccin donde se registrarn las variables que nos servirn para enlazar el programa principal con el que llamemos mediante la orden CALL. Tanto los datos introducidos en la WORKING STORAGE SECTION como los que se encuentra en la LINKAGE SECTION tienen la misma estructura: Nmero de Nivel ...... Nombre de campo ...... PIC, VALUE, REDEFINES, OCCURS, JUST, SIGN, SYNC.

Cada campo declarado debe de llevar un nmero de nivel que le informe al compilador del tipo de campo que es: El nivel 01, identifica la primera entrada de un registro o la primera entrada de un campo que se va a subdividir. El nivel 77, identifica a una variable que no se va a subdividir y que no forma parte de ningn registro. El nivel 88, identifica los posibles valores condicionales de una variable previamente definida. Los niveles 02 al 49 indicarn las distintas subdivisiones de un campo cuya primera entrada ha sido definida a nivel 01. Los niveles 01 y 77 debern de ir siempre en el Area A (Col 8) el resto es independiente. A continuacin pondremos el nombre del campo, que no podr ser ninguna palabra cobol ni llevar ningn carcter extrao, principalmente se utilizarn letras y nmeros o guiones. Es posible que algn campo que definamos nunca vaya a ser usado por el programa pero si en cambio es necesario que exista para que nos reserve el espacio, le llamaremos FILLER. Y finalmente podrn venir clusulas como: PICTURE / PIC esta palabra es la que utilizamos para identificar el tipo de datos que va a contener la variable. Los posibles valores son: DE CAMPOS. 9 - Para campos numricos. A - Para campos alfabticos. X - Para campos alfanumricos. S - Indica variable con signo. V - Indica punto decimal. DE EDICIN. $ - Representa la aparicin del signo $ delante del campo numrico. . - Indica separacin de miles. , - Indica punto decimal. (estas dos pueden variar segn hayamos especificado en SPECIAL-NAMES DECIMAL-POINT IS COMMA). Z - Representa un espacio para el 0 a la izquierda en campos numricos. * - Igual pero se cambia el 0 por *. B - Indica un espacio en blanco.

- + - Indican la aparicin del signo correspondiente. Para indicar la longitud del campo se puede repetir el smbolo tantas veces como longitud tenga o expresarla entre parntesis, es decir para definir una variable alfanumrica de 10 caracteres se pondra: PIC X(10) o PIC XXXXXXXXXX. Los valores S y V solo pueden aparecer una vez por cada variable. Ejemplos del WORKING STORAGE SECTION sern los siguientes: WORKING-STORAGE SECTION. 01 DOMICILIO. 02 TIPO PIC XX. 02 NOMBRE PIC X(20). 02 NUMERO PIC 9(4). WORKING-STORAGE SECTION. 77 FECHA PIC 9(8). 77 FECHA-EDIT PIC ZZ/ZZ/ZZZZ. 77 IMPORTE PIC S9(8)V99. 77 IMPORTE-EDIT PIC ZZ.ZZZ.ZZZ,ZZ-. 01 ESTADO PIC 9. 88 SOLTERO VALUE 1. 88 CASADO VALUE 2. 88 DIVORCIADO VALUE 3. Suponiendo que el valor de FECHA es 01111998 (1 Nov de 1998) y FECHA-EDIT es el mismo, ste ltimo se representara: 01/11/1998. Si IMPORTE es 12815V37 en negativo e IMPORTE-EDIT el mismo, ste se representara: 12.815,37-. VALUE esta palabra a continuacin del PIC indica el valor inicial que contendr la variable hasta que ste sea modificado. WORKING-STORAGE SECTION. 01 RAYA PIC X(10) VALUE "----------". 01 MIWEB PIC X(30) VALUE "www.jlbv.com".

En este caso tenemos una variable llamada RAYA que tiene 10 guiones seguidos. Y Otra variable llamada MIWEB que indica www.jlbv.com REDEFINES esta clusula se utiliza para dar mas de un nombre y formato a un mismo campo. Este debe de ir a continuacin del nombre de campo y antes del nombre del campo a que hace referencia, deben de estar en el mismo nivel y uno a continuacin del otro en el orden de declaraciones. WORKING-STORAGE SECTION. 01 DIAS PIC X(21) VALUE "LUNMARMIEJUEVIESABDOM". 02 DIA REDEFINES DIAS. 02 DIA PIC XXX OCCURS 7 TIMES. La clusula OCCURS nos permite definir una variable da que se va a repetir 7 veces tomando los valores de DIAS debido a la clusula REDEFINES. JUST la justificacin de los valores de los campos suele ser a la izquierda para los alfanumricos y a la derecha para los numricos, si en cambio queremos cambiar este orden tendremos que incluir sta clusula. WORKING-STORAGE SECTION. 01 NOMBRE PIC X(10). 01 NOMBRE1 PIC X(10) JUST RIGHT. USAGE con sta clusula determinamos el formato en que se guarda el contenido de las variables (numricas, ya que las alfanumricas siempre ocuparn un byte por cada carcter). Con todos los campos se puede operar (obviamente) pero solo los que se definan como DISPLAY se podrn editar directamente. Tiene varias posibilidades: DISPLAY, es la forma por defecto e indica que cada dgito ocupar un byte, es la que se toma por defecto y la que memoria ocupa. BINARY, COMP-1, COMP-3, COMP-6, son diferentes formas de compactacin de los datos. COMP6 (la mas usual) guarda dos dgitos en cada byte, COMP-3 es igual pero admite signo el cual ira en los cuatro ltimos bites del ltimo byte. Las restantes formas se utilizan menos. WORKING-STORAGE SECTION. 01 IMPORTE PIC 9(8). Ocupa 8 bytes uno por cada dgito. 01 FECHA PIC 9(8) COMP-6. Ocupa 4 bytes, uno cada 2 dgitos.

01 PRECIO PIC S9(8)V99 COMP-3. Ocupa 6 bytes, uno para los dos decimales, cuatro para la parte entera y uno para el signo. Cuando el tamao es impar el signo no ocupa ya que comparte byte con el ltimo dgito, el punto decimal tampoco ocupa espacio, ya que solo indica su posicin. Estas tres formas que he utilizado son las mas comunes, yo por ejemplo como las capacidades de los ordenadores son tan grandes ahora, cuando defino las variables en la WORKING nunca utilizo ninguna compactacin es decir no utilizo la clusula USAGE (que por cierto y como habris visto se puede omitir) y por defecto toma DISPLAY (un byte por carcter). LINKAGE SECTION. En sta seccin se declaran las variables de igual forma solo que las que aqu declaremos nos van a servir de enlace para pasar informacin a otro programa que ser llamado por el principal. La DATA DIVISION nos sirve para tener todas nuestras variables bien definidas, ya sean independientes o que formen parte de algn fichero para poder operar con ellas en la PROCEDURE DIVISION. Me acuerdo de cuando empezamos a estudiar que para otros lenguajes no era necesaria la declaracin de variables previamente y en cambio ahora en la mayora de los lenguajes se exige que se declaren, eso significa que el Cobol no iba mal encaminado. Tenemos que tener siempre muy claro que con cualquier campo podemos hacer lo que queramos, por ejemplo si en un registro de 120 caracteres nosotros en un programa solo vamos a utilizar los 40 primeros podemos definir todo lo restante como un campo FILLER y listo o viceversa si un campo de un registro lo tenemos definido como alfanumrico de 30 en un programa necesitamos los 10 primeros caracteres por un lado y los veinte restantes por otro, se subdivide para ese programa y no pasa nada. Espero que haya quedado por lo menos medio clara la explicacin de sta tercera DIVISION, evidentemente con la prctica es con lo que mas vamos a aprender siempre claro est que tengamos al menos unas nociones mnimas. Tenemos que tener en cuenta que como en todos los lenguajes, ya sean de programacin o de habla (espaol, ingls, francs) son muchas las opciones que nos ofrecen pero al final siempre utilizamos las que ms nos gustan o las que consideramos ms tiles.

SCREEN SECTION.
En sta seccin podremos describir los atributos y campos a utilizar en las pantallas.

PROCEDURE DIVISION.
Todas las divisiones hasta esta se encargaban de definir las caractersticas del programa. Sin embargo, esta divisin considerada como el verdadero corazn del programa, es donde se programan todos los procedimientos. Aqu se definen todas las funciones del programa, y el ordenador ejecutar todas de forma secuencial de tal forma que el algoritmo tenga una estructura ms o menos lgica con la cual se obtendrn unos resultados correctos o incorrectos dependiendo de si el programa est hecho bien o no. Un resumen de una PROCEDURE DIVISION sera la siguiente: PROCEDURE DIVISION (USING Variable, Variable ...). DECLARATIVES. Nombre-seccionSECTION. USE AFTER ERROR PROCEDURE ON tipo. Nombre-parrafo. Sentencias. ..... END DECLARATIVES. Nombre-seccion SECTION. Nombre-parrafo. Sentencias. ..... PROCEDURE DIVISION (USING Variable, Variable ...). Cuando especificamos USING en la lnea de PROCEDURE DIVISION, despus deberemos de dar los nombres de variables que hayamos definido en la LINKAGE SECTION, para compartir en el programa, lo que nos indicar que ste ha sido llamado por otro programa y que esas variables traern un valor procedente del programa llamador, que a su vez utiliz la instruccin CALL con las mismas variables. DECLARATIVES, es una seccin dentro de la PROCEDURE que nos va a servir para controlar los posibles errores en cuanto al manejo de ficheros se refiere. La lnea de DECLARATIVES, (si se va a utilizar) deber de ir siempre a continuacin de la lnea de PROCEDURE DIVISION. Despus de subdividir en tantas secciones como opciones de error tengamos, stas pueden ser definidas por archivo o bien forma de

apertura, es decir podremos controlar los errores que nos lleguen de un fichero en concreto o de todos aquellos que hayan sido abiertos de de igual forma, esto se especifica en la lnea USER AFTER ERROR PROCEDURE ON tipo, pudiendo ser tipo, el nombre del archivo o su modo de apertura (INPUT, OUTPUT, I-O, EXTEND. A continuacin iran los prrafos con sus respectivas instrucciones a realizar en caso de error. Se pondran tantos prrafos y secciones como quisiramos controlar, siempre teniendo en cuenta que sta se acaba cuando se indique END DECLARATIVES. Si no quisiramos utilizar sta seccin, podramos de igual manera controlar los errores en nuestro programa preguntando siempre por la variable de error de cada fichero que se defini como FILE STATUS en la FILE-CONTROL. Nombre-seccin SECTION, a partir de aqu incluiremos todas las instrucciones necesarias para la correcta ejecucin del programa. Ya sabemos que Cobol es un lenguaje estructurado, pues bien no pensemos que la Procedure va a ser un caos de instrucciones escritas secuencialmente, no, en ella podremos definir tantas Secciones (SECTION) y Prrafos como queramos para organizar mejor las instrucciones y para delimitar acciones concretas, eso si siempre se ejecutarn secuencialmente, excepto cuando encuentre algn verbo de bifurcacin como GO, PERFORM que haciendo referencia a esos nombres de prrafo harn que se rompa la secuencia lgica de ejecucin. Si se especifica (NOT ) se da a entender lo contrario de la comparacin, con lo que no mayor que puede ser igual que menor o igual que. Tambin podemos utilizar para las condiciones complejas los operadores lgicos, AND, OR y NOT segn se requieran, todas las condiciones que incluyan AND han de ser correctas para que pase la condicin, si se utiliza OR solo alguna de ellas ha de ser correcta, cuando se utilice NOT no podr ser correcta para que la condicin sea vlida.

Sentencias bsicas.
Hay dos sentencias bsicas, ACCEPT y COPY, ambas realizan funciones propias sin llamar a otras.

ACCEPT
Nos permite introducir valores en memoria provenientes del teclado. ACCEPT variable CLAUSULAS ... ON EXCEPTION variable instruccin. Aunque la sentencia podra ser la siguiente para obtener el da o la hora del ordenador: ACCEPT variable FROM (DATE, DAY, DAY-OF-WEEK, TIME, CENTURY-DATE, CENTURY-DAY, ESCAPE-KEY, ENVIRONMENT variable de entorno) Segn la opcin escogida, as ser el valor que contendr la variable usada, una vez completada la sentencia. Veamos cada una de las opciones: DATE, devuelve la fecha en formato AAMMDD, por lo que la variable debe de estar definida con PIC 9(6). CENTUY-DATE, igual que DATE, pero acepta la fecha con 8 dgitos en formato SSAAMMDD. Definir con PIC 9(8). DAY, devuelve el ao y el da del ao en que estamos con el formato AADDD, siendo el valor 1, para el 1 de Enero y el 365 el 31 de Diciembre en un ao no bisiesto. Debe de estar definida con PIC 9(5). CENTURY-DAY, igual que DAY, pero acepta 4 dgitos para el ao, quedando el formato AAAADDD. Definir con PIC 9(7). DAY-OF-WEEK, devuelve un dgito que indica el da de la semana, siendo 1 el Lunes, 2 el Martes, y 7 el Domingo. Aqu, la variable debe de estar definida como PIC 9. TIME, devuelve la hora con formato HHMMSSCC, la variable debe de estar como PIC 9(8). ESCAPE-KEY, devuelve el cdigo de la tecla de excepcin pulsada, debe de estar definida con PIC 99 y segn el compilador los valores pueden ser distintos, pero los bsicos suelen ser los mismos, por ejemplo: ENTER=13, FLECHA ARRIBA=52, FLECHA-ABAJO=53 y las teclas de funcin desde F01 hasta F8 tomaran los valores del 1 al 8, TAB=9. ENVIRONMENT "Variable de entorno" nos devuelve el valor que dicha variable tenga asignado, normalmente stas variables se asignan en el fichero de configuracin del compilador o desde una variable del sistema. Puede ser muy til para dar capacidades a usuarios diferentes por ejemplo. Tener en cuenta que la variable de entorno debe de ir entre comillas para que sea reconocida.

DISPLAY
Es la instruccin que usaremos como salida de datos en pantalla. Con ella mostraremos cualquier texto, cualquier variable, cualquier constante o cualquier valor. DISPLAY variable, literal CLAUSULAS ... Casi todas las clusulas de ACCEPT son idnticas a las usadas en DISPLAY, por eso vamos a indicar si aparecen las siguientes en ACCEPT, en DISPLAY o en ambas: LINE variable, constante numrica, (ACCEPT Y DISPLAY) le indicamos la lnea donde se aceptar el campo, puede ser una variable o un nmero, tendremos siempre en cuenta que la lnea 1 ser la primera de arriba de la pantalla, normalmente podremos trabajar con 24 lneas. Si no se especfica tomar la referencia de la siguiente lnea en la que estemos. COLUMN, COL, POSITION variable, constante numrica, (ACCEPT Y DISPLAY) aqu le indicamos la columna dentro de la lnea y sus valores pueden ser desde 1 (izquierda) hasta 80 (derecha) de la pantalla. En algunos terminales es posible capturar 132 columnas. Si no se especifica tomar el valor 1. BEEP, NO BEEP, (ACCEPT Y DISPLAY) con sta opcin le indicamos si queremos o no que emita un pitido al llegar al comando. Por defecto sonar. BLINK, (ACCEPT Y DISPLAY) si aparece sta clusula, el campo que aceptemos parpadear. HIGH, LOW, OFF, (ACCEPT Y DISPLAY) le indicamos el nivel de luminosidad con que se acepta el campo, solo puede ir especificado uno: HIGH con brillo, LOW sin brillo, OFF hace que los datos que introducimos no se vean, se utiliza cuando queremos aceptar una contrasea o alguna clave, en la pantalla no aparecen los datos que vamos introduciendo. Si no indicamos ninguna el sistema coge HIGH por defecto. TAB, (ACCEPT) la presencia de sta clusula hace que no salte al siguiente campo hasta que no pulsemos ENTER. Por defecto al introducir el nmero de caracteres o dgitos del campo salta automticamente. TIME variable, constante numrica, (ACCEPT) conseguiremos que la espera para introducir el campo sea limitada y vendr dada por el valor que le asignemos. El valor se indica en centsimas de segundo. CURSOR variable, (ACCEPT) si especificamos sta clusula, el sistema guardar en la variable la posicin donde se ha terminado la introduccin de los datos. Por ejemplo si aceptamos un campo de PIC X(40) y solo rellenamos 9 caracteres, el valor de la variable asociada a CURSOR ser de 10. ERASE, haremos que se borra toda la pantalla. ERASE EOL, (ACCEPT Y DISPLAY) le indicamos que borre la lnea sobre la que estamos desde la posicin del ACCEPT.

ERASE EOS, (ACCEPT Y DISPLAY) le indicamos que borre toda la pgina desde la posicin de la lnea en la que estamos. PROMPT carcter, (ACCEPT) conseguimos que rellene con algn carcter especfico o por defecto el cursor bajo (_) la longitud del campo que vamos a aceptar. Es bastante til ya que el usuario puede ver claramente la longitud del campo. ECHO, (ACCEPT) con sta clusula hacemos que vuelva a "pintar" el contenido del campo despus de aceptado. Es decir si le hemos puesto PROMPT ECHO, mientras se acepta saldrn los guiones bajos para indicar el tamao pero al salir del campo se volver a mostrar y estos guiones desaparecern. REVERSE, (ACCEPT Y DISPLAY) conseguimos que el campo que aceptamos se vea en video inverso, si normalmente es blanco sobre negro, se har negro sobre blanco, y si tenemos otros colores, pues en su color inverso. SIZE variable, constante numrica, (ACCEPT) variamos el tamao de la variable que tenamos declarado. Por ejemplo si definimos una variable con PIC X(40) y le indicamos al aceptarla SIZE 10, solo aceptar 10 caracteres para esa variable. CONVERT, (ACCEPT Y DISPLAY) con sta clusula conseguimos que si estamos aceptando un campo numrico o alfabtico, e introducimos un valor no aplicable, lo ignore. Por ejemplo si introducimos una letra en un campo numrico ser ignorada si CONVERT aparece. UPDATE, (ACCEPT) hace que el valor actual del campo aparezca y al aceptar podamos modificar sobre su contenido actual. Es muy aconsejable cuando estamos modificando datos. CONTROL tipo de control, (ACCEPT Y DISPLAY) sta clusula es bastante amplia y en ella podemos atribuir otras opciones como caracteres grficos, colores, etc.. Su uso puede variar segn los compiladores. Mas abajo encontrareis mas informacin. ON EXCEPTION variable instruccin (ACCEPT) si al aceptar el campo introducimos una de las teclas que causa excepcin, es decir que no es reconocida dentro de la tabla de caracteres admitida, el valor de la tecla se guardar en la variable que definamos y a continuacin podremos realizar una instruccin. Por ejemplo si estamos aceptando un campo con PIC X(40) y cuando estamos metiendo su valor pulsamos la tecla escape, si tenemos sta clusula puesta la variable tomar el valor 27 (correspondiente a la tecla escape) y a continuacin se ejecutara la instruccin que hubiramos puesto. Decir que la variable debe de estar definida con PIC 9 COMP-1. UPPER, LOWER, (ACCEPT) con stas opciones obligamos a que el valor del campo aceptado est en Maysculas (UPPER) o Minsculas (LOWER).

Color Negro Azul Verde Celeste Rojo Morado Marrn Blanco

Letra 1 2 3 4 5 6 7 8

Fondo 32 64 96 128 160 192 224 256

COLOR, (ACCEPT y DISPLAY) clusula propia de AcuCobol con la que conseguimos aceptar el campo con un determinado color, dependiendo de una tabla para asignacin de colores. El color se consigue sumando los colores de fondo y de letra. Por ejemplo, si queremos poner fondo azul y escribimos 72, deducimos ya que 72 menos 64 son 8 que el color de la letra es el blanco, TOTAL = LETRA + FONDO. REQUIRED, (ACCEPT) con sta opcin obligamos al usuario a que no deje el campo en blanco e introduzca cualquier dato. FULL, (ACCEPT) obligamos a que una vez empecemos a introducir un campo, este no se acepte hasta que est completo, es decir si aceptamos una variable con PIC X(30), mientras no introduzcamos los 30 caracteres no nos dejar seguir.

COPY
Sirve para ahorrar espacio en el disco, usando el cdigo escrito en el fichero de forma temporal cuando se utiliza esta instruccin. COPY fichero1.

MOVE
Es la instruccin que usaremos para enviar datos de una variable a otra u otras. Lo que en realidad hace es que la una variable adquiera un valor determinado, ya sea procedente de otra variable o bien desde un valor fijo o constante. MOVE variable, valor TO variable, variable, variable, .... Con este formato, todas las variables anteriores al TO tomarn el valor que tenemos en la variable o el valor indicado despus de MOVE. Los campos numricos siempre se van a alinear a la derecha, respetando la posicin del punto decimal si lo hubiera. Si la variable que recibe el campo es mas pequea, evidentemente se perdern los que no quepan y si es mas grande el resto se pondr a ceros. Si adems el campo al que se mueven los datos es de edicin, al hacer el paso del valor, este a su vez se formatear con la edicin declarada en la WORKING. Si son alfanumricos la alineacin se efectuar a la izquierda a menos que se haya especificado en la WORKING, al definirla, una justificacin a la derecha (JUST RIGHT). Al igual que en los numricos si es mas pequeo se perdern los caracteres que no quepan y si es mas grande el resto ir relleno de espacios en blanco. MOVE CORR Identificador1 TO Identificador2 Agregando CORR a la instruccin conseguimos mover de una sola vez un valor entre identificadores siempre que los campos que contengan tengan el mismo nombre. Estos identificadores no pueden ir en niveles 66, 77 ni 88. El efecto es el mismo que si hiciramos tantos MOVE normales como campos iguales tuviera el identificador. No es muy usual, pero si hay casos en los que puede ser razonable su uso.

INITIALIZE
Se utiliza para inicializar variables segn su descripcin, es decir pondr a ceros todas las variables numricas o de edicin y a espacios en blanco las alfabticas y alfanumricas. No funciona con campos definidos como FILLER, (evidente). Y puede ser muy til para inicializar tablas completamente cuando nos referimos al nivel ms alto de la misma.

INSPECT
sta sentencia se utiliza para contar, reemplazar o contar y reemplazar caracteres o grupos de caracteres dentro de un campo. Se puede contar las veces que aparece un carcter, o cambiar todos esos caracteres por otros, entre otras cosas. INSPECT campo1 TALLYING variable1 FOR ( CHARACTERS) (( BEFORE/AFTER) INITIAL) Cadena1 (ALL)(LEADING) Cadena2 ... Este formato es el utilizado para contar el nmero de veces que aparece Identificador1 en el campo1 y guardar el valor en la variable1 que previamente hayamos definido en la WORKING. WORKING-STORAGE SECTION. 77 TEXTO PIC X(15) VALUE "PAGINA DE COBOL". 77 CONTA PIC 9(8). ... PROCEDURE DIVISION. INICIO. INSPECT TEXTO TALLYING CONTA FOR CHARACTERS. ... El valor de CONTA ser de 15 que son los caracteres que tiene la variable TEXTO. INSPECT TEXTO TALLYING CONTA FOR ALL "A". ... El valor de CONTA ser de 2 que son las veces que aparece la letra A en la variable TEXTO. INSPECT TEXTO TALLYING CONTA FOR LEADING "A". ...

El valor de CONTA ser de 0 porque no aparece ninguna A en el primer carcter de la variable TEXTO. INSPECT TEXTO TALLYING CONTA FOR ALL "A" BEFORE INITIAL "N". ... El valor de CONTA ser de 1 que son las veces que aparece la letra A en la variable TEXTO hasta la aparicin del carcter N. INSPECT TEXTO TALLYING CONTA FOR ALL "A" AFTER INITIAL "G". ... El valor de CONTA ser de 1 que son las veces que aparece la letra A en la variable TEXTO, empezando a contar desde el carcter G. Otro formato para la instruccin que nos permitir reemplazar ser: INSPECT campo1 REPLACING variable1 CHARACTERS BY Cambio1 (( BEFORE/AFTER) INITIAL)Cadena1 (ALL)(LEADING)( FIRST) Cadena2... Con este formato podemos cambiar caracteres de Campo1. Su funcionamiento es igual que el anterior formato solo que en vez de contar reemplaza. Se ha incluido solo FIRST, que indicara que solo se reemplazara la primera vez que coincidieran las condiciones. El tamao de la sustitucin debe de ser igual al tamao sustituido, ya que la variable campo1 no puede cambiar su tamao.

INSPECT campo1 CONVERTING Identificador1 TO Identificador2 (( BEFORE/AFTER) INITIAL) Cadena1 ... Con este formato convertimos los caracteres que se especifiquen en identificador1 por los que pongamos en identificador2, respetando el orden.

... WORKING-STORAGE SECTION. 77 TEXTO PIC X(15) VALUE "PAGINA DE COBOL". ... PROCEDURE DIVISION. INICIO. INSPECT TEXTO CONVERTING "AO"TO "12". ... El valor de TEXTO ser "P1GIN1 DE C2B2L", convertir todas las A por 1 y todas las O por 2. INSPECT TEXTO CONVERTING "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO

"abcdefghijklmnopqrstuvwxyz". ... El valor de TEXTO ser "pagina de cobol" ya que ha convertido todas las letras maysculas por minsculas.

STRING
Se utiliza para unir o concatenar campos o partes de estos y el resultado almacenarlo en otro campo. En la unin se pueden incluir tanto variables como literales o constantes de texto. STRING campo1, literal1 DELIMITED BY (campo2, literal2)(SIZE) INTO Campo3 (WITH POINTER Identificador1) (ON OVERFLOW Sentencia1) (NOT ON OVERFLOW Sentencia2) DELIMITED BY, indica hasta donde vamos a "coger" del campo para concatenar sin contar ese carcter o cadena que se especifique en campo2 o literal2, es decir si tenemos un campo con un valor = "HOLA" y especificamos DELIMITED BY "L" a la hora de la concatenacin nos hubiera cogido solo el HO, ya que al encontrarse la primera L hubiera parado. SIZE, indica que se pasar todo el contenido del campo1 o literal1 sin limitaciones. INTO, con esto indicamos en que variable se guardar el resultado, campo3.

WITH POINTER, si incluimos esta clusula el valor de identificador1 ser en la posicin en que empezar a contener datos la variable que recibe el STRING. Ese identificador1 debe estar definido como binario. Por defecto el valor es 1. ON OVERFLOW, se ejecutara Sentencia1 si hubiera habido un error al hacer la concatenacin, por ejemplo si se especifica Identificador1 con un valor superior al tamao del Campo3. NOT ON OVERFLOW, se ejecutar Sentencia2 si no existe error en la operacin. WORKING-STORAGE SECTION. 01 LAFECHA. 02 FILLER PIC X(7) VALUE "HOY ES ". 02 LDIA PIC Z9. 02 FILLER PIC X(4) VALUE " DE ". 02 LMES PIC X(10). 02 FILLER PIC X(4) VALUE "DE ". 02 LANIO PIC 9999. 01 FECHA. 02 DIA PIC 99 VALUE 22. 02 MES PIC 99 VALUE 06. 02 ANIO PIC 9999 VALUE 2001. 01 CONSTRING PIC X(40). 01 TABLAMES. 02 FILLER PIC X(30) VALUE "ENERO 02 FILLER PIC X(30) VALUE "ABRIL 02 FILLER PIC X(30) VALUE "JULIO 01 LATABLA REDEFINES TABLAMES. 02 TMES PIC X(10) OCCURS 12 TIMES. 01 PUNTO PIC 9(4) BINARY. ... PROCEDURE DIVISION. INICIO. MOVE DIA TO LDIA. MOVE TMES (MES) TO LMES. FEBRERO MARZO MAYO JUNIO ". ".

AGOSTO SEPTIEMBRE".

02 FILLER PIC X(30) VALUE "OCTUBRE NOVIEMBREDICIEMBRE ".

MOVE ANIO TO LANIO. MOVE 4 TO PUNTO. STRING "HOY ES " DIA " DE " DELIMITED BY SIZE ... TMES (MES) DELIMITED BY " " " DE " ANIO DELIMITED BY SIZE INTO CONSTRING WITH POINTER PUNTO.

UNSTRING
Hace exactamente lo contrario que haca STRING, es decir divide el contenido de un campo en otros. UNSTRING campo1, literal1 DELIMITED BY (campo2, literal2)(ALL) OR (campo2, literal2)(ALL) (Se puede repetir de nuevo) INTO Campo3, Campo4, .... ( DELIMITER Identificador1) ( COUNT Identificador2) (Se puede repetir de nuevo) (WITH POINTER Identificador3) (TALLYING Identificador4) ( ON OVERFLOW Sentencia1) ( NOT ON OVERFLOW Sentencia2) DELIMITED BY, indica el lmite hasta donde vamos cogiendo el campo1 para partirlo. Igual que en STRING, solo que con la funcin a la inversa. OR, es igual que DELIMITED y se utiliza si hay varios delimitadores sobre los que buscar. INTO, indica en que campo o campos se guardar la informacin que vaya fragmentando. DELIMITER, va a contener en cada caso el elemento separador, si hemos incluido en DELIMITED varios, Identificador1 guardar el carcter que de los elegidos ha sido el causante de la fragmentacin.

COUNT, cuenta el nmero de caracteres incluidos en la fragmentacin. DELIMITER y COUNT, se podrn usar si se ha especificado DELIMITED. Podemos usar tantos DELIMITER y COUNT como campos se vayan a crear en la fragmentacin. TALLYING, si especificamos esta opcin la instruccin nos guardar en Identificador4 el nmero de campos que se han utilizado en la fragmentacin. POINTER, indica desde que posicin va a ser examinado el campo que desea desfragmentar, por defecto su valor es 1, es decir desde el primer carcter. ON OVERFLOW, se ejecutara Sentencia1 si hubiera habido un error al hacer la operacin. NOT ON OVERFLOW, se ejecutar Sentencia2 si no existe error en la operacin.

Sentencias de control. IF ... THEN ... ELSE

Esta es la sentencia de control de ms importancia ya que permite dependiendo de una condicin elegir un camino u otro. Su sintaxis es la siguiente: IF Condicin THEN {Sentencia1 / NEXT SENTENCE} ELSE {Sentencia2 / NEXT SENTENCE} Las condiciones se consiguen enfrentando dos variables mediante las condiciones <, > o =. Como condiciones especiales nos podemos encontrar con: IF Identificador IS [NOT] {POSITIVE / NEGATIVE / ZERO}. Para saber si un identificador es o no positivo, negativo o neutro. IF Identificador IS [NOT] {ALPHABETIC / NUMERIC}. Para saber si el identificador es o no letra o nmero.

PERFORM
Esta sentencia nos permite ejecutar un prrafo en cualquier momento, y con la opcin TIMES lo podemos realizar varias veces consecutivas. PERFORM Prrafo1 [THRU Prrafo2] {Identificador / Entero} TIMES Si quisiramos reiterar la ejecucin del prrafo especificado hasta que se cumpla la condicin impuesta. PERFORM Prrafo1 [THRU Prrafo2] VARYING Identificador1 FROM Identificador2 BY Identificador3 UNTIL Condicin.

STOP
Indica el final del programa y su aparicin hace volver al sistema operativo. STOP RUN. Si quisiramos que nos indicara un valor al terminarse el programa usaramos: STOP Literal

Instrucciones Matemticas.
Debido a que el lenguaje Cobol fue concebido para la gestin de grandes cantidades de datos y a resolver problemas de tipo comercial y de administracin, no se incluyeron dentro de sus especificaciones verbos que nos pudieran ayudar a resolver clculos complejos como integrales, trigonometra, races cuadradas, etctera, sino simplemente las orientadas a los clculos bsicos, suma, resta, multiplicacin y divisin que son las que vamos a ver a continuacin:

ADD
Aade el valor de dos identificadores o ms a otro identificador. Este valor puede estar o no redondeado: ADD Identificador1, Identificador2 [, Identificador3 ... ]TO IdentificadorX [ROUNDED] [IdentificadorY [ROUNDED] ... ] [ON SIZE ERROR Declaracin]. Otra opcin permite guardar la suma de dos o ms identificadores a otro: ADD Identificador1, Identificador2 [, Identificador3 ...] GIVING Identificador X [ROUNDED]. Si queremos sumar variables de grupo, usaremos otra sentencia de tipo ADD: ADD {CORRESPONDING / CORR} Identificador1 TO Identificador2 [ROUNDED] [ON SIZE ERROR Declaracin]. Un ejemplo de instrucin de ADD sera el siguiente: WORKING-STORAGE SECTION. 01 VALORES. 02 UNO PIC 99 VALUE 10. 02 DOS PIC 9(6) VALUE 280. 02 TRES PIC 9(4) VALUE 540. 01 OTROS OTRO1 PIC 9. 02 DOS PIC 9(6) VALUE 110. 01 RESULTADO PIC S9(8) VALUE 10. 01 RESTO PIC 99. PROCEDURE DIVISION.

INICIO. Tres afirmaciones se podran decir del resultado: ADD UNO TRES 5 TO RESULTADO. Esta instruccin suma UNO, TRES y el valor 5 al valor contenido en RESULTADO, donde se guarda. ADD UNO TRES 5 GIVING RESULTADO. Esta instruccin suma UNO, TRES y el valor 5, guardando el resultado en la variable RESULTADO.

ADD CORR VALORES TO OTROS. Esta instruccin incrementa las variables que aparecen en ambos por medio de su suma, en este ejemplo se suma DOS de VALORES de DOS de OTROS, donde se guardan los resultados.

SUBTRACT
Funciona exactamente igual que la instruccin ADD en cada una de sus tres modalidades con la diferencia de que en este caso lo que hace es que va restando. SUBTRACT UNO TRES 5 FROM RESULTADO. Se encargar de restar las tres variables al valor de RESULTADO, guardndose en esta variable. SUBTRACT UNO 5 FROM TRES GIVING RESULTADO. Restamos en este caso a TRES las variables UNO y el valor 5, guardndolo en la variable RESULTADO. SUBTRACT CORR VALORES FROM OTROS. Restamos las variables que tengan el mismo nombre en VALORES y OTROS.

MULTIPLY
Esta instruccin nos permite multiplicar dos valores y guardar el resultado en el segundo de ellos: MULTIPLY Identificador1 BY Identificador2 [ROUNDED] [ON SIZE ERROR Declaracin] Una segunda posibilidad sera la de multiplicar dos valores y guardarlas en un tercer identificador. Pg. 35

MULTIPLY Identificador1, Identificador2 GIVING Identificador3 [ROUNDED] [ON SIZE ERROR Declaracin] Tambin se pueden multiplicar todos los valores que estn acordes con un nombre: MULTIPLY {CORRESPONDING / CORR} Identificador1 BY Identificador2 [ROUNDED] [ON SIZE ERROR Declaracin] MULTIPLY 5 FROM RESULTADO. Multiplica 5 por el valor de RESULTADO, guardando el resultado en RESULTADO. MULTIPLY 5 BY TRES GIVING RESULTADO. Multiplica 5 por el valor de TRES guardndolo en RESULTADO.

DIVIDE
Funciona exactamente igual que la instruccin MULTIPLY solo que dividiendo. Tendramos que sustituir la palabra MULTIPLY por DIVIDE para obtener estos resultados. DIVIDE 10 INTO TRES. Divide 10 entre TRES y guarda el resultado en TRES. DIVIDE 7 INTO TRES GIVING RESULTADO REMAINDER RESTO. Divide 7 entre TRES, guardando el resultado en RESULTADO y el resto en RESTO.

COMPUTE
Esta orden nos permite realizar todos los clculos aritmticos posibles en una sola instruccin, utilizando los operadores +(suma) -(resta) *(multiplicacin) /(divisin) **(potenciacin), adems de utilizar parntesis para especificar mejor la operacin a realizar. COMPUTE Variable (ROUNDED) = ExpresinAritmtica (ON SIZE ERROR) Instruccin COMPUTE RESULTADO = (DOS OF VALORES **2) / 100.

Pg. 36

Manipulacin de tablas.
Si usamos tablas somos capaces de reducir una gran cantidad de informacin agrupada por su rasgo en comn. Las tablas El ejemplo ms usual de tabla suele ser la de los meses. El ordenador siempre nos devuelve un nmero del 1 al 12, sin embargo intentamos mostrar este nmero por pantalla siempre que podemos con los nombres que van desde Enero hasta Diciembre. 01 TABLA-MES 02 ELEMENTO-TM OCCURS 12. 03 COD-MES PIC 99. 03 LIT-MES PIC X(10). La forma bsica de creacin de tablas es la siguiente: WORKING STORAGE SECTION. 01 VALORES-TABLA-MES. 02 FILLER PIC 99 VALUE 1. 02 FILLER PIC X (10) VALUE Enero. 02 FILLER PIC 99 VALUE 2. 02 FILLER PIC X (10) VALUE Febrero. Una forma ms reducida de definir la tabla sera: WORKING STORAGE SECTION. 01 VALORES-TABLA-MES. 02 FILLER PIC X(13) VALUE 01 Enero. 02 FILLER PIC X(13) VALUE 02 Febrero. O la forma ms reducida de todas: WORKING STORAGE SECTION. 01 VALORES-TABLA-MES. 02 FILLER PIC X (156) VALUE 01 ENERO 02 FEBRERO ... .

Pg. 37

Pero la forma de definirlo sera la siguiente: WORKING STORAGE SECTION. 01 TABLA-MES REDEFINES VALORES-TABLA-MES. 02 ELEMENTO-TM OCCURS 12. 03 COD-MES PIC 99. 03 LIT-MES PIC X (10). Un ejemplo completo de ejercicio hecho con tablas es el siguiente: 01 TABLA. 02 TRABAJADORES OCCURS 100 TIMES 03 NOMBRE 03 NIF ... ASCENDING KEY NOMBRE INDEXED BY SUB1. PIC X(30). PIC X(10).

PROCEDURE DIVISION. ...

BUSCAR. SEARCH ALL ELEMENTOS AT END GO NOEXIS WHEN NOMBRE (SUB1) = "PACO PEREZ" GO EXISTE.

NOEXIS. DISPLAY "TRABAJADOR INEXISTENTE" LINE 1. GO FIN. EXIS. DISPLAY "EL NIF DEL TRABAJADOR ES ." LINE 2. DISPLAY NIF (SUB1) LINE 2 COL 30. ...

Pg. 38

Ficheros de entrada y salida.

Cobol no solo es un lenguaje de programacin, sino que adems de las instrucciones de programacin tiene un gran administrador de ficheros. Esta es una gran diferencia con el resto de lenguajes de programacin, ya que el resto de lenguajes depende de bases de datos y herramientas externas. Cobol tiene una diferencia con el resto de bases de datos, y es que al estar hecho el lenguaje y la gestin de datos en el mismo programa, la fiabilidad de estos es mayor al del resto de programas. A tomar muy en cuenta es la facilidad de creacin de archivos indexados. A diferencia de los otros lenguajes de programacin. Los ficheros que se hacen en este lenguaje son bastante ms eficaces que los que se hacen en el resto de lenguajes. Los ficheros indexados de Cobol, pueden dividir el fichero en dos archivos fsicos, uno para las claves y otro para los datos, otros en cambio lo guardan todo en uno mismo, pero eso no significa que no lo haga igual, sino que al usuario solo le muestra un fichero fsico, que puede resultar mas cmodo. Cuando se graba un nuevo registro, ste se ordena automticamente en orden ascendente por la clave principal. Luego podremos modificar tantas veces como deseemos los datos, pero la clave nunca se podr alterar. Si queremos cambiar la clave, tendremos que borrar el registro y grabar otro con la clave deseada. De esa manera Cobol se asegura el perfecto funcionamiento de su sistema de ndices. La parte de ndices es como una tabla con las posiciones de memoria de los datos que le corresponden. Si el fichero est abierto en modo I-O y se produce una salida brusca del programa o un corte de luz, puede ocurrir que esa informacin sobre los datos que corresponden a cada ndice se alteren y de ah el famoso y terrible error 98. Por eso se aconseja siempre leer el fichero abierto slo como Input (modo de lectura) y abrirlo como I-O (modo de escritura) slo en el preciso momento de grabar o borrar su contenido. Lo realmente importante para Cobol cuando crea un fichero, es el tamao del registro y el de la clave en bytes. El resto le da igual, incluso la estructura se puede definir de maneras totalmente diferentes. Para Cobol, si generamos un fichero con un registro de 128 posiciones, eso es lo que guarda, si nosotros le indicamos que el nombre ocupa 40 y comienza en la posicin 18 perfecto, pero si la prxima vez le indicamos otra estructura el tambin la aceptar. Una posibilidad que ofrece COBOL es la posibilidad de incluir claves alternativas, las cuales nos dan la posibilidad de acceder al fichero indexado por mas de un ndice, con lo que la rapidez de acceso se incrementa muchsimo. Si indexamos un fichero de ventas, cuya clave es el nmero de factura, pero en su registro tambin guardamos la fecha, el cliente, el artculo, etctera. Si ahora quisiramos listar todos los registros de ventas

Pg. 39

relativos a un solo clientes y no existieran las claves alternativas, tendramos que leer todo el fichero para saber de que cliente es cada factura e imprimir solo esos registros. Con una clave auxiliar podemos posicionarnos directamente en el cliente en concreto y leer secuencialmente por esa clave, con lo cual tendremos una relacin de todas sus facturas directamente hasta que el cliente cambie. La programacin en COBOL permite que creando una clave auxiliar, el ordenador no tenga que realizar dos tablas iguales pero indexadas cada una de una forma diferente, por lo que estas tablas no tendrn que ocupar el doble de espacio de disco. Un ejemplo de fichero indexado con clave auxiliar ser el siguiente: SELECT FICHERO ASSIGN TO RANDOM FICHERO.DAT ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY DNI ALTERNATE RECORD KEY NOMBRE WITH DUPLICATES FILE STATUS STA-FICHERO.

FD FICHERO LABEL RECORD STANDARD. 01 REG-FICHERO. 02 DNI PIC 9(5). 02 NOMBRE PIC X(30). 02 DOMICILIO PIC X(30). 02 POBLACION PIC X(20).

OPEN
OPEN (EXCLUSIVE ) modo nombre de archivo ( WITH LOCK) (WITH NO REWIND) Se utiliza para abrir archivos. Estos archivos podrn ser de los siguientes tipos: INPUT, el archivo se abrir solo para lectura, es decir no podremos grabar ni modificar datos del mismo. I-O, el archivo se abrir como lectura y escritura, con lo cual tendremos acceso a toda la informacin de dicho archivo para leerla, escirbirla, reescribirla o borrarla.

Pg. 40

OUTPUT, el archico se abre solo para escritura, es el formato que se utiliza en los achivos de impresin y secuenciales. Tiene la particularidad que crea el fichero nuevo cada vez que se utiliza, por lo tanto hay que tener cuidado con archivos Indexados. EXTEND, igual que el anterior pero no crea el archivo, sino que la informacin se va aadiendo a la ya existente. Se utiliza para archivos secuenciales. Los ms utilizados son INPUT e I-O, ya que son los que funcionan de forma correcta con los archivos indexados que son los ms utilizados en COBOL. Las opciones EXCLUSIVE y WITH LOCK, nos indica cuando trabajamos en multipuesto que ste archivo estar bloqueado, es decir que no estar disponible para otros usuarios. El hecho de que existan dos opciones para lo mismo es por compatibilidad con versiones anteriores. La opcin WITH NO REWIND, se utiliza cuando utilizamos archivos de cinta, para que no la rebobine al abrirla.

CLOSE
Es la instruccin contraria a OPEN, y con la cual termina la conexin establecida con el archivo. A partir del momento que aparezca sta instruccin el archivo no estar disponible para operar con l, hasta la prxima vez que se abra. Obviamente antes de cerrarlo debe de estar abierto. CLOSE nombre de archivo ( WITH LOCK) (WITH NO REWIND ) El nombre de archivo corresponder a algn archivo abierto anteriormente. Las opciones WITH LOCK y WITH NO REWIND , tienen la misma explicacin que la vista en la orden OPEN.

READ
Es la instruccin que utilizamos para leer registros de un archivo que debe de estar abierto. Con ella conseguimos que los datos referentes al registro accedido queden en la descripcin de dicho fichero, es decir, conseguimos que los campos declarados en la FD, tengan el valor correspondiente al registro ledo. La sentencia READ, se utiliza para leer ficheros de forma secuencial o indexada. Formato para leer ficheros de manera secuencial. (Indexados o secuenciales)

Pg. 41

READ nombre de archivo ( NEXT/PREVIOUS RECORD) ( INTO descripcin) (AT END / NO AT END sentencia) END-READ nombre de archivo corresponder a algn archivo abierto anteriormente. La opcin NEXT RECORD, indica que se va a leer el siguiente registro y es la que se toma por defecto, ya que, cuando estamos leyendo un archivo de forma secuencial, ste leer registros uno tras otro, hasta llegar al final. La opcin PREVIOUS RECORD leera el registro anterior. Esta opcin es la nica que no es vlida para ficheros secuenciales de ste formato. La opcin INTO, indica cual de las descripciones de registro que hayamos podido declarar ser la que almacene los datos del registro leido. Tenemos que tener en cuenta que Cobol nos permite mantener mas de una descripcin de registro para un mismo archivo. Si tuvieramos mas de una, sta sera la opcin para indicarle cual es la que queremos utilizar en sta lectura. La sentencia que va despus de AT END , indica que debe de hacer el programa al llegar al final del fichero. Puede ser cualquier orden de cobol, pero es evidente que si volvemos a leer una vez llegado al final, producir un error. Formato para leer ficheros indexados con acceso aleatorio. READ nombre de archivo (INTO descripcin) (KEY nombre de clave) ( INVALID KEY / NOT INVALID KEY sentencia) END-READ Las opciones que se repiten con el formato anterior tienen el mismo formato y producen el mismo resultado. La opcin KEY, indica por que clave se va a leer el fichero, siempre que ste tenga ms de una. La sentencia despus de INVALID KEY se utiliza para ejecutar una accin cuando se intenta acceder a un registro que no existe. En el caso de utilizar NOT INVALID KEY sera al contrario, es decir cuando el registro existe.

WRITE
Con sta instruccin se consigue grabar la informacin contenida en ese momento en los campos del registro de un fichero. Es decir, si introducimos una ficha nueva en la agenda con los datos de un nuevo amigo, sta instruccin ser la que nos sirva para almacenar en el fichero los datos. A partir de ese momento Pg. 42

estarn disponibles tantas veces como queramos para leerla. Y por supuesto el fichero debe de estar abierto como OUTPUT, EXTEND o I-O. WRITE nombre de registro ( FROM descripcin) ( INVALID KEY / NOT INVALID KEY sentencia) END-WRITE La opcin FROM, indica con cual de las descripciones de registro que hayamos podido declarar se graben los datos en el fichero. Hay que sealar que sta descripcin puede estar definida en la WORKING, y lo que nos ahorra en realidad es mover los datos de esa descripcin que hemos usado como "temporal" a la autntica descripcin del registro. Las clusulas de INVALID KEY y NOT INVALID KEY, tienen la misma funcin dada en la instruccin READ. Solo que aqu, INVALID KEY, se producira cuando al grabar el registro, ste ya existiese o hubiera algn error por el cual no se pudieran grabar los datos. Si lo que queremos es imprimir, tambin usaremos la clusula WRITE, pero de una forma algo diferente a la anterior, aadiendo AFTER y PAGE. WRITE nombre de registro ( FROM descripcin) ( AFTER nmero de lineas)(PAGE) END-WRITE Adems para ste formato tendremos la clusula AFTER, en la cual indicamos el nmero de lineas que debe de avanzar la impresora antes de escribir, o bien que lo haga directamente al principio de la siguiente pgina, poniendo AFTER PAGE. Tambin estara bien recordar que habr que introducir el siguiente cdigo: FILE-CONTROL. SELECT IMPRESORA ASSIGN TO PRINT "LPT1". ... PROCEDURE DIVISION. ... OPEN OUTPUT IMPRESORA

Pg. 43

REWRITE
sta instruccin se utiliza para volver a grabar datos de un registro ya existente. Toda la sintaxis es exactamente igual que la explicada en WRITE, por lo que no hace falta repetirla.

DELETE
Es una instruccin que permite borrar registros de un fichero. Su sintaxis es la siguiente: DELETE nombre de fichero (INVALID KEY / NOT INVALID KEY sentencia) END-DELETE Las nicas clusulas INVALID y NOT INVALID KEY, se usan exactamente igual que en las dems relativas a ficheros, es decir ejecutar la sentencia que pongamos a continuacin cuando una de las condiciones se cumpla, que la clave exista o que no exista. Si nos fijamos vemos que la gran diferencia est en que aqu la orden hace referencia al nombre del fichero y no al del registro, como en las instrucciones anteriores.

START
Es la instruccin que nos permite posicionarnos en cualquier parte del fichero, para una lectura mas rpida. Si imaginamos un fichero con 10.000 clientes, clasificados por cdigo, para ver todos los que cuyo cdigo es mayor a 9.000, tendramos que leernos el fichero secuencialmente hasta llegar al sitio correcto, en cambio con sta orden, podremos colocarnos en la posicin del fichero que queramos dentro de unas normas, que veremos a continuacin. START nombre de fichero KEY (expresin) nombre de clave ( INVALID KEY / NOT INVALID KEY sentencia) END-START Las nicas clusulas INVALID y NOT INVALID KEY, se usan exactamente igual que en las dems relativas a ficheros, es decir ejecutar la sentencia que pongamos a continuacin cuando una de las condiciones se cumpla, que la clave exista o que no exista.

Pg. 44

Si nos fijamos vemos que la gran diferencia est en que aqu la orden hace referencia al nombre del fichero y no al del registro, como en las instrucciones anteriores. La expresin a la que se hace referencia en la sintaxis, pueden ser las siguientes: LESS (<) menor que. NOT LESS (NOT <) no menor que. EQUAL (=) igual a. GREATER (>) mayor que. NOT GREATER (NOT >) no mayor que. GREATER OR EQUAL (>=) mayor o igual que. LESS OR EQUAL (<=) menor o igual que. FIRST principio de fichero (RM/COBOL). LAST final del fichero (RM/COBOL).

Pg. 45

Ejemplo completo de programa con ficheros:

IDENTIFICATION DIVISION. PROGRAM-ID. TRASPASO.

ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CLIENTES ASSIGN TO RANDOM "CLIENTES.DAT" ORGANIZATION INDEXED ACCESS DYNAMIC RECORD CLA-CLI FILE STATUS STA-CLI. ORGANIZATION LINE SEQUENTIAL.

SELECT TRASPASO ASSIGN TO RANDOM ELNOMBRE

DATA DIVISION. FILE SECTION. FD CLIENTES LABER RECORD STANDARD. 01 REG-CLIENTES. 02 CLI-CODIGO PIC 9(6). 02 CLI-NOMBRE PIC X(30). 02 CLI-DOMICILIO PIC X(30). 02 CLI-CPOSTAL PIC 9(5). 02 CLI-POBLACION PIC X(30). 02 CLI-PROVINCIA PIC X(20). FD TRASPASO LABEL RECORD STANDARD. 01 REG-TRASPASO. 02 TRA-CODIGO PIC 9(6). 02 TRA-SEP1 PIC X. 02 TRA-NOMBRE PIC X(30). 02 TRA-SEP2 PIC X.

Pg. 46

02 TRA-DOMICILIO PIC X(30). 02 TRA-SEP3 PIC X. 02 TRA-CPOSTAL PIC 9(5). 02 TRA-SEP4 PIC X. 02 TRA-POBLACION PIC X(30). 02 TRA-SEP5 PIC X. 02 TRA-PROVINCIA PIC X(20). WORKING-STORAGE SECTION. 01 TABLAMES. 02 FILLER PIC X(30) VALUE 'ENEFEBMARABRMAYJUNJULAGOSEPOCT'. 02 FILLER PIC X(6) VALUE 'NOVDIC'. 01 TABLIMES REDEFINES TABLAMES. 02 ELEMES PIC XXX OCCURS 12 TIMES. 01 FECHA PIC 9(6). 01 FECHO REDEFINES FECHA. 02 FANIO PIC 99. 02 FMES PIC 99. 02 FDIA PIC 99. 01 NOMBREAR. 02 NOM-MES PIC XXX. 02 NOM-ANIO PIC 99. 02 NOM-SEP PIC X. 02 NOM-DIA PIC 99. 02 NOM-EXT PIC XXXX. 01 FINFIC PIC X.

PROCEDURE DIVISION. INICIO. ACCEPT FECHA FROM DATE MOVE ELEMES (FMES) TO NOM-MES MOVE FANIO TO NOM-ANIO MOVE FDIA TO NOM-DIA

Pg. 47

MOVE '-' TO NOM-SEP MOVE '.TXT' TO NOM-EXT MOVE NOMBREAR TO ELNOMBRE

OPEN INPUT CLIENTES OUTPUT TRASPASO MOVE ' ' TO FINFIC PERFORM UNTIL FINFIC = 'S' READ CLIENTES NEXT RECORD AT END MOVE 'S' TO FINFIC NOT AT END MOVE CLI-CODIGO TO TRA-CODIGO MOVE CLI-NOMBRE TO TRA-NOMBRE MOVE CLI-DOMICILIO TO TRA-DOMICILIO MOVE CLI-CPOSTAL TO TRA-CPOSTAL MOVE CLI-POBLACION TO TRA-POBLACION MOVE CLI-PROVINCIA TO TRA-PROVINCIA MOVE '|' TO TRA-SEP1 TRA-SEP2 TRA-SEP3 TRA-SEP4 TRA-SEP5 WRITE REG-TRASPASO END-READ END-PERFORM CLOSE TRASPASO CLIENTES

STOP RUN.

Pg. 48

Cdigos de error.
Son muchos los errores que se pueden producir en tiempo de ejecucin cuando trabajamos con archivos, a continuacin dar una explicacin de los mas comunes. Todos stos errores los podemos obtener si definimos FILE STATUS en la FILE-CONTROL, y actuar consecuentemente, por ejemplo yo siempre cuando abro los ficheros al principio de cada programa compruebo que el error sea 00, es decir que todo est bien para continuar, sino automticamente saco una ventanita con el error que se ha producido y el nombre del fichero para que mis usuarios me lo comuniquen y poder solucionarlo, pero no dejo que se siga ejecutando el programa, con lo que se evitarn problemas posteriores que podran resultar peores. De todas formas una vez que est el programa verificado y comprobado, y que todos los archivos se corresponden con su descripcin en la FD, los errores que nos puede dar son los relativos a claves duplicadas o inexistentes, o a errores del sistema. Los errores se representan como 2 dgitos para el error que pueden ir seguidos de una coma y otros 2 dgitos para indicar la naturaleza del error.

ERROR 00 10 22 23 24 30

EXPLICACION Operacin satisfactoria, ausencia de errores. Cuando se ha llegado al final del fichero y se quiere seguir leyendo. Se intenta copiar un registro con una clave ya existente. Cuando se hace un acceso directo a un registro inexistente. No hay espacio en disco para realizar la operacin. Es un error grave de entrada/salida, suele ser ajeno a Cobol y ms concreto en cuanto a configuracin del sistema operativo sobre el que se est ejecutando, para solucionarlo deberemos prestar atencin a los dos dgitos siguientes al error.

34 35 39

Igual que el 24 por falta de espacio en disco. El archivo al que hace referencia no existe. La organizacin del fichero que se quiere abrir no coincide con su organizacin real interna. Suele pasar cuando se modifica una FD y el fichero contina siendo el mismo.

41 42 43

Cuando intentamos abrir un archivo que ya est abierto. Si intentamos cerrar un archivo que no esta abierto. Cuando se quiere borrar o re-escribir un registro en un fichero abierto con acceso secuencial.

Pg. 49

47

Se quiere realizar alguna operacin que no corresponde con el modo de acceder al fichero. Si queremos hacer un READ o un START en un archivo que no ha sido abierto como INPUT o como I-O.

48

Igual que el anterior, pero para el caso de querer escribir en un fichero que no esta abierto o no est abierto como I-O, OUTPUT o EXTEND.

49

Cuando queremos borrar o re-escribir en un fichero que no ha sido abierto como I-O o el fichero no est abierto.

90

Cuando COBOL recibe un mensaje irreconocible, suele estar ocasionado por incompatibilidad entre los accesos a los ficheros, su forma de apertura y su modo de acceso.

91 92 93 94

Igual que el 42. Cuando intentamos leer, escribir, borrar, re-escribir sobre un archivo no abierto. El archivo est en conflicto con otro usuario. Igual que el 39, tiene muchsimas vertientes dependiendo de los dos dgitos siguientes que acompaan al error.

98

chate a temblar (perdonad por la expresin), grave error interno en la estructura del fichero, generalmente se suelen provocar cuando hay un corte elctrico o una salida brusca del programa y algn fichero indexado se ha quedado abierto, lo que suele ocurrir es problema de correspondencia entre claves y datos, se recomienda hacerle un RECOVERY (RM/COBOL) o el que corresponda a cada compilador para rehacer las claves. Si despus de todo sigue dando errores .......? En algunos casos, es posible que ste error se deba a un problema fsico del disco, en ese caso tambin ser conveniente copiarlo en otro sitio "fsico".

99

Al borrar, leer o re-escribir un registro que est siendo bloqueado por otro usuario.

Pg. 50

Sentencia SORT.
La clasificacin en los ficheros es muy importante. Por lo general se suelen utilizar ficheros indexados por clave principal y clave auxiliares, pero si el archivo no est indexado por un campo en concreto, la sentencia SORT es la que nos permitir ordenar el fichero por ese archivo. Podemos clasificar por todos los campos que deseemos, as como escoger el orden que queramos para cada uno de ellos. Todo esto queda englobado en la sentencia SORT, pero esta depende de muchas mas cosas. Lo primero que necesitamos es un archivo sobre el que volcar nuestra clasificacin y que adems utilizar el propio SORT para hacer las clasificaciones. Este fichero se define en la FILE-CONTROL como cualquier otro fichero solo que haciendo ver al compilador que se va a tratar de un archivo SORT y a continuacin se define su estructura en la FILE SECTION. Para ver como funciona la sentencia, utilizaremos el siguiente ejemplo para poder entender la sentencia mejor. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT AGENDA ASSIGN TO RANDOM "AGENDA.DAT" ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY KEYAGE. SELECT ORDEN ASSIGN TO SORT.

DATA DIVISION. FILE SECTION. FD 01 AGENDA LABEL RECORD STANDARD. REGAGE. 02 KEYAGE. 03 AGECOD PIC 9(4). 02 AGENOM 02 AGEDOM 02 AGEPOS 02 AGEPOB 02 AGEPRO PIC X(30). PIC X(30). PIC 9(5). PIC X(20). PIC X(15). Pg. 51

02 AGETEL 02 AGEMOV 02 AGEMAI 02 AGEWEB SD 01 ORDEN. REGORD. 02 ORDNOM 02 ORDPOB 02 ORDPRO

PIC X(20). PIC X(20). PIC X(30). PIC X(40).

PIC X(30). PIC X(30). PIC X(30).

En lugar de escribir FD hemos usado SD (SORT Description) Hay dos formas distintas de ordenar los ficheros, la primera de las formas es la que clasifica los datos en un fichero segundo, usando un tercer fichero, su formato es el siguiente: SORT fichero_de_clasificacion (ON ASCENDING KEY) campo (ON DESCENDING KEY) campo USING fichero a clasificar GIVING fichero que quedar clasificado La segunda forma ordena directamente el fichero, sin utilizar ningn otro: SORT fichero_de_clasificacin (ON ASCENDING KEY) campo (ON DESCENDING KEY) campo INPUT PROCEDURE qu hacemos antes OUTPUT PROCEDURE qu hacemos despus Fichero_de_clasificacin: hace referencia al fichero que hemos definido como SORT. campo: hace referencia a cualquiera de los campos de dicho fichero que hemos definido, podremos poner tantos como deseemos y en el orden que queramos. qu hacemos antes: indica el proceso que obligaremos al compilador a realizar antes de clasificar. Podemos indicar varios prrafos con THRU o bien utilizar una SECTION. qu hacemos despus: indicaremos que hacer una vez el fichero est clasificado.

Pg. 52

PROGRAMACIN EN COBOL ............................................................................................................ 1 Estructura del lenguaje COBOL. ...................................................................................................... 1 Juego de caracteres..................................................................................................................... 1 Palabras en COBOL:........................................................................................................................ 2 Palabras reservadas de COBOL, variables, smbolos y constantes. ........................................... 2 Estructura de los programas COBOL. .............................................................................................. 6 Organizacin de los datos............................................................................................................ 6 Declaraciones, sentencias, prrafos, y divisiones........................................................................ 6 Programa Fuente. ........................................................................................................................ 6 Divisiones de un programa COBOL. ............................................................................................ 7 IDENTIFICATION DIVISION. ........................................................................................................... 8 PROGRAM ID. ............................................................................................................................. 8 AUTHOR. ..................................................................................................................................... 8 INSTALLATION............................................................................................................................ 8 DATE-WRITTEN. ......................................................................................................................... 8 DATE-COMPILED........................................................................................................................ 8 REMARKS. .................................................................................................................................. 8 ENVIRONMENT DIVISION. ........................................................................................................... 10 CONFIGURATION SECTION. ................................................................................................... 10 SOURCE-COMPUTER. ............................................................................................................. 10 OBJECT- COMPUTER. ............................................................................................................. 10 ESPECIAL NAMES.................................................................................................................... 10 INPUT-OUTPUT SECTION. ...................................................................................................... 11 FILE CONTROL. ........................................................................................................................ 11 SELECT. .................................................................................................................................... 11 ASSIGN TO. .............................................................................................................................. 12 ORGANIZATION IS. .................................................................................................................. 12 ACCESS MODE IS. ................................................................................................................... 12 RECORD KEY. .......................................................................................................................... 12 ALTERNATE RECORD KEY. .................................................................................................... 13 FILE STATUS. ........................................................................................................................... 13 I-O CONTROL. .......................................................................................................................... 13 DATA DIVISION. ............................................................................................................................ 14 FILE SECTION........................................................................................................................... 14

Pg. 53

WORKING STORAGE SECTION. ............................................................................................. 15 LINKAGE SECTION................................................................................................................... 15 SCREEN SECTION. .................................................................................................................. 19 PROCEDURE DIVISION. ............................................................................................................... 20 Sentencias bsicas. ....................................................................................................................... 22 ACCEPT .................................................................................................................................... 22 DISPLAY .................................................................................................................................... 23 COPY ......................................................................................................................................... 25 MOVE ........................................................................................................................................ 26 INITIALIZE ................................................................................................................................. 26 INSPECT ................................................................................................................................... 27 STRING ..................................................................................................................................... 29 UNSTRING ................................................................................................................................ 31 Sentencias de control. .................................................................................................................... 33 IF ... THEN ... ELSE ................................................................................................................... 33 PERFORM ................................................................................................................................. 33 STOP ......................................................................................................................................... 33 Instrucciones Matemticas. ............................................................................................................ 34 ADD ........................................................................................................................................... 34 SUBTRACT................................................................................................................................ 35 MULTIPLY ................................................................................................................................. 35 DIVIDE ....................................................................................................................................... 36 COMPUTE ................................................................................................................................. 36 Manipulacin de tablas................................................................................................................... 37 Ficheros de entrada y salida. ..................................................................................................... 39 OPEN ......................................................................................................................................... 40 CLOSE ....................................................................................................................................... 41 READ ......................................................................................................................................... 41 WRITE ....................................................................................................................................... 42 REWRITE .................................................................................................................................. 44 DELETE ..................................................................................................................................... 44 START ....................................................................................................................................... 44 Cdigos de error. ....................................................................................................................... 49 Sentencia SORT. ........................................................................................................................... 51

Pg. 54