Introducción

(915 palabras totales en este texto)

(147342 Lecturas)   

La orientación del curso / manual la enfocaré a mi entorno de trabajo, es decir RM bajo

UNIX, pero como os he dicho antes, no hay muchas diferencias.

Al pensar en Cobol como lenguaje de programación debemos de tener presente que nos
referimos a un lenguaje dedicado a gestión de datos con una magnífica transportabilidad
entre los distintos sistemas, yo he ejecutado el mismo programa en MS-DOS y UNIX
sin modificar ni una linea de código y copiando solo el objeto.

Si se le llaman lenguajes de programación, es porque realmente se consideran como

cualquier idioma, es decir tiene su gramática, sus verbos, sus frases, sus párrafos y el
cobol además tiene una gran similitud con el inglés, ya que todo su entorno está sacado
de éste idioma. Cobol además es un lenguaje estructurado y sus partes se diferencias
claramente en Divisiones.
Estas son 4, son obligatorias y cada una de ellas tiene una misión diferente dentro de
cada programa como veremos a continuación.

El programa cobol se escribe secuencialmente en líneas de 80 caracteres o menos con la

siguiente división:

La parte (1) comprende las columnas de la 1 a la 6 ambas inclusive y se utiliza para

numerar las líneas, aunque hoy en día prácticamente no se utilizan.

La parte (2) comprende la columna 7 y en ella podemos encontrar, un guión (-) que nos
indica que esta línea es continuación de la anterior pero que por su tamaño ocupa mas
de una línea, un asteristo (*) que nos indica que el texto que viene a continuación es un
comentario y por lo tanto que el compilador lo ignore, o bien puede servir dependiendo
de los compiladores para indicaciones del debug.

La parte (3) se le llama Area 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 párrafos, los
indicadores de FD (File Description) y los niveles de variables 01 y 77.

La parte (4) llamada Area B comprende desde la columna 12 a la 72 y en ellas se

incluirán todas las instrucciones del programa, las lineas 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.
El punto es un signo de vital importancia en cobol ya que nos indica el final de una
linea, en el han de terminar todas las secciones, divisiones y párrafos. Si al final de una
linea el compilador no encuentra el punto, interpretará que la instrucción continúa hasta
que aparezca el punto de fin de linea.

Al igual que en otros lenguajes, el cobol dispone de palabras reservadas que no

debemos de utilizar como nombres de variables o de párrafos, además éstos no deben de
exceder de 30 caracteres (depende del compilador).

Las variables y constantes que se pueden utilizar son numéricas, alfabéticas o

alfanuméricas. Las numéricas al contrario de la mayoría de los lenguajes actuales o las
bases de datos no miden su tamaño por bytes sino por dígitos, es decir, que una variable
de 6 dígitos podrá contener números desde 0 hasta 999999 si es de valor absoluto o
incluyendo los negativos si lleva signo. Para las alfanuméricas en cambio no hay
cambio alguna y su tamaño viene indicado por el número de caracteres que ocupa.
Existen además en cobol unas variables que vienen con un valor propio y que se pueden
utilizar libremente, también llamadas Constantes Figurativas, como ZERO, SPACE,
LOW-VALUES, HIGH-VALUES, etc...

Quisiera respetar para todo el manual las mismas pautas, color Amarillo para las
palabras reservadas cobol, subrayado para las obligatorias, en cursiva los comentarios y
en normal el resto.

Nota final:

Es obvio que cada manual estará orientado a la manera de trabajar de quien lo escribe,
con ello quiero decir que habrá cosas que no explicaré mucho o incluso otras que
omitiré porque yo no las haya utilizado nunca.
Una explicación perfectamente detallada deberá venir en los manuales de cada uno de
los compiladores que del lenguaje Cobol existen hoy en dia.
Espero que podais comprender ésto, eso si, os puedo asegurar que todos mis programas
utilizan solo lo que aqui voy a exponer y ninguno nunca me ha dado ningún problema.

Identification Division

(312 palabras totales en este texto)

(97020 Lecturas)   

Esta es la primera linea de todo programa Cobol e identifica a la primera división donde
se especifica el nombre del programa, el del autor y demás datos, su sintaxis sería la
siguiente:

IDENTIFICATION DIVISION.
PROGRAM-IDNombre del programa.
AUTHOR Nombre del autor.
INSTALLATION Lugar donde está instalado.
DATE-WRITTEN Fecha de creación.
DATE-COMPILED Fecha de compilación.
REMARKSComentarios.
Vemos que el único párrafo obligatorio además del nombre de división es el que hace
referencia al nombre del programa, los demás nombre de autor, lugar de instalación,
fechas de creación y compilación y comentarios son opcionales, eso si, si se incluyen se
deben de poner cumpliendo las normas.

Podemos incluir además todos los comentarios o explicaciones que creamos oportunas
incluyendo en la columna 7 un asterisco (*) que nos indica que el compilador hará caso
omiso de lo que venga a continuación, por ejemplo.

* /////// Este programa es para hacer algo ///////

* // atención a la sección de la fecha ////

Ejemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. MANCLI.
AUTHOR. ANDRES MONTES.
INSTALLATION. WWW.
REMARKS. Programa para mantenimiento de fichero de
clientes.

Nota final:

Poco mas podemos decir de ésta division, obviamente las demás no son tan pequeñas,
sin embargo posee dos de las lineas mas importantes de cualquier programa cobol.

Environment Division

página(s) : 1/2
(1905 palabras totales en este texto)
(91185 Lecturas)   

Es la segunda division por orden de aparición, y en ella se especifican, el ordenador

donde se escribió y se ejecutará el programa, asi como la relacion 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 comunicación con dicho fichero.

Diremos antes de continuar que en los primeros cobol había muchas partes que eran
obligatorias en cada programa, pero hoy en dia, por ejemplo, ésta división ya no es
obligatoria, asi como ninguna de sus partes. Su sintaxis sería la siguiente:

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Ordenador donde se escribió el fuente.
OBJECT-COMPUTER. Ordenador donde se ejecuta el objeto.
SPECIAL-NAMES. Cambiar valores para constantes del lenguaje, pueden variar en
cada compilador.
Como se aprecia en su sintaxis, ésta segunda division se divide a su vez en dos
secciones, que se describen a continuacion:
CONFIGURATION SECTION: Donde describimos los tipos de ordenadores en que se
escribio y se ejecutará el programa, o bien el nombre del compilador y asignación de
valores a ciertas constantes utilizadas por el compilador, estos valores se introducen en
sus respectivas lineas como se ve arriba.

Para la linea de SPECIAL-NAMES el uso mas habitual es el de cambiar el punto

decimal usado por los ingleses por la coma y asi poder especificar los puntos para los
miles, su formato sería el siguiente:

SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.

También podriamos cambiar el valor del símbolo de la moneda con:

CURRENCY SIGN IS literal , suele ser un solo caracter 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, etc...

O hacer que todas las letras introducidas sean mayúsculas o minúsculas o que no haya
diferencias entre ambas con la clausula ALPHABET.

INPUT-OUTPUT SECION: Es la siguiente sección dentro de la Environment, donde se

especificarán todos los ficheros que vamos a utilizar, su tipo, su modo de acceso asi
como el medio en que estarán, esta sección solo será obligatoria cuando vayamos a
utilizar ficheros. Esta tiene dos párrafos FILE-CONTROL e I-O-CONTROL.

123456789012
AB

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT [OPTIONAL] Nombre-de-archivo
ASSIGN TO Tipo-de-dispositivo
ORGANIZATION IS Tipo de organizacion
ACCESS MODE IS Mode de acceso al fichero
RECORD KEY IS Clave del registro
ALTERNATE RECORD KEY IS Claves alternativas registro
WITH DUPLICATES
FILE STATUS IS Variable de estado del fichero.
Vamos a explicar cada una de las cláusulas que encontramos dentro de la Input-Output
Section.
Cláusula SELECT es aqui donde especificamos el nombre lógico 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.

Cláusula OPTIONAL si indicamos esta opción 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.

Cláusula ASSIGN aqui 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, INPUT-OUTPUT, CASSETTE, MAGNETIC-TAPE, pero
sin duda los mas 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.

Cláusula ORGANIZATION aqui indicamos la organización de los registros de nuestro

fichero, podrá ser SEQUENTIAL, RELATIVE o INDEXED, si nuestro archivo fuera
secuencial se podrían omitir ésta clausula asi como las restantes.
De ésta organización se deriva el formato del fichero, SEQUENTIAL si los registros se
graban secuencialmente conforme se dan entrada sin importar si están 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 posición relativa
(practicamente no se utiliza).
INDEXED es la mas utilizada e identifica a ficheros que sus registros son accesibles
mediante una clave unica e irrepetible o por varias que pueden estar duplicadas,
cualquier fichero de mantenimiento, por ejemplo de ARTICULOS, podría ser
INDEXED, y cada código será único para cada artículo y con el nos iremos a su
posición y podremos ver todos los demas datos que hagan referencia al registro.
Existe también para los archivos de texto, tipo [Link] la posibilidad de
asignarlos directamente especificando LINE SEQUENTIAL en ésta clausula.

Cláusula ACCESS MODE 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 el aleatoriamente 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 secuencialmente, si nos interesa, otras veces por su clave.

Cláusula RECORD KEY se utiliza solo 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
alfanúmerica y tendrá que estar especificada en la FD del fichero. Si el archivo fuera
RELATIVE, esta clausula se sustituiría por RELATIVE KEY e indicará el número de
registro del fichero, deberá estar declarado en la WORKING-STORAGE SECTION
como una variable numérica sin signo.

Cláusula ALTERNATE RECORD KEY solo para ficheros indexados e identifican una
o mas claves alternadas para nuestros registros, por ejemplo en un fichero de clientes
cuya clave principal sería el código, podríamos asignar como clave alternativa el NIF, y
podríamos acceder a el por las dos claves, bien por código o bien por NIF, será también
alfanumérico y deberá también estar declarado en la FD. Si aparece WITH
DUPLICATES, indica que ésta clave alternativa pudiera estar duplicada, por ejemplo si
hubieramos escogido como clave alternada además del NIF, el Nombre del cliente,
podría darse el caso de que dos clientes tuvieran el mismo nombre.
Cláusula FILE STATUS aqui damos un nombre de una variable que especificaremos en
la WORKING como un campo alfanumérico de dos caracteres donde el programa
depositará el código de error que ocurra en el fichero, dependiendo del valor nosotros
podremos operar o hacer alguna acción en concreto.

El párrafo I-O CONTROL se utiliza par indicarle al programa cuantos archivos van a
utilizar el mismo area de memoria para trabajar, os puedo decir poco mas de éste
párrafo porque yo no lo he utilizado nunca (lo que no quiere decir que no sea útil).

Ejemplo:

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. RMCOBOL.
OBJECT-COMPUTER. RMCOBOL.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CLIENTES ASSIGN TO RANDOM
"C:[Link]" ORGANIZATION
INDEXED
ACCESS DYNAMIC RECORD KEY KEY-CLIENTE
ALTERNATE RECORD KEY-CLIENTE1 FILE STATUS
STACLI.
SELECT IMPRESORA ASSIGN TO PRINT "PRINTER".

Hemos declarado el archivo CLIENTES como indexado

con dos claves, una principal KEY-CLIENTE y otra
alternativa KEY-CLIENTE1 y hemos asignado una variable
para guardar los posibles códigos de error para cuando
operemos con éste fichero STACLI. Al indicarle el acceso
dinámico le decimos que una vez dentro del programa
podremos acceder al fichero secuencialmente o bien
directacmente al registro que queramos por cualquiera de
las claves.

Como el fichero IMPRESORA es secuencial no es

necesario ninguna aclaración, al darle el nombre PRINTER
cojerá la impresora que tengamos por defecto, si le damos
cualquier otro nombre que no identificara a ninguna
impresora, el resultado sería grabar todo lo que debería salir
por la impresora en un archivo con ese nombre.

Nota final:
Creo que es una de las partes mas interesantes de la programación cobol y que cuando
he utilizado alguno de éstos nuevos lenguajes orientados a objetos y que utilizan bases
de datos, siempre he echado en falta. Para mi siempre es grato dirigirme a la
Environment de cualquier programa y saber con exactitud todos los ficheros que se van
a utilizar en ese programa.

Apreciar que para cada especificación de fichero en la Select solo se pone el punto al
final de todas las clausulas del párrafo.

Al asignar la impresora, si asignamos el nombre PRINTER, éste hace referencia a la

impresora por defecto pero tambien podríamos utilizar un nombre para especificar una
impresora de red, por ejemplo, si en nuestra red existe una impresora que esta en
PENTIUMHPLASER, podemos identificar un nombre en el [Link] para asignar
ese valor a una variable de entorno como: IMPRE="PENTIUMHPLASER" y luego en
el programa especificar como nombre de dispositivo de la impresora IMPRE, SELECT
IMPRESORA ASSIGN TO PRINT IMPRE.

En realidad haciendo ésto último podemos asignar cualquier archivo que esté en
cualquier dirección de la red, ya que el nombre que damos es lógico y su asignación la
podemos definir con una variable de entorno donde queramos.

Data Division

página(s) : 1/4
(5050 palabras totales en este texto)
(80583 Lecturas)   

Es la tercera division por orden de aparición, 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.

 FILE SECTION. Aqui 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.
 WORKING-STORAGE SECTION. En ella declararemos todas las variables
no referentes a archivos, pero que durante la ejecución del programa vayamos a
utilizar.
 LINKAGE SECTION. Esta es la sección donde se registrarán las variables que
nos servirán para enlazar el programa principal con el que llamemos mediante la
orden CALL.
 COMMUNICATION SECTION. (No la he utilizado nunca).
 SCREEN SECTION. En ésta sección podremos describir los atributos y
campos a utilizar en las pantallas.

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á tambien a definir la DATA
DIVISION. Pasemos a continuación a explicar mas a fondo cada una de ellas.
FILE SECTION.
En esta sección describiremos los campos que van a componer el registro de cada uno
de los archivos con los que vamos a trabajar, ésta sería su sintaxis:

FD Nombre del fichero.

      BLOCK CONTAINS Numero de registros por bloque RECORDS
       RECORD CONTAINS Número de caracteres por registro CHARACTERS
        LABEL RECORD Etiqueta de registro
        DATA RECORD Nombre del registro.

Vamos a explicar un poco mas detalladamente cada cláusula de la FILE SECTION.

Quiero dejar claro que ésta es mas amplia, pero que como en el resto del manual voy a
explicar lo que creo que es mas importante y en definitiva lo que mas se utiliza.

Cláusula FD nombre del fichero que previamente habiamos descrito en la cláusula

SELECT de la INPUT-OUTPUT SECTION en la ENVIRONMENT DIVISION.

Cláusula BLOCK CONTAINS cuando queremos que por cada bloque en disco se
graben mas de un registro, aqui especificamos el número de ellos que va a contener 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 cálculo mas
apropiado.

Cláusula RECORD CONTAINS el número 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 espicifica será el propio compilador quien la determine.

Cláusula 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
serán 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.

Cláusula DATA RECORD debido a que un mismo fichero puede tener varias
descripciones de registro, aqui indicamos los nombre de éstas que deberán estar
descritas a nivel 01. Normalmente no se utiliza y casi siempre se suele utilizar una sola
descripción por fichero, por lo que no suele aparecer en casi ningún programa.

A continuación vendría la descripción de todos los campos que comprenden el registro,

pero antes de ver ésto es aconsejable tener claro como se define una variable con todas
sus opciones ya que a fin de cuentas, los campos de un registro no son mas que eso,
variables, con la única condición de que al formar parte de un registro la información
que contiene nos identifica los datos que se guardarán en el medio en que esté el fichero
(disco, impresora).

Antes de seguir adelante quisiera decir que siendo el cobol un lenguaje orientado casi
exclusivamente al manejo de ficheros de datos, es sin duda, ésta parte que hemos visto
la mas importante. Un buen análisis de los ficheros a utilizar antes de empezar es
fundamental y nos evitará  muchos calentamientos de cabeza, tener claro cuales van a
ser sus claves tanto la principal como las alternativas, definir bien todos sus campos y
dejar espacio libre para un posible aumento de datos. Esto lo digo porque si creamos un
fichero con 80 caracteres por registro y al cabo de un tiempo debemos de introducir un
nuevo campo que no habiamos preveido, tendremos que modificar toda su estructura
rehaciendo el fichero y recompilando todos los programas a los que afecte, si en cambio
dejamos un poco de espacio nos evitaremos la reestructuración del archivo, ésto se
consigue utilizando el nombre de variable FILLER como veremos un poco mas abajo.
Data Division

página(s) : 2/4
(5050 palabras totales en este texto)
(80583 Lecturas)   

WORKING-STORAGE SECTION.
LINKAGE SECTION.
COMMUNICATION SECTION
SCREEN SECTION
Para la WORKING y la LINKAGE las normas son las mismas, asi que las veremos
conjuntamente. Las otras dos secciones, COMMUNICATION y SCREEN no las
veremos en el manual.

Número de Nivel ...... Nombre de campo ...... PIC, VALUE, REDEFINES, OCCURS,
JUST, SIGN, SYNC.

Cada campo declarado debe de llevar un número 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
ningún registro.
El nivel 88, identifica los posibles valores condicionales de una variable previamente
definida.
Los niveles 02 al 49 indicarán las distintas subdivisiones de un campo cuya primera
entrada ha sido definida a nivel 01. Los niveles 01 y 77 deberán de ir siempre en el Area
A (Col 8) el resto es independiente.

A continuación pondremos el nombre del campo, que no podrá ser ninguna palabra
cobol ni llevar ningún carácter extraño, principalmente se utilizarán letras y números o
guiones. Es posible que algún 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 podrán venir una serie de cláusulas como:

PICTURE / PIC esta palabra es la que utilizamos para identificar el tipo de datos que
va a contener la variable. Los posible valores son:
DE CAMPOS.
9 - Para campos numéricos.
A - Para campos alfabéticos.
X - Para campos alfanuméricos.
S - Indica variable con signo.
V - Indica punto decimal.

DE EDICIÓN.
$ - Representa la aparición del signo $ delante del campo numérico.
. - Indica separación de miles.
, - Indica punto decimal. (estas dos pueden variar según hayamos especificado en
SPECIAL-NAMES DECIMAL-POINT IS COMMA).
Z - Representa un espacio para el 0 a la izquierda en campos numéricos.
* - Igual pero se cambia el 0 por *.
B - Indica un espacio en blanco.
- ó + - Indican la aparición del signo correspondiente.

Puede haber mas pero los mas utilizados son los que se han comentado.

Para indicar la longitud del campo se puede repetir el símbolo tantas veces como
longitud tenga o expresarla entre paréntesis, es decir para definir una variable
alfanumérica de 10 caracteres se pondría:
PIC X(10) o PIC XXXXXXXXXX. Los valores S y V solo pueden aparecer una vez
por cada variable.

A continuacion vamos a ver un ejemplo de todo lo que hemos explicado para que se
vaya quedando claro.

WORKING-STORAGE SECTION.
01  DOMICILIO.
    02  TIPO PIC XX.
    02  NOMBRE PIC X(20).
    02  NUMERO PIC 9(4).

Fijaros que hemos definido 4 variables, la primera no tiene PIC, por que indica que está
subdividida en las 3 restantes. La segunda "TIPO" nos dice que es una variable
alfanúmerica y que puede contener 2 caracteres como máximo, la utilizariamos para
guardar el tipo de calle, avenida, paseo, plaza, etc.. Para la tercera "NOMBRE" va a ser
también alfanumérica pero con una longitud máxima de 20 caracteres y nos servirá para
guardar el nombre de la calle, plaza, avenida, etc y la última "NUMERO" indica una
variable numérica de 4 dígitos, que quiere decir que puede contener valores entre 0 y
9999.

Observad que en Cobol no se guardan las varables numéricas por bytes como ocurre con
todos los lenguajes actuales sino por número de dígitos, con ello quizás
desaprovechamos mas la memoria pero en cambio tenemos un control mejor del dato
que puede contener nuestra variable.

Si TIPO fuera "AV", NOMBRE "DE LOS DESAMPARADOS " y NUMERO "15", si
nos refiriéramos a la variable DOMICILIO ésta tendría el siguiente valor:"AVDE LOS
DESAMPARADOS 0015".
Data Division

página(s) : 3/4
(5050 palabras totales en este texto)
(80583 Lecturas)   

Vamos a ver algunos ejemplos mas de variables posibles:

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 [Link],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 representaría: 01/11/1998.
Si IMPORTE es 12815V37 en negativo e IMPORTE-EDIT el mismo, éste se
representaría: 12.815,37-.

VALUE esta palabra a continuación del PIC indica el valor inicial que contendrá la
variable hasta que éste sea modificado. Por ejemplo podemos definir una variable:

WORKING-STORAGE SECTION.
01  RAYA PIC X(10) VALUE "----------".
01  MINOMBRE PIC X(30) VALUE "ANDRES MONTES".

Asi tendremos una variable llamada RAYA que contiene 10 guiones y otra llamada
MINOMBRE que contiene eso, mi nombre, si os fijais con ésta cláusula convertimos
cualquier variable en una constante. En cualquier momento del programa podremos
cambiar ese valor. Para las variables numéricas es conveniente ponerlas siempre con
VALUE 0 para que al empezar cada programa estemos seguros de que no nos arrastra
ningún valor. Normalmente al ejecutar un programa se ponen todas las variables a 0,
pero si ese programa ha sido llamado desde otro no pasará eso, por eso no viene mal
inicializarlas todas a 0.

REDEFINES esta cláusula se utiliza para dar mas de un nombre y formato a un mismo
campo. Este debe de ir a continuación del nombre de campo y antes del nombre del
campo a que hace referencia, deben de estar en el mismo nivel y uno a continuación del
otro en el orden de declaraciones.

WORKING-STORAGE SECTION.
01  DIAS PIC X(21) VALUE "LUNMARMIEJUEVIESABDOM".
01  TADIA REDEFINES DIAS.
    02 DIA PIC XXX OCCURS 7 TIMES.

He incluido la cláusula OCCURS para que sea vea un ejemplo práctico, aunque todavía
no lo he explicado, pero como veis a partir de éste momento DIAS y TADIA tendrán
siempre el mismo valor pero con diferente nombre y formato de datos.

OCCURS esta cláusula es la que se utiliza para declarar tablas. Una tabla es un
conjunto de elementos con un mismo tipo y longitud que se denominan con el mismo
nombre y se diferencian por un subíndice. No se puede especificar en niveles 01, 77 88.
Puede tener varios formatos:

WORKING-STORAGE SECTION.
01  NUMERO-DIAS PIC 99.
01  TABLA.
     02 DIA PIC XXX OCCURS 7 TIMES.
     02 MES PIC 99 OCCURS 28 TO 31 DEPENDING NUMERO-DIAS.
     02 OTRA PIC X(5) OCCURS 5 INDEXED BY IN-OTRA.

En la primera "DIA" indico que esa tabla va a tener 7 elementos que llamaremos DIA
(nn) y entre paréntesis el orden dentro de la tabla. Si hubiéramos guardado en ésta tabla
las 3 primeras letras de cada dia de la semana, para obtener el valor del lunes
pediriamos DIA (1), para el del Jueves DIA (4) y para el del domingo DIA (7).

En la segunda "MES" le indicamos que los elementos de la tabla pueden variar

dependiendo del valor de la variable "NUMERO-DIAS" que ha de estar definida antes
de la tabla y siempre dentro de los márgenes de 28 y 31.

En la tercera le indicamos además que la variable IN-OTRA va a ser la encargada de

dirigirnos por los elementos de la tabla, ésta variable no puede estar definida antes.

JUST la justificación de los valores de los campos suele ser a la izda. para los
alfanuméricos y a la derecha para los numéricos, si en cambio queremos cambiar este
orden tendremos que incluir ésta cláusula.

WORKING-STORAGE SECTION.
01  NOMBRE PIC X(10).
01  NOMBRE1 PIC X(10) JUST RIGHT.

Si le diéramos el mismo valor a las dos variables "ANDRES", la primera nos daría
"ANDRES      " y la segunda "      ANDRES", la diferencia, su justificación.

USAGE con ésta cláusula determinamos el formato en que se guarda el contenido de las
variables (numéricas, ya que las alfanuméricas siempre ocuparán un byte por cada
caracter). Con todos los campos se puede operar (obviamente) pero solo los que se
definan como DISPLAY serán editables directamente. Tiene varias posibilidades:
 DISPLAY, es la forma por defecto e indica que cada dígito 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
compactación de los datos. COMP-6 (la mas usual) guarda dos dígitos en cada
byte, COMP-3 es igual pero admite signo el cual iría 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 dígito.
01  FECHA PIC 9(8) COMP-6. Ocupa 4 bytes, uno cada 2 dígitos.
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 tamaño es impar el signo no ocupa ya que comparte byte con el último dígito,
el punto decimal tampoco ocupa espacio, ya que solo indica su posición. 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 compactación es decir no utilizo la cláusula USAGE (que por
cierto y como habreis visto se puede omitir) y por defecto toma DISPLAY (un byte por
caracter).

Data Division

página(s) : 4/4
(5050 palabras totales en este texto)
(80583 Lecturas)   

LINKAGE SECTION. En ésta sección se declaran las variables de igual forma solo
que las que aqui declaremos nos van a servir de enlace para pasar información a otro
programa que será llamado por el principal.

Ejemplo:

DATA DIVISION.
FILE SECTION.

FD  CLIENTES BLOCK CONTAINS 4 RECORDS

       RECORD CONTAINS 128 CHARACTERS
       LABEL RECORD STANDARD.
01   REG-CLIENTE.
       02   KEY-CLIENTE.
       r      03   CLICOD        rPIC 9(4) COMP-6.
       02   CLINOM   PIC X(30).  
       02   CLIDIR     PIC X(30). 
       02   CLIPOB    PIC X(20).
       02   CLIPRO    PIC X(20).  
       02   CLINIF     PIC X(9).
       02   FILLER     PIC X(17).  
 FD   IMPRESORA    LABEL RECORD OMITTED.
01   LINEA PIC X(132).
WORKING-STORAGE SECTION.
01  TABLA.
      02 FILLER PIC X(12) VALUE "LUNMARMIEJUE" .
      02 FILLER PIC X(9) VALUE "VIESABDOM" .
01  TABLAIDA REDEFINES TABLA.
      02 ELEDIA PIC XXX OCCURS 7 TIMES.
01   FECHA PIC 9(8).
01   IMPORTE PIC S9(8)V99.
01   VALORES.
      02 UNO PIC 99 VALUE 0.
      02 DOS PIC 9(6)
      02 TRES PIC 9(4)V99.
01 LINPA.
      02 LIMPOR PIC [Link],ZZ-.

Como veis he diseñado el fichero CLIENTES para que cada

bloque de 512 Kb, ocupe 4 registros, dejando 17 caracteres
(FILLER), para una posible ampliación del registro.

En la descripción del archivo IMPRESORA se declara una

variable a nivel 01 que hace referencia al total del registro para
luego ir moviendo a éste campo el valor de lo que queramos
imprimir.

En la WORKING se han declarado algunos campos con distintos

formatos, fijaros en la tabla que gracias al REDEFINES hemos
llenado con las tres primeras iniciales de cada dia, asi al
referirnos a la variable ELDIA (2) su contenido será "MAR".

Nota final:

La DATA DIVISION nos sirve para tener todas nuestras variables bien definidas, ya
sean independientes o que formen parte de algún 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 declaración de variables previamente y en cambio
ahora en la mayoría 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
alfanumérico de 30 en un programa necesitamos los 10 primeros caracteres por un lado
y los veinte restantes por otro, puese nada se subdivide para ese programa y no pasa
nada.

Espero que haya quedado por lo menos medio clara la explicación de ésta tercera
DIVISION, evidentemente con la práctica es con lo que mas vamos a aprender siempre
claro está que tengamos al menos unas nociones mínimas.

Tenemos que tener en cuenta que como en todos los lenguajes, ya sean de programación
o de habla (español, inglés, frances) son muchas las opciones que nos ofrecen pero al
final siempre utilizamos las que mas nos gustan o las que consideramos mas útiles.

Una cosa que considero importante es dar a las variables un nombre un poco lógico que
nos recuerde su contenido, por ejemplo si queremos guardar la fecha, pues llamarla
FECHA, si queremos guardar el N.I.F. del gerente, NIFGEREN, etc ...

Procedure Division

(2025 palabras totales en este texto)

(61375 Lecturas)   

Bien, hemos llegado a la última división que existe un los programas Cobol, en ella
encontramos todos los procesos necesarios para que el programa funcione, que haga
para la que fue concebido.
Todo ésto se realiza con instrucciones (ordenes, verbos, comandos, etc..), que se
explican en otros capítulos del manual. Cada uno de ellos con un formato y una solución
que resolver.

A continuación vamos a explicar su formato y algunas consideraciones generales aparte

de las propias instrucciones:

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

Este sería a groso modo el formato general de una Procedure, pero incluso se puede
omitir si en un programa no vamos a realizar ningún proceso (es obvio que siempre lo
realizaremos, pero se podría omitir). Vamos a explicar un poco su formato:

PROCEDURE DIVISION (USING Variable, Variable ...).

Cuando especificamos USING en la linea de PROCEDURE DIVISION , después
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 traerán un valor procedente del programa
llamador, que a su vez utilizó la instrucción CALL con las mismas variables.
DECLARATIVES, es una sección dentro de la PROCEDURE que nos va a servir para
controlar los posibles errores en cuanto al manejo de ficheros se refiere. La linea de
DECLARATIVES, (si se va a utilizar) deberá de ir siempre a continuación de la linea
de PROCEDURE DIVISION . Despues de subdiviría 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, ésto se
especifica en la linea USER AFTER ERROR PROCEDURE ON tipo, pudiendo ser
tipo, el nombre del archivo o su modo de apertura (INPUT, OUTPUT, I-O , EXTEND.
A continuación irían los párrafos con sus respectivas instrucciones a realizar en caso de
error.
Se pondrían tantos párrafos y secciones como quisieramos controlar, siempre teniendo
en cuenta que ésta se acaba cuando se indique END DECLARATIVES.
Si no quisieramos utilizar ésta sección, podriamos 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-seccion SECTION, a partir de aqui incluiremos todas las instucciones

necesarias para la correcta ejecución 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 Párrafos como queramos para
organizar mejor las instrucciones y para delimitar acciones concretas, eso si siempre se
ejecutarán secuencialmente, excepto cuando encuentre algún verbo de bifurcación como
GO, PERFORM que haciendo referencia a esos nombres de párrafo harán que se rompa
la secuencia lógica de ejecución.

En las comparaciones que hagamos podremos utilizar los siguientes formatos:

MAYOR QUE
  [ (NOT) GREATER ]
[ (NOT) > ]
MENOR QUE
[ (NOT) LESS ]
[ (NOT) < ]
IGUAL QUE
Literal [ (NOT) EQUAL ] Literal
Variable [ (NOT) = ] Variable
MAYOR O IGUAL QUE
[ GREATER OR EQUAL ]
[= ]
MENOR O IGUAL QUE
[ LESS OR EQUAL ]
[ <= ]
Si se especifica (NOT ) se da a entender lo contrario de la comparación, con lo que no
mayor que puede ser igual que menor o igual que.

Tambien podemos utilizar para las condiciones complejas los operandos lógicos, AND,
OR y NOT según se requieran, todas las condicionea que incluyan AND han de ser
correctas para que pase la condición, si se utiliza OR solo alguna de ellas ha de ser
correcta, cuando se utilice NOT no podrá ser correcta para que la condición sea válida.
Instr. de Cálculo

página(s) : 1/4
(4515 palabras totales en este texto)
(66180 Lecturas)   

Debido a que el lenguaje Cobol fue concebido para la gestión de grandes cantidades de
datos y a resolver problemas de tipo comercial y de administración, no se incluyeron
dentro de sus especificaciones verbos que nos puedieran ayudar a resolver cálculos
complejos como integrales, trigonometría, raices cuadradas, etc..., sino simplemente las
orientadas a los cálculos básicos, suma, resta, multiplicación y división que son las que
vamos a ver a continuación:

ADD , ésta es la instrucción que utilizaremos para realizar sumas y tiene los siguientes
formatos:

1.- ADD variable ó literal variable ó literal ... TO variable (ROUNDED) (ON SIZE
ERROR ) instrucción

2.- ADD variable ó literal variable ó literal ...GIVING variable (ROUNDED) (ON
SIZE ERROR ) instrucción

3.- ADD CORR variable TO variable (ROUNDED) ( ON SIZE ERROR) instrucción

Para ver las explicaciones de cada uno de los formatos partiremos de la misma
WORKING , y a continuación pondremos un ejemplo y su explicación.

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
      02 OTRO1 PIC 9.
      02 DOS PIC 9(6) VALUE 110.
01 RESULTADO PIC S9(8) VALUE 10.
01 RESTO PIC 99.
PROCEDURE DIVISION.
INICIO.

Formato 1:
ADD UNO TRES 5 TO RESULTADO.
Se sumarán todas las variables o literales numéricos (cifras) al valor
de la variable que se de a continuación del TO, guardandose el
resultado también en ésta ú[Link] tanto al realizar ésta operación
el valor de la variable RESULTADO, será de: 10 (de la variable
UNO) + 540 (de la variable TRES) + 5 + 10 (de Resultado) = 565.
Como veis UNO + TRES + 5 suman 555 pero ésto se suma al valor
que ya tenía la variable RESULTADO, con lo que la suma total es de
565.

Este formato se usa mucho para hacer de contador y hacer que una
varable aumente en uno su valor poniendo:
ADD 1 TO RESULTADO.

Formato 2:
ADD UNO TRES 5 GIVING RESULTADO.

En éste caso la variable RESULTADO tendrá el valor de la suma de

las variables anteriores, sin tener en cuenta su valor inicial, es decir,
será de: 10 (de la variable UNO) + 540 (de la variable TRES) + 5 =
555.

Formato 3:
ADD CORR VALORES TO OTROS.

Con éste formato conseguimos que las variables del campo

compuesto VALORES se sumen al valor de las variables con el
mismo nombre del campo compuesto OTROS, obteniendo como
resultado: 280 (de la variable DOS del campo VALORES) + 110 (de
la variable DOS del campo OTROS) = 390.
Si hubiera coincidido alguna variable mas con el mismo nombre en
ambos campos también se hubiese sumado.

Nota: Como habreis podido apreciar pueden coexistir variables con

el mismo nombre pero nunca al nivel 01 o 77, es decir nunca como
variables independientes, pero si que formen parte de otra, aunque yo
personalmente nunca lo uso porque solo puede dar lugar a
confusiones. Si de todas formas lo utilizais, hay que tener en cuenta
que para referirse a éstas variables no solo bastará con poner su
nombre, sino que además habrá que especificar a que campo
pertenece con la palabra IN u OF . Esto se explicará con mas detalle
cuando veamos los verbos para manipular variables como MOVE.
Instr. de Cálculo

página(s) : 2/4
(4515 palabras totales en este texto)
(66180 Lecturas)   

SUBTRACT , ésta es la instrucción que utilizaremos para realizar restas y tiene los
siguientes formatos:

1.- SUBTRACT variable ó literal variable ó literal ... FROM variable (ROUNDED)
(ON SIZE ERROR ) instrucción

2.- SUBTRACT variable ó literal variable ó literal ... FROM variable ó literal
GIVING variable (ROUNDED) (ON SIZE ERROR) instrucción

3.- SUBTRACT CORR variable FROM variable (ROUNDED) (ON SIZE ERROR)
instrucción

Para ver las explicaciones de cada uno de los formatos partiremos de la misma
WORKING que hemos utilizado con la instrucción ADD, poniendo a continuación un
ejemplo y su explicación.

Formato 1:
SUBTRACT UNO TRES 5 FROM RESULTADO.

Se restarán todas las variables o literales numéricos (cifras) del valor

de la variable que se de a continuación del FROM, guardandose el
resultado también en ésta última.

Por tanto al realizar ésta operación el valor de la variable

RESULTADO, será de: -10 (de la variable UNO) - 540 (de la
variable TRES) - 5 + 10 (de Resultado) = -545.
Como veis se le han restado los valores de UNO, TRES y 5 que
suman -555 pero como RESULTADO valía +10, éste se suma y da
un valor de -545.

Este formato lo podemos utilizar para hacer contadores en retroceso,

poniendo:
SUBTRACT 1 FROM RESULTADO.

Formato 2:
SUBTRACT UNO 5 FROM TRES GIVING RESULTADO.

Aquí lo que conseguiremos será restar el valor de la variable UNO y

5 del valor de la variable TRES y el resultado guardarlo en la
variable RESULTADO, sin tener en cuenta su valor inicial, es decir,
será de: 540 (de la variable TRES) - 10 (de la variable UNO) - 5 =
525.

Formato 3:
SUBTRACT CORR VALORES FROM OTROS.

Al igual que con la instrucción ADD, con éste formato conseguimos

que las variables del campo compuesto VALORES se resten al valor
de las variables con el mismo nombre del campo compuesto
OTROS, obteniendo como resultado: 280 (de la variable DOS del
campo VALORES) - 110 (de la variable DOS del campo OTROS) =
170.
Si hubiera coincidido alguna variable mas con el mismo nombre en
ambos campos también se hubiese restado.

Nota: Tened en cuenta que al utilizar restas el signo puede ser

negativo y si no tenemos bien declarada la variable que va a contener
el resultado, ésta cojerá su valor absoluto.

Instr. de Cálculo

página(s) : 2/4
(4515 palabras totales en este texto)
(66180 Lecturas)   

SUBTRACT , ésta es la instrucción que utilizaremos para realizar restas y tiene los
siguientes formatos:

1.- SUBTRACT variable ó literal variable ó literal ... FROM variable (ROUNDED)
(ON SIZE ERROR ) instrucción

2.- SUBTRACT variable ó literal variable ó literal ... FROM variable ó literal
GIVING variable (ROUNDED) (ON SIZE ERROR) instrucción

3.- SUBTRACT CORR variable FROM variable (ROUNDED) (ON SIZE ERROR)
instrucción

Para ver las explicaciones de cada uno de los formatos partiremos de la misma
WORKING que hemos utilizado con la instrucción ADD, poniendo a continuación un
ejemplo y su explicación.

Formato 1:
SUBTRACT UNO TRES 5 FROM RESULTADO.

Se restarán todas las variables o literales numéricos (cifras) del valor

de la variable que se de a continuación del FROM, guardandose el
resultado también en ésta última.
Por tanto al realizar ésta operación el valor de la variable
RESULTADO, será de: -10 (de la variable UNO) - 540 (de la
variable TRES) - 5 + 10 (de Resultado) = -545.
Como veis se le han restado los valores de UNO, TRES y 5 que
suman -555 pero como RESULTADO valía +10, éste se suma y da
un valor de -545.

Este formato lo podemos utilizar para hacer contadores en retroceso,

poniendo:
SUBTRACT 1 FROM RESULTADO.

Formato 2:
SUBTRACT UNO 5 FROM TRES GIVING RESULTADO.

Aquí lo que conseguiremos será restar el valor de la variable UNO y

5 del valor de la variable TRES y el resultado guardarlo en la
variable RESULTADO, sin tener en cuenta su valor inicial, es decir,
será de: 540 (de la variable TRES) - 10 (de la variable UNO) - 5 =
525.

Formato 3:
SUBTRACT CORR VALORES FROM OTROS.

Al igual que con la instrucción ADD, con éste formato conseguimos

que las variables del campo compuesto VALORES se resten al valor
de las variables con el mismo nombre del campo compuesto
OTROS, obteniendo como resultado: 280 (de la variable DOS del
campo VALORES) - 110 (de la variable DOS del campo OTROS) =
170.
Si hubiera coincidido alguna variable mas con el mismo nombre en
ambos campos también se hubiese restado.

Nota: Tened en cuenta que al utilizar restas el signo puede ser

negativo y si no tenemos bien declarada la variable que va a contener
el resultado, ésta cojerá su valor absoluto.

Instr. de Cálculo

página(s) : 3/4
(4515 palabras totales en este texto)
(66180 Lecturas)   

MULTIPLY , ésta es la instrucción que utilizaremos para realizar multiplicaciones y

tiene los siguientes formatos:
1.- MULTIPLY variable ó literal BY variable ( ROUNDED) (ON SIZE ERROR )
instrucción

2.- MULTIPLY variable ó literal BY variable ó literal GIVING variable

(ROUNDED) (ON SIZE ERROR ) instrucción

Utilizando la misma WORKING que hemos utilizado con las instrucciones ADD y
SUBTRACT, veremos a continuación unos ejemplos y su explicación.

Formato 1:
MULTIPLY 5 BY RESULTADO.

Multiplica el número 5 por el valor de la variable RESULTADO,

guardando en ésta misma el resultado de la operación que será: 5 x
10 (de la variable RESULTADO) = 50.

Formato 2:
MULTIPLY 5 BY TRES GIVING RESULTADO.

Aquí multiplicaremos el número 5 por el valor de la variable TRES

guardando el resultado en la variable RESULTADO, sin tener en
cuenta su valor inicial, es decir, será de: 5 x 540 (de la variable
TRES) = 2700.

DIVIDE , ésta es la instrucción que utilizaremos para realizar divisiones y tiene los
siguientes formatos:

1.- DIVIDE variable ó literal INTO variable (ROUNDED) (ON SIZE ERROR )
instrucción

2.- DIVIDE variable ó literal (BY ó INTO) variable ó literal GIVING variable
(ROUNDED) (REMAINDER ) variable (ON SIZE ERROR ) instrucción

Utilizando la misma WORKING que hemos utilizado con las instrucciones ADD,
SUBTRACT y MULTIPLY, veremos a continuación unos ejemplos y su explicación.

Formato 1:
DIVIDE 10 INTO TRES.

Divide el valor de la variable TRES entre el número 10, guardando el

resultado en la variable TRES: 540 (de la variable TRES) / 10 = 54.

Formato 2:
DIVIDE 7 INTO TRES GIVING RESULTADO REMAINDER
RESTO.

Aquí dividiremos el valor del la variable TRES entre 7 guardando el

resultado en la variable RESULTADO, sin tener en cuenta su valor
inicial, y además el resto de la operación lo guardará en la variable
RESTO, quedando así: 540 / 7 = 77, pero como 7 x 77 son 539 el
resto es 1 que será el valor de RESTO. Si en vez de utilizar INTO
utilizamos BY cambia el orden de los operandos, es decir en vez de
dividir TRES entre 7 dividiríamos 7 entre TRES.

La opción REMAINDER no es obligatoria, todo dependerá del uso

que queramos hacer de la instrucción. La variable que iría a
continuación guardará el resto de la división.

Instr. de Cálculo

página(s) : 4/4
(4515 palabras totales en este texto)
(66180 Lecturas)   

COMPUTE , con ésta orden podemos realizar todos los cálculos aritméticos posibles
en una sola instrucción, utilizando los operadores +(suma) -(resta) *(multiplicación)
/(división) **(potenciación), además de utilizar paréntesis para especificar mejor la
operación a realizar.

1.- COMPUTE variable (ROUNDED) = expresión aritmética (ON SIZE ERROR)

instrucción

Utilizando la misma WORKING que hemos utilizado anteriormente vamos a ver un

ejemplo:

Formato 1:
COMPUTE RESULTADO = DOS OF VALORES * 16 / 100.

El valor de la variable RESULTADO será de 44, obtenido después

de multiplicar 280 (de la variable DOS del grupo VALORES) x 16 y
lo que de dividido entre 100. En realidad si hacemos el cálculo en
una calculadora nos daremos cuenta que el resultado exacto es 44,80
pero como la variable RESULTADO no la hemos definido con
decimales éstos son depreciados por el compilador.

Puesto que la variable DOS pertenece a dos grupos de variables

deberemos especificar a que grupo pertenece (OF VALORES).

Debemos de tener en cuenta que siempre tienen preferencia los

operadores que vayan entre paréntesis, a continuación los de
multiplicación y división (*) y (/) y por último los de suma y resta
(+) y (-) y el orden en que va a ir realizando las operaciones será de
izquierda a derecha, por lo tanto:
COMPUTE RESULTADO = 2 + 3 * 5.

Esta operación daría como resultado 3*5=15+2=17.

COMPUTE RESULTADO = (2 + 3) * 5.

En cambio ésta otra daría: 2+3=5*5=25.

Espero que hayais notado la diferencia y la podais aplicar a vuestros
casos en concreto.

Para todas éstas instrucciones de cálculo que hemos visto la opcion ROUNDED
significa lo mismo y quiere decir que fuerza al redondeo del resultado para cada
operación y siempre teniendo en cuenta la definición de la variable que va a guardar ese
resultado, por ejemplo si tras una operación resulta 18,76 éste podría quedar como
sigue:

 77 RESULTADO PIC 99V99. (valor = 18,76)

 77 RESULTADO PIC 99V9. (valor sin redondeo = 18,7 - valor con redondeo =
18,8)
 77 RESULTADO PIC 99. (Valor sin redondeo = 18 - valor con redondeo = 19).

Igual ocurre con la frase ON SIZE ERROR instrucción, que propiciará que se ejecute la
instrucción que pongamos a continuación cuando se produzca un desbordamiento del
campo que va a acoger el resultado, por ejemplo si el resultado de una operación es
8.976.400 y la variable la hemos definido con PIC 9(6) y hemos especificado dicha
opción se ejecutará la instrucción especificada.

Instr. de Archivos

página(s) : 1/5
(6114 palabras totales en este texto)
(69186 Lecturas)   

Sin duda son las instrucciones mas importantes con las que cuenta el lenguaje Cobol,
con ellas tendremos la oportunidad de manipular toda la información contenida en
nuestros archivos, es decir, podremos abrir archivos, cerrarlos, leerlos, guardar
información nueva o modificar datos existentes. Todo ésto lo haremos con las
instrucciones que voy a explicar a continuación.

Antes de empezar a explicar éstas instrucciones me gustaría que entendiéseis bien

algunos conceptos como fichero, registro y campo, para que podais comprender mas
claramente, la explicación de todas las instrucciones que se verán en ésta sección.

 ¿Que es un fichero? Podríamos definir un fichero como un conjunto de registros,

pero estaríamos mas o menos igual. Si comparásemos un fichero de cobol con
nuestra vieja agenda de teléfonos, para cada amigo tendríamos los mismos datos,
es decir, nombre, teléfono, dirección, etc ... cada uno de esos datos es lo que
 llamamos campo y el conjunto de todos esos campos para cada amigo sería un
registro. Ahora podemos comprender mejor que un fichero o archivo es un
conjunto de registros, como una agenda es un conjunto de datos de amigos.

 ¿Que es una clave? Una clave, es un campo de nuestra agenda que nos sirve para
identificar a cada amigo, en la agenda normal la clave podría ser la lengüeta con
la letra del abecedario correspondiente a los apellidos del amigo.
Informáticamente es mas completa y con ella podremos identificar a cada uno de
ellos, por ejemplo con su nombre o su teléfono o un código que le asignemos
nosotros personalmente.

En Temáticos trataremos el tema de los ficheros en mas profundidad.

OPEN, ésta es la instrucción que utilizaremos para abrir un archivo, o lo que es lo

mismo hacerlo disponible para operar sobre el, obviamente éste archivo debe de haberse
descrito en la Environment y la Data según se explicó, su formato es el siguiente:

OPEN (EXCLUSIVE ) modo nombre de archivo ( WITH LOCK) (WITH NO

REWIND)

Donde modo, indica como se abrirá el archivo y puede tener los siguientes valores
según su utilización:

 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 información de dicho archivo para leerla, escirbirla, reescribirla o
borrarla.
 OUTPUT, el archico se abre solo para escritura, es el formato que se utiliza en
los achivos de impresión 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 información
se va añadiendo a la ya existente. Se utiliza para archivos secuenciales.

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 opción WITH NO REWIND, se utiliza cuando utilizamos archivos de cinta, para que
no la rebobine al abrirla.

...
PROCEDURE DIVISION.
INICIO.
       OPEN INPUT ARTICULOS.
       OPEN I-O CLIENTES
       OPEN EXTEND IMPRE.
CREAR-ARCHIVO.
       OPEN OUTPUT TRABAJO CLOSE TRABAJO.
...

Nota: Con éstas tres instrucciones estamos abriendo tres archivos,

cada uno de una forma diferente. Tambien podriamos haberlos
puesto en una sola linea de la siguiente forma:

    OPEN INPUT ARTICULOS I-O CLIENTES EXTEND IMPRE.

En el caso del archivo TRABAJO, se consigue crearlo como nuevo,

exista antes o no.

Instr. de Archivos

página(s) : 2/5
(6114 palabras totales en este texto)
(69186 Lecturas)   

CLOSE, ésta es la instrucción contraria a OPEN, es decir termina la conexión

establecida con el archivo, a partir del momento que aparezca ésta instrucción el archivo
no estará disponible para operar con él, hasta la próxima 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 algún archivo abierto anteriormente.

Las opciones WITH LOCK y WITH NO REWIND , tienen la misma explicación que la
vista en la orden OPEN.

...
PROCEDURE DIVISION.
INICIO.
       OPEN INPUT ARTICULOS.
       OPEN I-O CLIENTES
       OPEN EXTEND IMPRE.
...
...
...
CERRAR.
       CLOSE ARTICULOS CLIENTES IMPRE.
...

Nota: Apuntaré que si finalizamos el programa con la sentencia

STOP RUN, que luego veremos, los archivos que estuvieran abiertos
se cierran automáticamente aunque no se haya especificado la orden
CLOSE. Anque siempre es preferible utilizarla, ya que puede haber
algunos compiladores mas antiguos que no los cierren.

Me gustraría destacar de éstas dos instrucciones vistas que lo mas

normal es no utilizar ninguna de las opciones, es decir solo abrir de
una manera el archivo para su uso y una vez hayamos acabado con
él, cerrarlo.

READ, es la instrucción que utilizamos para leer registros de un archivo, debe de estar
abierto. Con ella conseguimos que los datos referentes al registro accedido queden en la
descripción de dicho fichero, es decir, conseguimos que los campos declarados en la
FD, tengan el valor correspondiente al registro leido.

La sentencia READ, se utiliza para leer ficheros secuanciales o indexados, o para leer
indexados de manera secuencial, por lo que su sintaxis tiene dos formatos principales.

Formato para leer ficheros de manera secuncial. (Indexados o secuenciales)

READ nombre de archivo ( NEXT/PREVIOUS RECORD) ( INTO descripción) (AT

END / NO AT END sentencia) END-READ

nombre de archivo corresponderá a algún archivo abierto anteriormente.

La opción 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 opción PREVIOUS RECORD leería el registro anterior. Esta opción es la única que
no es válida para ficheros secuenciales de éste formato.

La opción 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 descripción de registro para un mismo
archivo. Si tuvieramos mas de una, ésta sería la opción para indicarle cual es la que
queremos utilizar en ésta lectura.

La sentencia que va después 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.

...
PROCEDURE DIVISION.
INICIO.
       OPEN INPUT ARTICULOS.
LECTURA.
      READ ARTICULOS NEXT RECORD AT END GO CERRAR.
...
...
...
      GO LECTURA.
CERRAR.
       CLOSE ARTICULOS.
...

Nota: Si bien este formato nos sirve para leer cualquier tipo de
archivo de manera secuencial, en el caso de que el archivo fuera
secuencial, éste solo se podría leer así.

Existen muchas ocasiones en que un archivo indexado nos interesa

leerlo de manera secuencial. Si lo hicieramos éste sería su formato,
además en éste caso podriamos leerlo tanto del principio al final con
la opción NEXT, como del final al principio con la opción
PREVIOUS.

Para poder leer un fichero indexado de manera secuencial,

deberemos de haber especificado en la SELECT, que su acceso va a
ser DYNAMIC o SEQUENTIAL.

Instr. de Archivos

página(s) : 3/5
(6114 palabras totales en este texto)
(69186 Lecturas)   

Formato para leer ficheros indexados con acceso aleatorio.

READ nombre de archivo (INTO descripción) (KEY nombre de clave) ( INVALID

KEY / NOT INVALID KEY sentencia) END-READ

Las opciones que se repiten con con el formato anterior tienen el mismo formtato y
producen el mismo resultado.

La opción KEY, indica por que clave se va a leer el fichero, siempre que éste tenga mas
de una.

La sentencia después de INVALID KEY se utiliza para ejecutar una acción cuando se
intenta acceder a un registro que no existe. En el caso de utilizar NOT INVALID KEY
sería al contrario, es decir cuando el registro existe.

...
PROCEDURE DIVISION.
INICIO.
       OPEN INPUT ARTICULOS.
LECTURA.
      MOVE 100 TO CLAVE-ARTICULO.
      READ ARTICULOS INVALID KEY GO ERROR.
...
...
...
      GO LECTURA.
ERROR.
...
...
CERRAR.
       CLOSE ARTICULOS.
...

Nota: Sin duda la forma mas usual de acceder a un registro será por
su clave. Asi por ejemplo para acceder a un fichero de poblaciones
cuya clave fuera su código postal, dando cualquier código
accederiamos a ese registro en concreto.

La acción que hagamos después de un INVALID KEY, dependerá

del contexto en que se encuentre, podremos volver a solicitar otra
clave, permitir crear un registro, etc ..

WRITE, con ésta instrucción se consigue grabar la información 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 instrucción será la que nos
sirva para almacenar en el fichero los datos. A partir de ese momento estarán
disponibles tantas veces como queramos para leerla. Y por supuesto el fichero debe de
estar abierto como OUTPUT o I-O.

WRITE nombre de registro ( FROM descripción) ( INVALID KEY / NOT

INVALID KEY sentencia)
END-WRITE

La opción FROM, indica con cual de las descripciones de registro que hayamos podido
declarar se graben los datos en el fichero. Hay que señalar que ésta descripción puede
estar definida en la WORKING, y lo que nos ahorra en realidad es mover los datos de
esa descripción que hemos usado como "temporal" a la auténtica descripción del
registro.

Las cláusulas de INVALID KEY y NOT INVALID KEY, tienen la misma función dada
en la instrucción READ. Solo que aqui, INVALID KEY , se produciría cuando al grabar
el registro, éste ya existiese o hubiera algún error por el cual no se pudieran grabar los
datos.

...
PROCEDURE DIVISION.
INICIO.
       OPEN I-O ARTICULOS.
LECTURA.
      MOVE 100 TO CLAVE-ARTICULO.
      MOVE "ANDRES MONTES" TO NOMBRE.
      WRITE REGISTRO-ARTICULO INVALID KEY GO ERROR.
...
...
      GO CERRAR.
ERROR.
...
...
CERRAR.
       CLOSE ARTICULOS.
...

Nota: Aunque se puedan utilizar varias descripciones, lo mas lógico

es utilizar siempre la misma para cada fichero. El error mas probable
siempre que sea una INVALID KEY, suele ser que existe un registro
ya con esa clave, a parte de ese, falta de espacio en disco, archivo
mal abierto o sin abrir.

Además de éste formato, existe para ésta instrucción otro muy común. Y es el que
utilizamos para enviar datos a la impresora, es decir para listar, para imprimir.

Es en éste caso, donde se hace indispensable el uso de mas de una descripción por
registro. ¿Porque? Sencillo, definiremos nuestro fichero con un registro de tamaño igual
al ancho de nuestro listado, y luego en la WORKING, describiremos el formato de cada
una de las lineas que utilizaremos en la impresión. Quiero hacer un ejemplo mas
extenso para éste caso, que será muy utilizado y distinto en su filosofía al resto.

WRITE nombre de registro ( FROM descripción) ( AFTER número de lineas)

(PAGE) END-WRITE

Además para éste formato tendremos la cláusula AFTER, en la cual indicamos el

número de lineas que debe de avanzar la impresora antes de escribir, o bien que lo haga
directamente al principio de la siguiente página, poniendo AFTER PAGE. Existen
algunas otras cláusulas, pero no las vamos a ver aquí por ser poco usadas.

IDENTIFICATION DIVISION.
PROGRAM-ID. LISTADO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
        DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
        SELECT IMPRESORA ASSIGN TO PRINT "LPT1".
DATA DIVISION.
FILE SECTION.
FD  IMPRESORA  LABEL RECORD OMITTED.
01  REG-IMPRE   PIC X(80).
WORKING-STORAGE SECTION.
01   LINEA1.
       02  FILLER PIC X(30) VALUE SPACES.
       02  FILLER PIC X(20) VALUE "ESTA ES LA LINEA 1".
01  LINEA2.
       02  FILLER PIC X(30) VALUE SPACES.
       02  FILLER PIC X(20) VALUE "ESTA ES LA LINEA 2".
...
...
PROCEDURE DIVISION.
INICIO.
       OPEN OUTPUT IMPRESORA
ESCRIBIR.
      WRITE REG-IMPRE FROM LINEA1 AFTER PAGE.
      WRITE REG-IMPRE FROM LINEA2 AFTER 2.
...
...
CERRAR.
       CLOSE IMPRESORA.
...

Nota: Como podeis ver, hemos definido el registro como REG-

IMPRE, pero al escribir sobre el fichero impresora utilizamos las
descripciones de LINEA1 y LINEA2, de ésta manera conseguimos
que se impriman las dos lineas en una impresora conectado al puerto
LPT1 y que antes de escribir la primera linea, salte a una página en
blanco.

Instr. de Archivos

página(s) : 4/5
(6114 palabras totales en este texto)
(69186 Lecturas)   

REWRITE, ésta instrucción se utiliza para regrabar datos de un registro ya existente.

Toda la sintaxis es exactamente igual que la explicada en WRITE.

REWRITE nombre de registro ( FROM descripción) ( INVALID KEY / NOT

INVALID KEY sentencia) END-REWRITE

Todas las opciones igual que en WRITE. Por lo que en el ejemplo vamos a ver ambos
casos juntos.

...
PROCEDURE DIVISION.
INICIO.
       OPEN I-O ARTICULOS.
LECTURA.
      MOVE 100 TO CLAVE-ARTICULO.
      MOVE "ANDRES MONTES" TO NOMBRE.
      WRITE REGISTRO-ARTICULO INVALID KEY GO ERROR.
      MOVE "OTRO NOMBRE" TO NOMBRE.
      REWRITE REGISTRO-ARTICULO INVALID KEY GO
ERROR.
...
...
      GO CERRAR.
ERROR.
...
...
CERRAR.
       CLOSE ARTICULOS.
...

Nota: Podemos decir que ésta sentencia es la que utilizaremos para

modificar el contenido de cualquier registro, pero eso si, nunca
podremos alterar la clave, solo los campos que no formen parte de la
clave principal.

Si quisieramos modificar cualquiera de los campos clave de un

registro, deberíamos crear uno nuevo con el mismo contenido pero
con la clave que ahora queramos y luego borrar el que teníamos.

DELETE, instrucción para borrar un registro de un fichero. La explicación es corta,

pero tiene pocos mas matices, lo que conseguimos es borrar todos los datos de un
registro. Su sintaxix es la siguiente:

DELETE nombre de fichero ( INVALID KEY / NOT INVALID KEY sentencia)

END-DELETE

Las únicas cláusulas INVALID y NOT INVALID KEY, se usan exactamente igual que
en las demás relativas a ficheros, es decir ejecutará la sentencia que pongamos a
continuación 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.

...
PROCEDURE DIVISION.
INICIO.
       OPEN I-O ARTICULOS.
LECTURA.
      MOVE 100 TO CLAVE-ARTICULO.
      READ ARTICULOS INVALID KEY GO ERROR.
      DELETE ARTICULOS INVALID KEY GO ERROR.
...
...
      GO CERRAR.
ERROR.
...
...
CERRAR.
       CLOSE ARTICULOS.
...
...

Nota: Obviamente para borrar un registro, primero hemos de tenerlo

en memoria, por eso en el ejemplo lo he leido primero.

Instr. de Archivos

página(s) : 5/5
(6114 palabras totales en este texto)
(69186 Lecturas)   

START, ésta instrucción es de suma importancia en el tratamiento de ficheros, y nos

sirve para posicionarnos en cualquier parte del mismo, para una lectura mas rápida. Si
imaginamos un fichero con 10.000 clientes, clasificados por código, para ver todos los
que cuyo código es mayor a 9.000,  tendríamos que leernos el fichero secuencialmente
hasta llegar al sitio correcto, en cambio con ésta orden, podremos colocarnos en la
posición del fichero que queramos dentro de unas normas, que veremos a continuación.

START nombre de fichero KEY (expresión) nombre de clave ( INVALID KEY /

NOT INVALID KEY sentencia) END-START

Las únicas cláusulas INVALID y NOT INVALID KEY, se usan exactamente igual que
en las demás relativas a ficheros, es decir ejecutará la sentencia que pongamos a
continuación 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.

La expresión 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).

...
PROCEDURE DIVISION.
INICIO.
       OPEN I-O ARTICULOS.
COLOCAR.
      MOVE 100 TO CLAVE-ARTICULO.
      START ARTICULOS KEY NOT LESS KEY CLAVE-
ARTICULOS
       INVALID KEY GO ERROR.
LECTURA.
      READ ARTICULOS NEXT RECORD AT END GO CERRAR.
      ...
      GO LECTURA.
ERROR.
...
...
      GO CERRAR.
ERROR.
...
...
CERRAR.
       CLOSE ARTICULOS.
...
...

Nota: Aqui empezariamos a leer el ficher artículos desde la clave

que no sea menor que 100, es decir de 100 en adelante. Fijaros como
luego la lectura se hace en otro párrafo diferente, ya que sino,
siempre estariamos haciendo el START. Recordad que con ésta
instrucción SOLO nos situamos en un sitio determinado del fichero,
a partir de ahí podremos operar como queramos.

RESUMIENDO

En la programación estructurada es conveniente sustituir el punto como final de una

instrucción por la cláusula END-....... para cada instrucción. De esta manera
conservamos la estructura y no obligamos con el punto a finalizar ninguna instrucción o
bucle en el que estemos metidos.

Una vez vistas todas las intrucciones relativas a ficheros, quiero dejar bien claro su
utilización.

Tendremos siempre en cuenta que cuando leemos, realmente le damos el valor del
registro que hemos leido a los campos o variables que lo componen. Que cuando
grabamos o regrabamos, le estamos dando el valor de las variables en ese momento al
registro para que se grabe en disco y cuando borramos, estamos quitando fisicamente
del disco esa información.

He realizado un temático dedicado integramente al uso de ficheros, podéis echarle un

vistazo por si os han quedado dudas. Temáticos

Instr. de Pantalla

página(s) : 1/3
(5792 palabras totales en este texto)
(59959 Lecturas)   

Sin duda alguna e independientemente del lenguaje de programación escogido, las

instrucciones que mas se suelen utilizar, serán las que hagan uso de la pantalla, ya sea
como salida o entrada de información.

Para la programación en Windows, pondré la información en la Sección "Programando

en Windows".

Vamos a utilizar ésta sección para hacer un análisis profundo de dichas instrucciones.

ACCEPT, es la instrucción que usaremos para la entrada de datos. Aunque su sintaxis

principal nunca ha variado, ésta ha sido una de las instrucciones que mas cláusulas se le
han ido añadiendo, incluso diferentes según el compilador, aquí vamos a explicar las
comunes y principales.

Aunque la forma mas usual de utilizarla, es para aceptar datos por el teclado, también es
posible utilizarla para "cogerlos" también del sistema, para aceptar valores de variables
de entorno definidas previamente a nivel de sistema o para aceptar pantallas completas
definidas en la SCREEN-SECTION. Además siguen aumentando sus posibilidades.
Veamos sus formatos principales:

Formato para aceptar datos del sistema o variables de entorno.

ACCEPT variable FROM (DATE, DAY, DAY-OF-WEEK, TIME, CENTURY-

DATE, CENTURY-DAY, ESCAPE-KEY, ENVIRONMENT variable de entorno)

Según la opción 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 dígitos en
formato SSAAMMDD. Definir con PIC 9(8).
 DAY, devuelve el año y el día del año en que estamos con el formato AADDD,
siendo el valor 1, para el 1 de Enero y así sucesivamente. Debe de estar definida
con PIC 9(5).
  CENTURY-DAY, igual que DAY, pero acepta 4 dígitos para el año, quedando
el formato AAAADDD. Definir con PIC 9(7).
 DAY-OF-WEEK, devuelve un dígito que indica el día de la semana, siendo 1 el
Lunes, 2 el Martes, ... Aquí, la variable debe de estar definida como PIC 9.
 TIME, devuelve la hora con formato HHMMSSMM, la variable debe de estar
como PIC 9(8).
 ESCAPE-KEY, devuelve el código de la tecla de excepción pulsada, debe de
estar definida con PIC 99 y según el compilador los valores pueden ser distintos,
pero los básicos suelen ser los mismos, por ejemplo: ENTER=13, FLECHA
ARRIBA=52, FLECHA-ABAJO=53 y las teclas de función desde F01 hasta F8
tomarían 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
configuración del compilador o desde una variable del sistema. Puede ser muy
útil para darle capacidades a usuarios diferentes por ejemplo. Tener en cuenta
que la variable de entorno debe de ir entre comillas para que sea reconocida.

La definición de la variable que he dado, no es fija, pero si la mas conveniente, es decir

para guardar el dia de la semana, he indicado una variable con PIC 9, pero podíamos
haber escogido PIC 9(8), lo que pasa, es que no tendría mucho sentido malgastar
espacio, cuando sabemos con seguridad, que el dato posible es de 1 a 7, y por lo tanto
de PIC 9.

Además de todas éstas opciones, cada compilador ha ido incorporando las que ha creido
conveniente y por ejemplo con algunas de las nuevas es posible saber información sobre
el sistema sobre el que trabajamos, el terminal, la línea, etc ....

...
WORKING-STORAGE SECTION.
77  DIA  PIC 9.
77  FECHA PIC 9(6).
77  FECHA8 PIC 9(8).
...
PROCEDURE DIVISION.
INICIO.
       ACCEPT DIA FROM DAY-OF-WEEK.
       ACCEPT FECHA FROM DATE.
       ACCEPT FECHA8 FROM CENTURY-DATE.
...

Nota: Si usarames éste programa el día 1 de Julio de 1.999, el valor

de las variables sería:

     FECHA=990701.
     FECHA8=19990701
     DIA=4.

El 4 nos indicaría que el día de la semana sería Jueves.

Formato para aceptar datos por el teclado.

ACCEPT variable CLAUSULAS ... ON EXCEPTION variable instrucción.

La lista de cláusulas es muy larga, y por desgracia algunos compiladores pueden tener
mas que otros, así que voy a explicar las mas comunes a continuación: Recordad que lo
que se explica aquí puede ser válido tanto para ACCEPT como para DISPLAY.

 LINE variable, constante numérica, (ACCEPT Y DISPLAY) le indicamos la

línea donde se aceptará el campo, puede ser una variable o un número,
tendremos siempre en cuenta que la línea 1 será la primera de arriba de la
pantalla, normalmente podremos trabajar con 24 líneas. Si no se específica
tomará la referencia de la siguiente línea en la que estemos.
 COLUMN, COL, POSITION variable, constante numérica, (ACCEPT Y
DISPLAY) aquí le indicamos la columna dentro de la línea 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 opción le indicamos si
queremos o no que emita un pitido al llegar al comando. Por defecto sonará.
 BLINK, (ACCEPT Y DISPLAY) si aparece ésta cláusula, 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 contraseña o alguna clave, en la pantalla
no salen los datos que vamos introduciendo. Si no indicamos ninguna el sistema
coge HIGH por defecto.
 TAB, (ACCEPT) la presencia de ésta cláusula hace que no salte al siguiente
campo hasta que no pulsemos ENTER. Por defecto al introducir el número de
caracteres o dígitos del campo salta automáticamente.
 TIME variable, constante numérica, (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 centésimas de segundo.
 CURSOR variable, (ACCEPT) si especificamos ésta cláusula, el sistema
guardará en la variable la posición donde se ha terminado la introducción 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 línea sobre la
que estamos desde la posición del ACCEPT.
 ERASE EOS, (ACCEPT Y DISPLAY) le indicamos que borre toda la página
desde la posición de la línea en la que estamos.

Instr. de Pantalla

página(s) : 2/3
(5792 palabras totales en este texto)
(59959 Lecturas)   

 PROMPT carácter, (ACCEPT) conseguimos que rellene con algún carácter

específico 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 cláusula hacemos que vuelva a "pintar" el
contenido del campo después de aceptado. Es decir si le hemos puesto PROMPT
ECHO, mientras se acepta saldrán los guiones bajos para indicar el tamaño pero
al salir del campo se volverá a displayar y éstos guiones desaparecerán.
 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 numérica, (ACCEPT) variamos el tamaño de la
variable que teníamos 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 cláusula conseguimos que si
estamos aceptando un campo numérico o alfabético, e introducimos un valor no
aplicable, lo ignore. Por ejemplo si introducimos una letra en un campo
numérico 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 cláusula es bastante
amplia y en ella podemos atribuir otras opciones como caracteres gráficos,
colores, etc.. Su uso puede variar según los compiladores. Mas abajo
encontrareis mas información.
 ON EXCEPTION variable instrucción (ACCEPT) si al aceptar el campo
introducimos una de las teclas que causa excepción, 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 continuación podremos realizar una
instrucción. Por ejemplo si estamos aceptando un campo con PIC X(40) y
cuando estamos metiendo su valor pulsamos la tecla escape, si tenemos ésta
cláusula puesta la variable tomará el valor 27 (correspondiente a la tecla escape)
y a continuación se ejecutaría la instrucción que hubiéramos puesto. Pero todo
esto se ve mejor con los ejemplos que a continuación voy a indicar. 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 Mayúsculas (UPPER ) o Minúsculas (LOWER).
 COLOR, (ACCEPT y DISPLAY) cláusula propia de Acucobol con la que
conseguimos aceptar el campo con un determinado color dependiendo de una
tabla para asignación de colores.
 REQUIRED, (ACCEPT) con ésta opción 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.
 Color Letra Fondo Observaciones
Negro 1 32 Para conseguir los colores, debemos
Azul 2 64 de sumar las dos cantidades
correspondientes a la letra y al fondo,
Verde 3 96
por ejemplo si queremos el fondo
Celeste 4 128 blanco y la letra azul, el valor que se le
Rojo 5 160 debería de asigna a la cláusula
Morado 6 192 COLOR será de 258 (256 fondo
Marrón 7 224 blanco + 2 letra azul).
Blanco 8 256

TIPOS DE CONTROL. Voy a explicar algunos de los atributos que se pueden utilizar
cuando la frase CONTROL se especifica en ACCEPT o DISPLAY. El formato es el
siguiente:

CONTROL "FCOLOR=color, .............".

 FCOLOR, color de primer plano, utilizaremos los nombres de los colores
(white, black, red, blue, green, magenta, brown y cyan).
 BCOLOR, color de fondo y la gama de colores igual que la anterior.

Formatos Windows (100&100) de ACCEPT en Acucobol:

Con Acucobol (y hablo de él, por ser el que utilizo en la actualidad) se permite aceptar
cualquier control gráfico típico de windows, como un ENTRY-FIELD, directamente
desde la PROCEDURE DIVISION y con el comando ACCEPT propio de Cobol.
Evidentemente cambia un poco sobre todo porque las cláusulas o propiedades son
mucho mas amplias.

...
WORKING-STORAGE SECTION.
77  NOMBRE  PIC X(30).
77  CODIGO   PIC 9(5).
77  ESCA        PIC 9 COMP-1.
77  QW           PIC 9.
...
PROCEDURE DIVISION.
INICIO.
       ACCEPT NOMBRE LINE 10 COL 20 PROMPT LOW REVERSE ECHO
CONTROL "FCOLOR=BLUE, BCOLOR=WHITE" ON EXCEPTION  ESCA
MOVE 1 TO QW.
       ACCEPT CODIGO LINE 12 COL 20 CONVERT.

...

Nota: Con el primer ACCEPT conseguiriamos introducir un valor en la variable

 NOMBRE, lo aceptaremos en brillo suave con video reverso y una vez introducido
el campo, este se volverá a mostrar tal y como va a quedar, gracias a ECHO.
Además se aceptará en color azul con fondo blanco y si pulsamos una de las teclas
que causan excepcion según los valores permitidos, esta se guardaría en la variable
ESCA y luego podríamos preguntar por su valor. Por ejemplo si pulsamos F1, F2,
F3 tomará el valor 1, 2, 3. Si pulsamos ENTER (13) ESCAPE (27), Tabular (9), etc
...
La siguiente orden nos permitirá aceptar la variable CODIGO en la cual los
carácteres no numéricos no se admitirán al llevar la clásusula CONVERT.

Os aconsejo que hagáis todo tipo de pruebas con las opciones disponibles hasta que
el resultado sea el que deseáis.

Muchas veces cuando se muestra un mensaje, se acepta una variable a continuación

solo para dar tiempo al usuario. Algunos compiladores como Acucobol han
implementado la siguiente opción:
ACCEPT OMITTED, y así no tenemos que definir ninguna variable.

Teneis que tener en cuenta que algunas de las cláusulas que explico es posible que
no funcionen en todos los compiladores, así como es posible que existan otras que
yo desconozca debido a que son usadas por otros compiladores.

Instr. de Pantalla

página(s) : 3/3
(5792 palabras totales en este texto)
(59959 Lecturas)   

DISPLAY, es la instrucción que usaremos como salida de datos en pantalla. Con ella
mostraremos cualquier texto, cualquier variable, cualquier constante o cualquier valor,
en resumidas es la instrucción para que aparezca lo que sea en pantalla. Las cláusulas
asociadas a esta instrucción son practicamente las mismas que hemos visto para
ACCEPT, con lo que solo las indicaré, su explicación la obtendréis arriba. De todas
maneras ésta instrucción está siendo implementada en muchos mas campos, por
determinados compiladores y no sería justo pensar que su única función es la que voy a
explicar aquí, lo que si es cierto es que ésta es la común a todos los compiladores. Mas
abajo hablaré un poco de todo esto que os digo y de su futuro.

DISPLAY variable, literal CLAUSULAS ...

 LINE, COL, SIZE, HIGH, LOW, REVERSE, BEEP, BLINK, ERASE.
Todos funcionan igual que con la sentencia ACCEPT.

TIPOS DE CONTROL. Además de los vistos en ACCEPT y DISPLAY podemos

utilizar otros:

CONTROL "FCOLOR=color, .............".

 FCOLOR, igual que en ACCEPT.
  BCOLOR, igual que en ACCEPT.
 GRAPHICS, según una tabla es posible utilizar caracteres semigráficos en
cualquier sistema. Cuando programamos en MS-DOS, estos caracteres se
pueden asignar muy facilmente pero al trabajar con sistemas UNIX-LINUX,
gracias a ésta cláusula podemos conseguir esos carácteres. Existe una tabla para
asignar los valores, por ejemplo la "q" nos da la linea horizontal (Alt+196 (-))
con la que se forman los cuadros, la "m" nos da la vertical (Alt+179 (¦)) Aqui no
se ven bien.
 WINDOW-CREATE, WINDOW-REMOVE, En RM/Cobol, también se
utiliza para crear y borrar las pantallas virtuales con las que Cobol puede
trabajar, pero para ver su uso, os podeis ir a la sección que existe específica para
ello en TEMATICOS.

...
WORKING-STORAGE SECTION.
77  NOMBRE  PIC X(30).
...
PROCEDURE DIVISION.
INICIO.
     DISPLAY " " LINE 1 ERASE CONTROL "FCOLOR=BLUE,
BCOLOR=WHITE". 
       DISPLAY "INTRODUZCA EL NOMBRE" LINE 10 COL 10
REVERSE.
       ACCEPT NOMBRE LINE 10 COL 34 PROMPT LOW ECHO.

...

Nota: Una cosa a tener en cuenta tanto con FCOLOR, como con
BCOLOR, es que los colores que tomen seguirán activos hasta
encontrar otra orden que los cambie, por eso al comenzar con esa
primera linea conseguimos que toda la pantalla se muestre blanca y
el texto en azul para todo el programa, hasta que se encuentre el
compilador con otra linea que lo cambie. O sea que no será
necesario seguir incluyendo la cláusula CONTROL, en todos los
ACCEPT y DISPLAY que vayamos a utilizar mientras queramos
mantener éste formato.

Otros formatos de DISPLAY:

DISPLAY nombre de pantalla CLAUSULAS ..., podemos mostrar una pantalla

completa que previamente hayamos definido en la SCREEN SECTION.

DISPLAY WINDOW CLAUSULAS ... , en Acucobol se utiliza para crear las

ventanas virtuales con las que Cobol puede trabajar, pero para ver su uso, os podeis ir a
la sección que existe específica para ello TEMATICOS.

DISPLAY LINE CLAUSULAS ..., conseguimos dibujar una línea vertical u horizontal
donde le indiquemos con las cláusulas correspondientes. (No todos los compiladores),
se incorporan además éstas cláusulas:

 SIZE variable, constante numérica, longitud de la línea (horizontal).

 LINES variable, constante numérica, altura de la línea (vertical).

DISPLAY BOX CLAUSULAS ..., igual a la anterior per conseguimos dibujar un

cuadro, muy útil, pero no todos los compiladores lo tienen implementado. Se incorporan
además éstas cláusulas:

 SIZE variable, constante numérica, anchura del cuadro (horizontal).

 LINES variable, constante numérica, altura del cuadro (vertical).
 TITLE variable, constante alfanumérica, título del cuadro.
 TOP, BUTTON, CENTERED, RIGHT, LEFT posición que ocupará el título
dentro del cuadro.

Formatos Windows (100&100) de DISPLAY en Acucobol:

Acucobol en su afán por conseguir una programación totalmente integrada con los
sistemas gráficos, ha conseguido implementar a la orden DISPLAY la potencia
necesaria para displayar ventanas Windows (100%100) así como cualquier tipo de
control. Hoy podemos con una linea de código displayar un COMBOBOX, LABEL,
FRAME, BITMAP, STANDARD WINDOW, FLOATING WINDOW, PUSH-
BUTTON, ENTRY-LABEL, etc... y asignarle cualquiera de sus propiedades. Pero es un
tema demasiado amplio para tratarlo desde aquí. Necesitaría una sección unica y
exclusivamente para la programación gráfica, pero todo se andará.

Os aseguro que es muy grato obtener resultados Windows, programando directamente

con el editor de MS-DOS (ese azul con muy pocas opciones) sin necesidad de ninguna
herramienta externa, que también existe.
Instr. de Variables

página(s) : 1/5
(5707 palabras totales en este texto)
(65505 Lecturas)   

Daré cabida en esta sección a la explicación de todas las instrucciones que hacen
referencia a las variables y sus valores. Como todas, este grupo de instrucciones tiene su
vital importancia en la programación y son usadas habitualmente.

MOVE, es la instrucción 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.

Estos son los dos formatos que posee:

Formato 1:

MOVE variable, valor TOvariable, variable, variable, ....

Con el primer formato las variables que siguen al TO tomarán el dato de la

variable o del valor que le preceden. De todo se verá al final una serie de
ejemplos bien detallados.
Siempre tendremos una serie de normas o restricciones para asegurarnos de que
los valores han pasado correctamente.

 Los campos numéricos siempre se van a alinear a la derecha, respetando la

posición del punto decimal si lo hubiera. Si la variable que recibe el campo es
mas pequeña, evidentemente se perderán los que no quepan y si es mas grande el
resto se pondrá a ceros.

 Si además el campo al que se mueven los datos es de edición, al hacer el paso del
valor, este a su vez se formateará con la edición declarada en la WORKING.
 Si son alfanuméricos la alineación se efectuará a la izquierda a menos que se haya
especificado en la WORKING, al definirla, una justificación a la derecha (JUST
RIGHT). Al igual que en los numéricos si es mas pequeño se perderán los caracteres
que no quepan y si es mas grande el resto irá relleno de espacios en blanco.

...
WORKING-STORAGE SECTION.
77  NUMERO1   PIC 9(6).
77  NUMERO2   PIC 9(8)V99.
77  NUMERO3   PIC [Link],ZZ.
77  TEXTO1     PIC X(15)  VALUE "LENGUAJE COBOL".
77  TEXTO2     PIC X(10).
77  TEXTO3     PIC X(20) JUST RIGHT.
...
PROCEDURE DIVISION.
INICIO.
       MOVE 1536 TO NUMERO1.
       MOVE NUMERO1 TO NUMERO2 NUMERO3.
       MOVE TEXTO1 TO TEXTO2 TEXTO3.
...

Nota: Después de aplicar estas sentencias, éste sería el resultado:

     NUMERO1=001536
     NUMERO2=0000153600 (La coma decimal es virtual)
     NUMERO3=  1.536,00

     TEXTO1=LENGUAJE COBOL
     TEXTO2=LENGUAJE C
     TEXTO3=      LENGUAJE COBOL
Formato 2:

MOVE CORR Identificador1 TO Identificador2

Agregando CORR a la instrucción 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
hicieramos 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.

No es necesario que tengan el mismo PIC, ni que estén en el mismo orden, solo que
coincidan en su nombre.

...
WORKING-STORAGE SECTION.
01  DATOS1.
     02  NOMBRE   PIC X(30).
     02  REGION   PIC X(20).
     02  PAIS       PIC X(15).
01  DATOS2.
     02  PAIS       PIC X(10).
     02  REGION    PIC X(10).
     02  NOMBRE   PIC X(10).
...
PROCEDURE DIVISION.
INICIO.
       MOVE "ANDRES MONTES" TO NOMBRE IN DATOS1.
       MOVE "ANDALUCIA" TO REGION IN DATOS1.
       MOVE "ESPAÑA" TO PAIS IN DATOS1.
       MOVE CORR DATOS1 TO DATOS2.
...

Nota: Para partir con unos valores, primero los he movido a las variables del
primer grupo (DATOS1). Después de aplicar el MOVE CORR, el valor de las
variables de DATOS2 sería:

     DATOS2:
        PAIS=ESPAÑA
        REGION=ANDALUCIA
        NOMBRE=ANDRES MON

Fijaros que aunque el orden ni el tamaño era el mismo, el resultado es el que

queríamos.

Instr. de Variables

página(s) : 2/5
(5707 palabras totales en este texto)
(65505 Lecturas)   
INITIALIZE, se utiliza para inicializar variables según su descripción, es decir pondrá
a ceros todas las variables numéricas o de edición y a espacios en blanco las alfabéticas
y alfanuméricas. No funciona con campos definidos como FILLER, (evidente). Y puede
ser muy útil para inicializar tablas completamente cuando nos referimos al nivel mas
alto de la misma.

...
WORKING-STORAGE SECTION.
77  TEXTO PIC X(10) VALUE "HOLA MUNDO".
77  NUMERO PIC 9(8) VALUE "12345678".
...
PROCEDURE DIVISION.
INICIO.
     INITIALIZE TEXTO NUMERO.
...

Nota: Después de hacer INITIALIZE el valor de TEXTO será igual

a espacios y el de NUMERO igual a ceros.

Es el mismo resultado que utilizar MOVE haciendo uso de las

CONSTANTES FIGURATIVAS que vimos en la Introducción de
los manuales:

       MOVE SPACES TO TEXTO.

       MOVE ZEROS TO NUMERO.

El resultado es el mismo en ambos casos, pero en el segundo

teníamos que saber de que tipo eran las variables para moverles
SPACES o ZEROS, mientras que en el primer caso, es el
compilador quien se encarga se saber el tipo de la variable.

INSPECT, esta 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 caracter, o cambiar todos esos caracteres por otros, etc ...

Esta instrucción tiene formatos diferentes según lo que se desee hacer, así que vamos a
ver cada uno de ellos por separado.

Formato 1:

INSPECT campo1
        TALLYING variable1 FOR ( CHARACTERS)
          (( BEFORE/AFTER) INITIAL) Cadena1
                   (ALL)(LEADING) Cadena2 ...
           (Se puede repetir de nuevo)
Este formato es el utilizado para contar el número de veces que aparece Identificador1
en el campo1 y guardará el valor en la variable1 que previamente hayamos definido en
la WORKING.

 CHARACTERS, indica que cuente todos los caracteres del campo incluso los
espacios en blanco.
 ALL, indica que tiene que buscar en todos los caracteres del campo, la cadena
especificada en Cadena2.
 LEADING, indica que tiene que buscar la cadena especificada en Cadena2, pero
solo hasta que encontremos uno diferente, si nada mas empezar es diferente el
resultado sera directamente 0.
 BEFORE INITIAL, busca solo hasta que aparezca la cadena especificada como
Cadena1.
 AFTER INITIAL, empieza a buscar justo después de la cadena especificada en
Cadena1.

Veamos unos ejemplos para salir de dudas. Primero vamos a definir una WORKING-
STORAGE.

...
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 carácter 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 aparición del caracter 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 caracter G.

Instr. de Variables

página(s) : 3/5
(5707 palabras totales en este texto)
(65505 Lecturas)   

Formato 2:

INSPECT campo1
       REPLACING variable1 CHARACTERS BY Cambio1
         (( BEFORE/AFTER) INITIAL)Cadena1
                  (ALL)(LEADING)( FIRST) Cadena2...
        (Se puede repetir de nuevo)

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 indicaría que solo se reemplazaría la primera vez que coincidieran las condiciones.
El tamaño de la sustitución debe de ser igual al tamaño sustituido, ya que la variable
campo1 no puede cambiar su tamaño.

...
WORKING-STORAGE SECTION.
77  TEXTO PIC X(15) VALUE "PAGINA DE COBOL".
77  CONTA PIC 9(8).
...
PROCEDURE DIVISION.
INICIO.
     INSPECT TEXTO REPLACING CHARACTERS BY "H".
...
El valor de TEXTO será "HHHHHHHHHHHHHHH", es decir
cambia todos los caracteres por el caracter H.

     INSPECT TEXTO REPLACING ALL "A" BY "I".

...
El valor de TEXTO será "PIGINI DE COBOL", es decir ha
cambiado todas las A por I.

     INSPECT TEXTO REPLACING FIRST "A" BY "O".

...
El valor de TEXTO será "POGINA DE COBOL", solo cambia la
primera A por una O.

     MOVE "PAGIPATOPETOPA" TO TEXTO.

      INSPECT TEXTO REPLACING ALL "PA" BY "--"
              AFTER INITIAL "G"  BEFORE INITIAL "T".
...
Complicando un poco mas, el valor de TEXTO despueés de la
sentencia INSPECT será PAGI--TOPETOPA, es decir se cambia
todas las PA por -- pero empezando a buscar a partir de la primera
letra G y justo hasta la letra T.

       MOVE "PAGIPATOPETOPA" TO TEXTO.

       INSPECT TEXTO TALLYING CONTA FOR ALL "PA"
                   REPLACING ALL "TO" BY "PO" AFTER INITIAL
"OP".
...
Aquí hemos mezclado ambos formatos y el resultado es el siguiente.
El valor de CONTA es 3 que son las veces que aparece la cadena
PA en TEXTO y después se ejecuta el REPLACING y el resultado
da que TEXTO vale PAGIPATOPEPOPA, ya que ha cambiado
todos los TO por PO pero después de la cadena OP.

Formato 3:

INSPECT campo1
        CONVERTING Identificador1 TO Identificador2
          (( BEFORE/AFTER) INITIAL) Cadena1 ...           (Se puede repetir de nuevo)

Con este formato convertimos los caracteres que se especifiquen en identificador1 por
los que pongamos en identificador2, respetando el orden.

Veamos algunos ejemplos, se suele utilizar mucho para que al aceptar un campo nos de
igual se ha sido introducido en mayúsculas o en minúsculas ya que lo convertiriamos a
alguno de los formatos.

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

ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" TO
                "abcdefghijklmnñopqrstuvwxyz".
...
El valor de TEXTO será "pagina de cobol" ya que ha convertido
 todas las letras mayúsculas por minúsculas.

Para finalizar con el comando INSPECT, decir que es un comando muy particular y
cada uno deberá decidir en cada momento y con que situaciones utilizarlo.
Instr. de Variables

página(s) : 4/5
(5707 palabras totales en este texto)
(65505 Lecturas)   

STRING, se utiliza para unir o concatenar campos o partes de estos y el resultado

almacenarlo en otro campo. En la unión 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 caracter 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 concatenación 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 cláusula el valor de identificador1 será en la
posición 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 ejecutaría Sentencia1 si hubiera habido un error al hacer la
concatenación, por ejemplo si se especifica Identificador1 con un valor superior
al tamaño del Campo3.
 NOT ON OVERFLOW, se ejecutará Sentencia2 si no existe error en la
operación.

Vamos a ver unos ejemplos y además vamos a comparar como se hubiera hecho
utilizando la Working si no existiera el STRING.

...
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     FEBRERO
MARZO      ".
     02  FILLER PIC X(30) VALUE "ABRIL      MAYO       JUNIO
".
     02  FILLER PIC X(30) VALUE "JULIO      AGOSTO
SEPTIEMBRE".
     02  FILLER PIC X(30) VALUE "OCTUBRE
NOVIEMBREDICIEMBRE ".
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.
      MOVE ANIO TO LANIO.

      STRING "HOY ES " DIA " DE " TMES (MES) " DE " ANIO
                  DELIMITED BY SIZE INTO CONSTRING.
...

El valor de LAFECHA sería: HOY ES 22 DE JUNIO       DE 2001.

El valor de CONSTRING sería: HOY ES 22 DE JUNIO       DE 2001.

Fijaros que el resultado es el mismo pero en cambio gracias a STRING no

hemos tenido que definir ninguna linea en la WORKING ni tampoco tener que
mover campos de unas variables a otras.

La cláusula DELIMITED BY se ha puesto al final porque dicha cláusula se

aplica a todos los campos que la preceden, si hubieramos querido coger otra
limitación para un campo en concreto habría que haberlo especificado, por
ejemplo vamos a afinar mas el ejemplo y conseguir que entre el mes JUNIO y el
DE no exista mas que un espacio. En el ejemplo anterior ha unido los 10
caracteres que tiene la variable TMES.

  STRING "HOY ES " DIA " DE " DELIMITED BY SIZE

      TMES (MES) DELIMITED BY " "
      " DE " ANIO  DELIMITED BY SIZE INTO
 CONSTRING.
El valor que tendrá ahora CONSTRING será el siguiente:
HOY ES 22 DE JUNIO DE 2001.

Como veis la diferencia está en los espacios que le sobran al mes, que al poner
DELIMITED BY " " los ha evitado porque solo ha concatenado hasta que ha
encontrado el primer caracter en blanco.

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.

El valor que tendrá ahora CONSTRING será el siguiente:

    HOY ES 22 DE JUNIO DE 2001.

Es decir habrá empezado a concatenar a partir de la posición 4 del campo

CONSTRING. Si el valor de CONSTRING previamente era espacios habría
dejado 3 espacios en blanco y si hubiera sido cualquier otro hubiera respetado
los 3 primeros caracteres que tuviera.
Instr. de Variables

página(s) : 5/5
(5707 palabras totales en este texto)
(65507 Lecturas)   

UNSTRING, hace exactamente lo contrario de que hemos visto que hacía 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 límite hasta donde vamos cogiendo el campo1 para
partirlo. Igual que en STRING, solo que con la función 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 información que vaya
fragmentando.
 DELIMITER, va a contener en cada caso el elemento separador, si hemos
incluido en DELIMITED varios, Identificador1 guardará el carácter que de los
elegidos ha sido el causante de la fragmentación.
 COUNT, cuenta el número de caracteres incluidos en la fragmentación.
 DELIMITER y COUNT, se podrán usar si se ha especificado DELIMITED.
Podemos usar tantos DELIMITER y COUNT como campos se vayan a crear en
la fragmentación.
 TALLYING, si especificamos esta opción la instrucción nos guardará en
Identificador4 el número de campos que se han utilizado en la fragmentación.
 POINTER, indica desde que posición va a ser examinado el campo que desea
desfragmentar, por defecto su valor es 1, es decir desde el primer caracter.
 ON OVERFLOW, se ejecutaría Sentencia1 si hubiera habido un error al hacer la
operación.
 NOT ON OVERFLOW, se ejecutará Sentencia2 si no existe error en la
operación.

Vamos a hacer lo contrario de antes y conseguir una fecha numérica de una frase con la
fecha:

...
WORKING-STORAGE SECTION.
01  LAFECHA PIC X(30) VALUE "HOY ES 22 DE JUNIO DE
2001".
01  FECHA.
     02  DIA    PIC 99.
     02  MES   PIC 99.
     02  ANIO  PIC 9999.
01  CONSTRING PIC X(40).
01  TABLAMES.
     02  FILLER PIC X(30) VALUE "ENERO     FEBRERO
MARZO      ".
     02  FILLER PIC X(30) VALUE "ABRIL      MAYO       JUNIO
".
     02  FILLER PIC X(30) VALUE "JULIO      AGOSTO
SEPTIEMBRE".
     02  FILLER PIC X(30) VALUE "OCTUBRE
NOVIEMBREDICIEMBRE ".
01  LATABLA REDEFINES TABLAMES.
     02  TMES PIC X(10) OCCURS 12 TIMES.
01  CONTA PIC 99.
01  PALABRAS PIC 99.
01  LETRAS PIC 99.
01  TEXTOS.
     02  TEXTO1 PIC X(20).
     02  TEXTO2 PIC X(20).
     02  TEXTO3 PIC X(20).
     02  TEXTO4 PIC X(20).
      02  ELMES   PIC X(10).
...
PROCEDURE DIVISION.
INICIO.
      UNSTRING LAFECHA DELIMITED BY " "
          INTO TEXTO1 TEXTO2 DIA TEXTO3
                 ELMES COUNT LETRAS TEXTO4 ANIO.

      PERFORM VARYING CONTA FROM 1 BY 1

        UNTIL ELMES = TMES (CONTA) OR CONTA = 12
        TALLYING PALABRAS
        END-PERFORM    
...
El valor de LAFECHA era: HOY ES 22 DE JUNIO DE 2001.

Después de aplicar las instrucciones siguientes el contenido de los campos sería

el siguiente:

 TEXTO1 = HOY
 TEXTO2 = ES
 TEXTO3 = DE
 TEXTO4 = DE
 ELMES = JUNIO
 DIA = 22
 ANIO = 2001
 FECHA = 22062001
 LETRAS = 5
 PALABRAS = 7

La variable PALABRAS nos ha guardado el número de variables utilizadas en la

fragmentación, en este caso 7. La variable LETRAS ha guardado el número de
caracteres que ha cogido en la separación que ha guardado en ELMES, que han
sido 5 (JUNIO). Podiamos haber puesto un COUNT para cada una.

El PERFORM de después lo hemos hecho para encontrar en la tabla la posición

que ocupaba el nombre del mes y así poder construir la variable FECHA
completa en númerico.

Vamos a hacer un ejemplo de como podríamos separar un nombre completo, por

ejemplo para el nuevo modelo de la Seguridad Social (en España) y el sistema R.E.D.:

...
WORKING-STORAGE SECTION.
01  TEXTO PIC X(30) VALUE "MONTES ROBLES, ANDRES".
01  APELLI1   PIC X(20).
01  APELLI2   PIC X(20).
01  NOMBRE PIC X(20).
01  SEPARA   PIC X.
01  SEGURIDAD.
      02  AP1 PIC XX.
     02  AP2 PIC XX.
     02  NOM PIC X.
...
PROCEDURE DIVISION.
INICIO.
      UNSTRING TEXTO DELIMITED BY " " OR ", "
          INTO APELLI1 APELLI2 NOMBRE.

Aquí conseguimos separar cada apellido y el nombre en campos

diferentes. (APELLI1, APELLI2, NOMBRE)

      MOVE APELLI1 TO AP1 MOVE APELLI2 TO AP2

      MOVE NOMBRE TO NOM.
...

Aquí la variable SEGURIDAD tendría el valor: MOROA. Válido

para el sistema RED.

Instrucción Perform

página(s) : 1/4
(8338 palabras totales en este texto)
(50229 Lecturas)   

Creo que por méritos propios esta instrucción se merece un apartado para ella sola. Es
una instrucción que nos permite tranferir el control a otro u otros procedimientos o bien
realizar una serie de sentencias dentro de ella misma mientras se cumplan las
condiciones que le hayamos indicado. Es la instrucción mas importante tanto por su
variedad de formatos, como por el número de veces que se suele usar dentro de un
programa, además nos puede hacer mucho mas sencillo el realizar una programación
estructurada.

Cuando decimos que un programa está estructurado, no cabe duda que es debido al uso
de ésta instrucción. Pero creo que lo importante no es tanto hablar de ella, sino
comenzar a explicarla.

Empecemos a ver sus formatos desde el mas simple al mas complicado: Siempre debéis
de tener en cuenta que los ejemplos son solo para aclarar la explicación, nunca los
toméis como programas completos y con una lógica aplastante.

Formato 1: Con este formato transferimos el control del programa a un párrafo, cuando
éste termine vuelve el control a la instrucción que sigue al PERFORM .

PERFORM nombre_parrafo
...
WORKING-STORAGE SECTION.
01  NOMBRE PIC X(30).
01  OP PIC X.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE.
       DISPLAY 'HOLA ' LINE 10.
       DISPLAY NOMBRE LINE 10 COL 6.
       ACCEPT OP LINE 20.
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
...

Nota: Simplemente hemos hecho que el programa salte a un párrafo

que lo ejecute y que vuelva el control a la secuencia.

Formato 2: Una extensión del anterior es indicarle que ejecute mas de un párrafo,
especificando el inicio y el fin.

PERFORM nombre_parrafo THRU nombre_parrafo

...
WORKING-STORAGE SECTION.
01  NOMBRE PIC X(12).
01  APELLIDO PIC X(12).
01  OP PIC X.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       DISPLAY 'HOLA ' LINE 10.
       DISPLAY NOMBRE LINE 10 COL 6.
       DISPLAY APELLIDO LINE 10 COL 20.
       ACCEPT OP LINE 20.
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70. 
...
Nota: En este caso PIDENOMBRE y PIDEAPELLIDO van
seguidos, pero al poner el THRU lo que conseguimos es que el
control no se devuelva hasta llegar al párrafo indicado después del
THRU. Es decir que entre PIDENOMBRE y PIDEAPELLIDO podrá
haber cinco párrados mas y todos ellos se hubieran ejecutado.

Instrucción Perform

página(s) : 2/4
(8338 palabras totales en este texto)
(50229 Lecturas)   

Formato 3: Seguimos ampliando las capacidades, ahora conseguimos que el

PERFORM se realice tantas veces como se indique en el número o variable que va
delante de TIMES.

PERFORM nombre_parrafo THRU nombre_parrafo número-variable TIMES

...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  OP           PIC X.
01  LI            PIC 99 VALUE 10.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       PERFORM SALUDAR 3 TIMES.
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70.
SALUDAR.
       ADD 1 TO LI.
       DISPLAY 'HOLA ' LINE LI.
       DISPLAY NOMBRE LINE LI COL 6.
       DISPLAY APELLIDO LINE LI COL 20.
       ACCEPT OP LINE 20.
...

Nota: Ahora hemos conseguido que el saludo nos lo muestre 3

veces. Por supuesto THRU y TIMES pueden ir perfectamente juntos.
Ya os he dicho al principio que los ejemplos pueden no ser muy
lógicos, pero si hacen la función de explicación.

Formato 4: Igual que el antrior formato solo que el número de veces que se ejecute
dependerá de una condición y no de un número fijo.

PERFORM nombre_parrafo THRU nombre_parrafoUNTIL condición

...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  OP           PIC X.
01  LI            PIC 99 VALUE 10.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       PERFORM SALUDAR UNTIL LI = 15.
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70.
SALUDAR.
       ADD 1 TO LI.
       DISPLAY 'HOLA ' LINE LI.
       DISPLAY NOMBRE LINE LI COL 6.
       DISPLAY APELLIDO LINE LI COL 20.
       ACCEPT OP LINE 20.
...

Nota: En este caso el compilador comprueba antes de iniciar el

PERFORM que la condición no se cumple para ejecutarla, en el
momento que se cumpla salta a la siguiente instrucción. En el
ejemplo ejecutará el PERFORM hasta que la variable LI alcance el
valor 15.

Instrucción Perform

página(s) : 3/4
(8338 palabras totales en este texto)
(50229 Lecturas)   
PRIMERA CONCLUSION

En los dos primeros formatos, como podréis comprobar a menos que sean instrucciones
que se vayan a llamar desde nuestro programa en mas de una ocasión, éstas podían
haber ido en el lugar del PERFORM, es decir las instrucciones una detrás de otra y
evitar el PERFORM.

Hasta ahora se ha explicado una manera de utilizar la sentencia PERFORM en la que el

control pasa a otro lugar del programa. Como véis el STOP RUN está antes de los
párrafos que han sido llamados con los PERFORM lo cual indica que éstos no se
ejecutarán sino es precisamente por los PERFORM.
Si bien con esto conseguimos una estructuración para nuestro programa la instrucción
PERFORM nos permite un mayor grado de estructura incluyendo las sentencias de los
párrafos llamados dentro de la propia sentencia PERFORM.

Para ello hay que tener en cuenta que la utilización del punto en las instrucciones daría
lugar al fin de la instrucción y nos daría errores, por ello, para finalizar la instrucción
nos basamos en END-PERFORM. Veamos un ejemplo de ello con los dos últimos
formatos explicados anteriormente.

PERFORM número-variable TIMES

       sentencias
END-PERFORM

PERFORM UNTIL condición

     sentencias
END-PERFORM

...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  OP           PIC X.
01  LI            PIC 99 VALUE 10.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       PERFORM 3 TIMES
            ADD 1 TO LI
            DISPLAY 'HOLA ' LINE LI
            DISPLAY NOMBRE LINE LI COL 6
            DISPLAY APELLIDO LINE LI COL 20
            ACCEPT OP LINE 20
       END-PERFORM
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
        ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70.
...
...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  OP           PIC X.
01  LI            PIC 99 VALUE 10.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       PERFORM UNTIL LI = 15
            ADD 1 TO LI
            DISPLAY 'HOLA ' LINE LI
              DISPLAY NOMBRE LINE LI COL 6
            DISPLAY APELLIDO LINE LI COL 20
            ACCEPT OP LINE 20
       END-PERFORM
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70.
...

Nota: Esta es una manera mas lógica de utilizar el PERFORM en

estos formatos, como veís se consigue una visión muy clara de lo
que estamos haciendo y no hay saltos de secuencia innecesarios. Por
supuesto el COBOL permite cualquier modalidad de uso y siempre
funcionaría igual. Como veis no puede haber puntos entre el
PERFORM y el END-PERFORM puesto que eso haría terminar con
error la sentencia.

Instrucción Perform

página(s) : 4/4
(8338 palabras totales en este texto)
(50229 Lecturas)   
Formato 5: En esta ocasión utilizaremos el PERFORM basándonos en un valor inicial
el cual podremos y aumentar o disminuir y terminar cuando se cumpla una condición.
No se si me he liado un poco con la explicación pero lo que conseguimos es ahorrarnos
varias instrucciones y resumirlas en una sola, para que lo comprendáis veamos su
formato y un ejemplo. Como he explicado anteriormente podemos hacer que el
PERFORM invoque a uno o varios párrafos o bien incluir el conjunto de sentencias
entre PERFORM y END-PERFORM.
En el ejemplo veremos este último caso, porque creo que es mas aconsejable.

PERFORM  VARYING variable FROM número, variable BY número, valor

UNTIL  condición
     sentencias
END-PERFORM

...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  OP           PIC X.
01  LI            PIC 99.
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE.
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO.
       PERFORM VARYING LI FROM 10 BY 1 UNTIL LI = 15
            DISPLAY 'HOLA ' LINE LI
            DISPLAY NOMBRE LINE LI COL 6
            DISPLAY APELLIDO LINE LI COL 20
            ACCEPT OP LINE 20
       END-PERFORM
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20.
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21.
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT.
       DISPLAY SPACES LINE 20 SIZE 70.
       DISPLAY SPACES LINE 21 SIZE 70.
...

La instrucción realiza los siguientes pasos:

Inicializa la variable LI con el valor que sigue al FROM, es decir 10, a continuación va
incrementado el valor de LI en 1 que es lo que va después del BY y ejecuta las
sentencias que van a continuación hasta que se cumple la condición de LI = 15.
Es decir las sentencias se ejecutarían para el valor 10, 11, 12, 13 y 14.

La instrucción PERFORM se puede anidar tantas veces como se quiera, teniendo en

cuenta que el PERFORM contenido debe de ejecutarse completamente interno o
completamente externo al que lo contiene.

Si necesitamos que por alguna circunstancia finalice la ejecución de un PERFORM aún

cuando la secuencia no corresponde, podemos utilizar la sentencia EXIT, que
precisamente lo que propicia es eso, que se interrumpa la sentencia PERFORM.

Para finalizar vamos a ver un ejemplo con varios PERFORM anidados:

...
WORKING-STORAGE SECTION.
01  NOMBRE   PIC X(12).
01  APELLIDO PIC X(12).
01  SALUDO   PIC X(30).
01  OP           PIC X.
01  LI            PIC 99.
01  CONTA1   PIC 99.
01  CONTA2   PIC 9(6).
PROCEDURE DIVISION.
INICIO.
       DISPLAY 'PROGRAMA DE SALUDO' LINE 1 ERASE
       PERFORM PIDENOMBRE THRU PIDEAPELLIDO
       STRING 'HOLA ' DELIMITED BY SIZE NOMBRE DELIMITED BY '
'
       ' ' DELIMITED BY SIZE APELLIDO DELIMITED BY ' ' INTO
SALUDO
       PERFORM VARYING LI FROM 10 BY 1 UNTIL LI = 15
            PERFORM VARYING CONTA1 FROM 1 BY 1 UNTIL CONTA1 >
30
                 DISPLAY SALUDO(CONTA1:1) LINE LI COL CONTA1 LOW
                 PERFORM VARYING CONTA2 FROM 1 BY 1 UNTIL
CONTA2 > 400000
                    MOVE ' ' TO OP
                 END-PERFORM
            END-PERFORM
       END-PERFORM
       DISPLAY 'FINALIZADO' LINE 22
       ACCEPT OP
       STOP RUN.
PIDENOMBRE.
       DISPLAY 'INTRODUZCA EL NOMBRE ..' LINE 20
       ACCEPT NOMBRE LINE 20 COL 30 PROMPT.
PIDEAPELLIDO.
       DISPLAY 'INTRODUZCA EL APELLIDO ..' LINE 21
       ACCEPT APELLIDO LINE 21 COL 30 PROMPT
       DISPLAY SPACES LINE 20 SIZE 70
       DISPLAY SPACES LINE 21 SIZE 70.
...

Nota: En el ejemplo como véis, después de aceptar el nombre y el apellido

construimos una frase y la guardamos en la variablen SALUDO utilizando el
comando STRING. A continuación y para mantener los mismos ejemplos de
toda la sección hacemos que aparezca en pantalla el SALUDO 5 veces,
(dependiendo del valor de LI, que como dijimos antes sería para 10, 11, 12,
13 y 14).

Pero ahora hemos intercalado dos PERFORM dentro de éste, el primero para
que nos muestre el mensaje letra a letra y el segundo para hacer de retardo y
así conseguir un efecto como si escribiéramos el SALUDO con una máquina
de escribir.

Como pódeis observar el único punto de toda la secuencia se haya en el STOP

RUN. El hecho de mantener los márgenes izquierdos, es para dar mas
claridad a la programación y conseguir que ésta sea lo mas estructurada
posible.

AUN HAY MAS

Pues sí, podemos desarrollar aún mas la instrucción incluyendo dos nuevos elementos.

EJECUTANDO ANTES O DESPUES

En primer lugar, por defecto el contenido del PERFORM se ejecuta después de hacer la
comprobación de la condición que precede a UNTIL , pero podemos hacer que ésta se
realice antes.

PERFORM  WITH TEST  [AFTER - BEFORE ] VARYING variable FROM

número, variableBY número, valorUNTIL condición
     sentencias
END-PERFORM

Con la opción TEST BEFORE, que es la opción por defecto se comprueba primero la
condición y si se cumple se ejcuta el resto, con lo cual es posible que las sentencias no
se ejecuten ninguna vez, si al comenzar ya está rota la condición.

Con la opción TEST AFTER, se ejecutan las sentencias antes de comprobar la

condición, con lo cual las sentencias se van a ejecutar al menos en una ocasión, incluso
aunque entremos en el PERFORM con la condición rota.

AUMENTANDO LAS CONDICIONES

Efectivamente además de la primera condición podemos incrementar el número de

condiciones para que se cumplan los requisitos y así ejecutar las sentencias. Esto lo
conseguimos incluyendo mas cláusulas precedidas de AFTER.

PERFORM WITH TEST [AFTER - BEFORE ] VARYING variable FROM

número, variable BY número, valor UNTIL condición
AFTER variable FROM número, variable BY número, valor UNTIL condición
     sentencias
AFTER ......
END-PERFORM
 Al aplicar este formato cuando se cumpla la primera condición pasará el control al
AFTER y comprobará de nuevo la condición que precede al siguiente UNTIL según los
valores especificados en la línea que contiene AFTER. Además podemos ir
incrementando el número de condiciones a nuestro antojo, consiguiendo de éste modo
hacer unos anidamientos y un desarrollo mas completo de la sentencia, obteniendo por
consiguiente unos niveles de perfeccionamiento muy altos.

RESUMIENDO

Una mayor utilización de PERFORM sin duda traerá un uso menor de la declaración
GO y con ello conseguimos una programación estructurada. Las ventajas de la
programación estructurada las quiero explicar en un apartado dentro de ésta misma
sección de Manuales, una vez explique las sentenicas GO e IF, que serán la siguiente
aportación al manual.

En esa nueva sección se verá un caso mas práctico y real de utilización de PERFORM
con uso de lecturas de ficheros y demás experiencias cotidianas en el mundo de la
programación en el ámbito de la gestión.

COBOL / WINDOWS

Que duda cabe que Windows ha dado a los programadores una facilidad para crear aplicaciones impresionante
además de una presencia gráfica que para cualquier programador Cobol de hace algunos años nos hace tener una
pequeña envidia por ese entorno y por el poco y lento efecto que tuvo para nuestro lenguaje.

Han tenido que pasar bastantes años para que hayan ido apareciendo herramientas o compiladores que nos permitan
obtener esos resultados "visuales" pero sin perder de vista nuestro lenguaje. Esto que por un lado nos puede parecer
ilógico creo que tiene su explicación en la principal característica del lenguaje Cobol, y ésta no es otra que la
portabilidad, ya sabemos que cualquier programa escrito en Cobol se puede ejecutar con su Runtime
correspondiente en cualquier máquina y eso al referirnos a Windows obviamente se iba a perder simplemente por el
manejo de la pantalla, ya que no sería lógico no aprovechar todas las ventajas que nos ofrecen los lenguajes
llamados visuales para adaptarse al Cobol. No se si ha quedado clara mi visión pero simplemente lo que he querido
decir es que el realizar un programa Cobol para Windows no nos va a permitir su implantación en otro sistema.

Analizando un poco lo que está pasando actualmente con el lenguaje Java, me di cuenta que es prácticamente la
filosofía del Cobol (igual estoy equivocado), es decir que cualquier programa realizado en un lenguaje concreto se
pueda ejecutar en cualquier máquina sin importar su sistema operativo, de hecho yo tengo aplicaciones realizadas en
Unix y las he pasado a MS-DOS y han funcionado a la primera, solo he tenido que cambiar las rutas de acceso a los
ficheros.

Bien, una vez aclarados éstos puntos en ésta página me gustaría comentar todas las posibilidades que tenemos los
programadores Cobol para adaptarnos al mundo Windows y sus posibilidades. Hoy en dia podemos encontrar en el
mercado muchos productos que nos pueden proporcionar ésto, lo que deberemos tener claro es lo que realmente
queremos, ya que hay herramientas que convierten programas escritos en Cobol a otros lenguajes visuales,
herramientas de apoyo a los programas tradicionales o compiladores que directamente generan programas Windows
a partir de sentencias escritas en Cobol. Lo que si que tendremos que tener claro es que al decidirnos por éstas
herramientas nos tenemos que olvidar de nuestros programas perfectamente estructurados y de la garantía de que
todo el programa fuente era lo que nosotros habiamos escrito.

Acucobol GT

(1214 palabras totales en este texto)

(28032 Lecturas)   

El Cobol con interfaz gráfica:  Acucorp, líder en Cobol para sistemas abiertos, ha
logrado combinar la tecnología de interfaces gráficas con la portabilidad de los sistemas
abiertos.

Con Acucobol-GT, solamente es necesario compilar los programas una sola vez, para
después ser ejecutados en cualquier plataforma. Es posible desarrollar y distribuir
aplicaciones que hacen uso de interfaces gráficas de usuario en mas de 600 plataformas,
siendo el código objeto 100% compatible con todas ellas.

Interfaz Gráfica Nativa:

Es posible programar todas las pantallas
gráficas, incluyendo ventanas flotantes y
controles gráficos, mediante Cobol, con el
uso de las extensiones a las sentencias
DISPLAY y ACCEPT. Las pantallas
pueden ser definidas en su totalidad
mediante la Screen Section. Acucobol-GT
permite que las aplicaciones trabajen como
si fueran nativas del entorno gráfico sobre
el cual operan, sin necesidad de recodificar
o recompilar. El Runtime despliega y
maneja la aplicación tanto en modo
gráfico como en modo texto y deja los servicios del sistema disponibles a la aplicación
en todo momento. Se encarga de manejar los eventos del sistema, pasando a la
aplicación únicamente aquellos para los cuales está preparada.

Formato de Ficheros: Vision es el formato de archivos indexados propio de

Acucobool-GT. Le permite moverse entre diferentes plataformas sin necesidad de
conversión de datos. Posee un sofisticado sistema de control de compresión de ficheros
y registros. Además permite al usuario definir la secuencia de orden para los índices de
un fichero, permitiéndole utilizar caracteres especiales o mezclar letras mayúsculas o
minúsculas sin problemas. Además, tiene la flexibilidad de trabajar simultaneamente, o
bien, ser reemplazado por otros formatos de ficheros y una gran variedad de bases de
datos relacionales como Oracle, Informix, Sybase, Microsoft SQL Server y la mayoría
de los formatos de ficheros compatibles con el estandar ODBC.

Administración de Transacciones:  Acucobol-GT tiene la capacidad de trabajar con

transacciones para aquellas aplicaciones que así lo requieran. Una transacción es un
conjunto de operaciones relacionadas entre varios ficheros, que son tratadas como una
unidad indivisible. En caso de ocurrir algún problema al ejecutar una transacción, los
ficheros de datos pueden recuperarse y mantener la integridad de sus datos.

El Entorno de Desarrollo Integrado de Acucobol-GT. ACUBENCH:  Acubench es

un entorno de desarrollo integrado (IDE) para Acucobol-GT, hace que los procesos de
desarrollo de sus aplicaciones Cobol, sean mas fáciles y mas productivas. Con
Acubench, un programador puede desarrollar, depurar y testear una aplicación en un
sencillo entorno gráfico integrado, permitiendole al acceso inmediato a todas las
herramientas de desarrollo esenciales.

Los componentes de Acubech son:

 Administrador de proyectos
 Screen Painter
 Editor de programas

Trabajan juntos compartiendo métodos y recursos comunes, proporcionando rápidos y

sencillos métodos para cambiar de un componente a otro. Esta integración ahorra
tiempo y dinero, haciendo que sea mas eficiente el uso de recursos del sistema.

El Administrador de Proyectos: 
Organiza, desarrolla y mantiene los
ficheros de sus proyectos. El
administrador de proyectos de
Acubench es el centro de control
organizativo de las aplicaciones
Acucobol-GT. Los desarrolladores
pueden visualizar y acceder a todos
los ficheros del proyecto, pueden
seleccionar y almacenar las opciones
de compilación y runtime para el
proyecto completo o para programas individuales.
El administrador de proyectos proporciona acceso a todas las herramientas y funciones
de Acubech, incluyendo el Screen Painter y el Editor de Código. Los desarrolladores
pueden también lanzar virtualmente cualquier programa Windows desde el
administrador de proyectos. Esto permite al usuario utilizar Acubech como el sistema de
desarrollo gráfico mas eficaz y de creciente rendimineto.

Screen Painter: 
Herramienta visual para crear y
diseñar pantallas gráficas
interactivamente (100% Windows).
Con el Screen Painter de Acubench,
usted puede facilmente crear
pantallas (GUI) Windows para sus
aplicaciones Cobol sin necesidad de
escribir una linea de código.
Simplemente haciendo "click" y
arrastrar "click and drag" los
controles estándar (GUI) de
Windows (como labels, push butons,
list boxes, grid, bitmaps, etc.) a continuación personalizar las propiedades y estilos
pertenecientes a cada control y pantalla. Cuando la pantalla está terminada, el Screen
Painter genera automáticamente el código Cobol desde la pantalla GUI diseñada,
creando el código de una forma tan sencilla como hacer "click" en un icono. El Screen
Painter disminuye el tiempo que lleva escribir una aplicación GUI, tanto para los
diseñadores gráficos que disponen de experiencia para "escribir" código Cobol
presionando un botón, como por la ayuda a los nuevos diseñadores para alcanzar un
aspecto profesional en sus pantallas con el mínimo esfuerzo.

El Editor de Código: 
Potentes características y altamente
personalizable.
El editor de código de Acubench
tiene todas las características que un
desarrollador necesita para generar y
manejar el código fuente Cobol. El
area de trabajo del editor de código
incluye características estándar tales
como título, menu, estado, barra de
herramientas y una especial barra de
herramientas de edición, que es
familiar a los programadores. Tanto
el área de trabajo como las opciones de proyecto son facilmente personalizables.
Los programadores pueden definir aquellas opciones para reunir sus necesidades
individuales y preferencias, de este modo incrementar su productividad. Mediante la
barra de herramientas se accede a compilar, depurar y ejecutar procesos contribuyendo
al desarrollo rápido de una aplicación.
NetExpress (Microfocus)

página(s) : 1/3
(3343 palabras totales en este texto)
(25759 Lecturas)   

ed NetExpress es la evolución a 32 bits del MicroFocus Cobol para Ms-Dos, Windows

y OS/2, compilador que era de 16 bits. Pero en realidad NetExpress es algo mas que una
simple evolución, ya que dispone de:

Entorno de desarrollo integrado (IDE): 

El avanzado entorno de desarrollo integrado (IDE) que proporciona Net Express ofrece
un completo conjunto de herramientas y asistentes para desarrollar aplicaciones. Las
eficaces funciones de gestión de proyectos simplifican el ciclo de edición, compilación
y depuración, mientras que el editor, que ha sido adaptado a las necesidades del
programador COBOL, facilita la modificación del código. Las características de control
de código fuente de PVCS® permiten que los equipos de programación colaboren sin
sobreescribir los cambios realizados por el resto del equipo. Una vez se hayan realizado
las modificaciones adecuadas, es posible reconstruir la aplicación con sólo hacer clic
con el ratón. Net Express es compatible con TrackerLink para aquellos programadores
COBOL que deseen complementar su proceso de trabajo con la gestión de incidencias.

Compilador COBOL de última generación:

Net Express incluye un compilador de última generación que potencia los tradicionales
puntos fuertes de COBOL, permitiendo:

 Generar código nativo de gran rendimiento que puede optimizarse para obtener
óptimos resultados en plataformas de hardware específicas.
 Trabajar con múltiples dialectos COBOL, lo que facilita el rehosting de
aplicaciones existentes a nuevas plataformas de producción.
 Sacar partido a su escalabilidad, desde PCs independientes hasta sistemas UNIX
multiprocesador (Precisa Micro Focus Object COBOL Developer Suite para
UNIX o Server Express)
 Disfrutar de un soporte al desarrollo y la depuración en Object COBOL y e-
COBOL.
 Contar con el soporte de bibliotecas básicas de clases, y con una extensa
colección de clases, incluyendo la biblioteca completa de clases Win32 GUI.

Depuración avanzada mediante Animator®:

  Control total del proceso de depuración. Podrá ir paso a paso , ejecutar una parte
determinada y reiniciar la ejecución en cualquier sentencia.
 Depuración remota de aplicaciones COBOL que se estén ejecutando en otra
máquina Windows NT o UNIX (Se necesita Server Express).
 Posibilidad de examinar y cambiar cualquier dato del programa mientras se
ejecuta.
 Animación JIT (Just-in-Time). Si la aplicación falla durante la ejecución, Net
Express puede iniciarse automáticamente en el punto del código fuente en que se
produjo el error, lo que le permite determinar inmediatamente la causa del
mismo.
 Depuración de aplicaciones multienhebradas. El programador posee un control
absoluto: puede bloquear, desbloquear o activar threads específicos, así como
insertar puntos de ruptura en los threads.

HERRAMIENTAS PARA DESARROLLOS DE APLICACIONES WEB

Asistente de aplicaciones Internet:

El Asistente para aplicaciones Internet aumenta la productividad de los desarrolladores,
ya que reduce el tiempo necesario para crear aplicaciones de servidor, y los
correspondientes formularios HTML, a partir de programas COBOL o de bases de datos
relacionales ya existentes. Una vez creada la aplicación, puede utilizarla tal cual, o bien
modificarla mediante Form Designer. Este asistente simplifica el acceso vía Internet a
aplicaciones e-COBOL ya existentes mediante:

 El análisis de la Linkage Section del programa COBOL.

 La generación automática de un formulario HTML, que contiene un campo de
entrada por cada dato de la Linkage Section seleccionado.
 La selección automática de un elemento del grupo, su asignación a una tabla
HTML y la selección del correspondiente elemento de soporte.
 La generación de un programa de servidor Web para capturar la información de
entrada y salida HTML e iniciar el programa e-COBOL existente para procesar
los datos.

Diseñador de formularios (Form Designer):

El diseñador de formularios le permite crear aplicaciones Web operativas en cuestión de
minutos; sólo tendrá que añadirles la lógica e-COBOL para llevar a cabo el
procesamiento del negocio de la aplicación. Con Form Designer, puede crear interfaces
de usuario para aplicaciones Web mediante la edición de páginas y formularios HTML
y, a continuación, generar el programa de servidor Web adecuado utilizando el asistente
de Internet Application Wizzard.

Edición de páginas y formularios HTML:

Form Designer incorpora soporte al estándar HTML 4.0 y a HTML dinámico. La
función de edición de formularios y páginas HTML de Form Designer proporciona un
entorno de trabajo abierto y productivo gracias a interesantes características tales, como:
compatibilidad con varios exploradores Web, editor HTML con interfaz gráfico, flujo
de texto, formato texto, tablas, funcionalidad de arrastrar y pegar, varios niveles de
Deshacer/Rehacer y vistas en el árbol. También puede sacar partido de las plantillas de
formularios y frames para crear páginas HTML con un aspecto coherente. Si ya cuenta
con formularios HTML, creados con otras herramientas, puede importarlos o cortarlos y
pegarlos en Form Designer desde otro editor de HTML. Form Designer puede asociar
de forma automática o manual propiedades de e-COBOL con los controles del
formulario y generar programas CGI.

Incrustación de Active-X, applets Java o Java Bean en formularios:

Form Designer proporciona soporte para incorporar controles ActiveX a una página
HTML. Es posible importar los controles ActiveX a Form Designer de forma que
aparezca en la paleta de componentes ActiveX, donde pueden seleccionarse y utilizarse
de forma inmediata. Form Designer también le permite añadir applets Java o
componentes Java Beans a las páginas HTML. Podrá configurar parámetros de los
applets, así como crear scripts sobre sus propiedades y métodos públicos utilizando el
Script Assistant.

NetExpress (Microfocus)

página(s) : 2/3
(3343 palabras totales en este texto)
(25759 Lecturas)   

Asistente para Scripts (Script Assistant):

El Script Assistant le permite añadir características a una páginas HTML sin necesidad
de arrancar un programa servidor o de aprender un complejo lenguajes de script.
Además, proporciona una serie de scripts de validación para el cliente, que permiten
efectuar las funciones de validación más comunes. El asistente Script Assistant es
compatible tanto con JavaScript de Nestcape como con JScript.™ de Microsoft.

Scripts de servidor en e-COBOL con HTLM embebido:

Net Express lleva a Internet la potencia de e-COBOL al permitir que los programadores
e-COBOL procesen de forma dinámica formularios HTML utilizando la sintaxis
familiar ACCEPT/DISPLAY o bien con HTML incrustado. Esto les permite desarrollar
y depurar aplicaciones CGI de servidor, portables, que pueden destinarse a plataformas
de producción muy diversas. No hay necesidad de utilizar o invertir en ningún otro
lenguaje de script de servidor; podrá hacerlo todo con e-COBOL.

Aplicaciones Web de gran rendimiento:

Net Express proporciona directivas de compilación y linkedición sencillas, que hacen
posible crear a partir de un único fichero fuente una aplicación utilizable como:
 Aplicación CGI apta para cualquier servidor Web.
 [Link] para servidores Microsoft Internet Information Server
 [Link] para Netscape FastTrack Server y Netscape Enterprise Server

Servidor Web local para el desarrollo:

Este servidor Web independiente se instala localmente junto con Net Express y permite
a los programadores desarrollar, depurar y probar aplicaciones de servidor Web en un
entorno PC independiente.

CREACIÓN DE COMPONENTES EMPRESARIALES

Utilización de COBOL con C o C++:

Podrá crear sin dificultad aplicaciones multilenguaje utilizando Net Express y los
entornos de desarrollo de terceras partes adecuados para otros lenguajes tales como C y
C++.

Soporte para objetos COM:

Net Express ofrece un soporte completo para acceder desde COBOL al servidor OLE
Automation, lo que permite utilizar aplicaciones de escritorio (Microsoft Word y Excel)
para automatizar funciones del negocio como, por ejemplo, la confección de informes.
Asimismo puede convertir la logística del negocio COBOL ya existente en un objeto
COM accesible desde otras aplicaciones. Un asistente genera automáticamente la
interfaz necesaria para cada objeto COM, tras lo cual sólo quedará incorporar el código
ya existente.

Soporte para IONA Orbix:

Los programadores pueden ampliar de forma rápida y sencilla la lógica del negocio
escrita en COBOL, ya sea heredada o nueva, para crear aplicaciones CORBA basadas
en el producto de Orbix IONA.

ACCESO a DATOS

OpenESQL™:
OpenESQL convierte de forma transparente las sentencias SQL incrustadas en llamadas
a las API ODBC; esto le permite desarrollar fácilmente aplicaciones que acceden a
diferentes sistemas de bases de datos, lo que significa que puede utilizar cualquier
fuente de datos para la que exista un controlador ODBC. Asimismo Net Express
incorpora acceso nativo a DB2 y ofrece un soporte integrado para precompiladores
Oracle y Sybase.

OpenESQL Assistant:
El asistente OpenESQL permite al programador crear sentencias SQL mediante una
interfaz interactiva. A continuación, estas sentencias se insertan automáticamente en el
punto adecuado del código fuente COBOL. El programador puede incluso probar las
sentencias SQL en OpenESQL Assistant a fin de comprobar los resultados de la misma
y modificarla si fuera necesario, sin tener que compilar y ejecutar la aplicación.

Gestión de ficheros COBOL:

Con Net Express, puede sacar partido de todas las funciones del sistema de gestión de
ficheros COBOL. Este sistema de ficheros puede administrar grandes ficheros
secuenciales, relativos, variables e indexados de un tamaños superior a 2Gb.

Herramientas para datos integradas

  El editor de ficheros de datos (Data File Editor) permite examinar los ficheros de
datos para comprobar las actualizaciones, y crear y editar ficheros para las
pruebas de la aplicación.
 El conversor de ficheros (Data File Converter) para cambiar formatos y
conjuntos de caracteres
 El editor de formatos de registros (Record Layout Editor) permite especificar el
formato de la visualización de un fichero de datos para su uso con Data File
Editor
 Fix File Index Facility para reparar o reconstruir los ficheros indexados.
 La utilidad Codecomp para conversión de conjuntos de caracteres
EBCDIC/ANSI que le permite personalizar las tablas de asignación de
caracteres.

INTERFACES GRÁFICAS DE USUARIO PARA WINDOWS:

Dialog System™ mejorado

Dialog System facilita la tarea de los desarrolladores COBOL para crear interfaces
gráficas de usuario para Windows con controles Windows 95/98 y ActiveX. Los
desarrolladores que no estén familiarizados con los controles ActiveX pueden llegar a
conocerlos rápidamente gracias a las funciones mejoradas de Dialog System, que
simplifican la ubicación y representación de los controles ActiveX.

NetExpress (Microfocus)

página(s) : 3/3
(3343 palabras totales en este texto)
(25759 Lecturas)   

Windows GUI Application Wizard

Mediante este asistente, los desarrolladores pueden crear con rapidez aplicaciones
nativas Windows de 32 bits con interfaz gráfica, con funciones tales como ventanas
MDI, controles ActiveX incrustados, spin button, vistas en árbol, barras de
herramientas, de estado y de menús, así como control de trama. Asimismo, los
desarrolladores pueden utilizar una interfaz de "point-and-click" para crear una
aplicación GUI con acceso ODBC a datos.

Soporte para desarrolladores UNIX

Net Express se integra totalmente con los entornos de desarrollo COBOL de Micro
Focus disponibles para plataformas UNIX. Los programadores pueden utilizar Net
Express para desarrollar aplicaciones en su PC, de manera que utilizan plenamente las
herramientas avanzadas de desarrollo de Net Express, al mismo tiempo que disfrutan de
las ventajas de un entornos de producción UNIX con herramientas de productividad
eficaces tales como:

 Dialog System (versión en modo carácter).

 Asistente UNIX Application Import Wizard, que permite a los desarrolladores
UNIX importar de forma rápida y sencilla una aplicación UNIX e incorporarla
como un proyecto de Net Express.
 UNIX Publish, que le permite transferir el proyecto de la aplicación a un
servidor UNIX, crear el fichero "make" y reconstruir el ejecutable con sólo
hacer clic.
 Acceso simplificado a UNIX con el emulador de terminal Powerterm; acceso
simplificado a ficheros e impresoras mediante el software de acceso remoto a
ficheros SAMBA.
 Funciones de depuración remota (Precisa Micro Focus Server Express).

Algunas pantallas de programas realizados con Microfocus NetExpress:

Toda la información contenida en ésta página ha sido extraída de la página oficial de
Microfocus (Merant) en España. Así mismo las imágenes han sido cedidas por el
programador Miguel Angel Bueno de Barcelona. Gracias a ambos por permitir el
desarrollo de ésta sección.

Objective Cobol

(1112 palabras totales en este texto)

(21645 Lecturas)   

En la actualidad, es necesario disponer de un potente lenguaje de programación que nos

permita a la vez trabajar comodamente en un entorno visual, tan extendido en estos
tiempo.
Adaptarse a los nuevos lenguajes de programación, es fundamental para una empresa
que quiere seguir en la cumbre.

Objective COBOL es la vía perfecta para que los programadores de un lenguaje como
COBOL no se queden estancados y lleguen facilmente a usar un lenguaje
completamente innovador y nuevas herramientas de programación.
O.C. es un entorno visual de programación orientado a objetos, destinado al desarrollo
rápido (RAD) de aplicaciones de uso general para Windows 95, 98 y NT. Con O.C., se
puede crear aplicaciones muy eficaces para Windows con un mínimo código manual.

Conserva las extensiones de los lenguajes

COBOL mas usados. Una de las novedades
mas destacadas de esta nueva versión es la
posibilidad de integrar programas de
COBOL ANSI en O.C., sin la necesidad de
cambiar una línea de código siempre y
cuando éste se rija por el ANXI X3.23-
1985, poder disponer de tus aplicaciones en
el entorno visual tan extendido en estos
tiempos. Con el control CRT se realiza una
perfecta fusión entre un moderno entorno
visual y la programación lineal, tan
caracteristica de la programación en
COBOl tradicional.

Los programas que ya se tenían hechos se pueden reutilizar, y además añadir controles
nuevos a dichos fuentes como Botones, Edit, Imágenes... de una forma sencilla.

Puede usar O.C. para desarrollar cualquier tipo

de aplicación, desde utilidades de uso general,
hasta sofisticados programas de acceso a datos.
Las herramientas y componentes de base de datos
de O.C. permiten desarrollar potentes
aplicaciones de base de datos locales en tiempo
record. Con controles de base de datos O.C.,
puede visualizar los datos dinámicos mientras
diseña la aplicación, lo cual permite ver
inmediatamente los resultados de consultas de la base de datos y los cambios realizados
en la interfaz de la aplicación.

O.C. proporciona una biblioteca de componentes reutilizables y una serie de

herramientas de diseño RAD, entre ellas, plantillas de aplicación y de ficha y expertos
de programación. Con éstas herramientas y el compilador de código nativo de 32 bits de
O.C., puede crear y probar prototipos con gran agilidad, convirtiéndolos en aplicaciones
robustas para satisfacer las necesidades de su empresa.

<
O.C. hace del entorno de desarrollo, un sitio agradable y fácil de usar, en él puede
integrar distintas ventanas y recorrer sus fuentes de la forma mas cómoda posible con la
ayuda del Code Explorer, sin tener que ir recorriendo línea a línea, o con el potente
Image Browser, poder crear un control, con una imagen ya diseñada con tan solo
pinchar y arrastrar, sin necesidad de elegir el componente primero.
O.C. permite construir aplicaciones de gestión empresarial con herramientas de base de
datos: Oracle, Informix, Sybase, SQL Server ... tanto vía SQL-Links como ODBC. De
manera que los ficheros indexados completamente planos de Cobol, ahora ya
directamente pueden usarse como ficheros de una Base de Datos Paradox, DBase.....

PRINCIPALES FUNCIONES
 Entorno de desarrollo integrado.   O.C. permite desarrollar, probar y mantener
aplicaciones dentro de un solo entorno integrado. Puede crear o modificar una
aplicación, incluyendo fichas de entrada, informes, menus, cuadros de diálogo,
definiciones de base de datos sin salir de O.C.
 Diseño mediante el método arrastrar y soltar.   O.C. ayuda a mantener la
productividad automatizando aquellas tareas de programación repetitivas pero
esenciales. Para diseñar aplicaciones, basta arrastrar unos componentes hasta
una ficha, creando la arquitectura de la aplicación rápida y fácilmente, con un
mínimo de código.
 Herramientas bidireccionales.    Conforme selecciona y modifica las
propiedades de los componentes y fichas, los resultados de los cambios
realizados aparecen automáticamente en el código fuente y viceversa. Es posible
modificar los archivos fuente directamente con cualquier editor de texto,
incluido el editor de código incorporado. Los cambios efectuados se reflejan de
forma inmediata en las herramientas visuales.
 Compilador de código nativo.    El compilador optimizador de código nativo
de 32 bits de O.C. genera archivos de aplicación ejecutables (.EXE). Además del
rendimiento mejorado de los ejecutables compilados.
 Conectividad de las bases de datos.   También permite desarrollar aplicaciones
que accedan fácilmente a base de datos Paradox, DBase. Con SQL Links, las
aplicaciones pueden acceder también a servidores SQL, incluidos en Interbase,
Oracle.

Desconozco en la actualidad que sucede con este compilador y con sus creadores.

COBOL / UNIX - LINUX

Cuando hablamos de Cobol, siempre pensamos en su seguridad y robustez, pero si a eso

le sumamos un Sistema Operativo fiable, potente y super estable como Unix o Linux,
eso nos da lugar a una combinación perfecta, que no dudo que se de con otros lenguajes
y otros sistemas, pero que en nuestro caso y después de una larga experiencia os puedo
garantizar que es super segura. Pocos recursos, buenos resultados.

Desde ésta página me gustaría comentar todos los pasos para una buena instalación o
por lo menos todos los que yo he seguido, desde conexiones en serie, descripción de
impresoras, usuarios, terminales, emuladores, etc... Además incluiré varias rutinas que
he desarrollado.

Se hablará también de la integración de nuestro equipo Unix en red, para un mayor

aprovechamiento de los sistemas conectados entre si. Por supuesto todo ésto lo haré
bajo mi humilde experiencia y como ya sabeis lo único que pretendo es que si alguien
tiene que pasar por todos los pasos que yo he pasado, tenga un sitio donde recoger esa
información que aunque para algunos sea insignificante para otros puede ser de gran
ayuda.

Todo lo que aqui se comente, podría funcionar en otros sistemas operativos, pero como
la mayor parte está desarrollado bajo Unix / Linux, es por ésto que están aqui y no en
otra sección de la Web.

Empezando

(1118 palabras totales en este texto)

(17972 Lecturas)   

Al instalar nuestro compilador, éste se hará en un directorio propio pero tanto el

rumtime como el compilador lo harán en el directorio del sistema /usr/bin (en otros
Unix puede ser otro, pero siempre será uno donde se encuentren los principales
componentes del sistema y por supuesto forme parte del Path).

Una vez instalado, debemos de pensar en la distribución que le vamos a dar a toda
nuestra información, programas, archivos de datos, copys, pruebas y disponer para ello
de una estructura sencilla que nos permita localizar cualquier dato rapidamente.

Un ejemplo, (mi caso práctico) es partiendo del directorio /home, crear varios
directorios, uno para los archivos de datos, otro para los programas fuente, otro para los
listados, otro para los objetos y otro para los copys.

/home/datos Todos los archivos de datos.

/home/fuente Todos los programas fuentes
/home/objeto Todos los programas una vez compilados.
/home/listados Todos los archivos de listado que generemos.
Todos los archivos comunes que utilizemos en
/home/copy
nuestro programas.

Todo ésto también nos ayudará a hacer las copias de seguridad mas selectivas. Vuelvo a
repetir que todo lo que aqui expongo es sólo una muestra, pero que evidentemente cada
cual puede optar por la opción que mas le convenga.

Como bien sabemos cada vez que hacemos un nuevo login, hay una serie de archivos
que se ejecutan y con alguno de los cuales podemos definir nuestro entorno de trabajo,
para cada usuario que creemos en su directorio se creará un .profile con las
características para ese usuario en concreto, pero tenemos en el directorio /etc un
archivo llamado profile en el cual se definirán las características comunes a todos los
usuarios.

El comando PATH tiene una pequeña diferencia con el que estamos mas acostumbrado
a utilizar en MS-DOS, y es que no toma por defecto el directorio en el que nos
encontramos por defecto, ésto quiere decir que si tenemos definido el PATH con varios
directorios y queremos ejecutar una aplicación que se encuentra en el directorio sobre el
que estamos, nos dirá que no encuentra el archivo, ésto se soluciona incluyendo en el
PATH, el directorio actual, que UNIX lo denomina ".", por lo tanto será conveniente
añadir a nuestra linea de PATH, dentro del archivo /etc/profile el directorio ".".
PATH=$PATH:directorio:directorio:.:

Ya sabemos que en el directorio de cada usuario que hayamos añadido a nuestro sistema
se nos crea un archivo .profile que se ejecutará cada vez que éste usuario entre en el
sistema. Pues bien podemos añadir a éste archivo todo lo que creamos conveniente, por
ejemplo podemos asignarle una tecla de interrupción, por defecto es <Ctrl+C>, pero si
lo que queremos es que ningún usuario pueda salirse del programa que se está
ejecutando o bien ponemos otra que sea menos corriente o bien la quitamos. Una buena
solución es que cada usuario al dar su login y su password se le cargue inmediatamente
su aplicación, con lo que evitaremos que puedan tocar en el sistema, además cuando
salgan de la aplicación le podemos mostrar una pantalla en la que se indica que para
continuar pulsen alguna tecla y cuando la pulsen volverán al programa evitando asi que
nunca estén en otro sitio que no sea en su aplicación.

Si vamos a utilizar el editor vi que viene con el Unix, éste lo podemos adaptar a nuestras
necesidades mediante la variable EXINIT (en mi caso UNIX SYSTEM V), algunas de
éstas opciones son las siguientes:

 ai-noai ......- Inicia cada linea en la misma columna que la linea anterior.
 aw-noaw ...- Escribe automáticamente los cambios en el buffer antes de ejecutar
ciertas ordenes en vi.
 ic-noic ......- Las mayúsculas y las minúsculas son equivalentes en las búsquedas.
 nu-nonu ....- Numera cada linea.
 smd-nosmd.- Nos indica en la parte inferior de la pantalla con un texto que
estamos en modo de insercción.
 report=n ....- (n) equivale al número de lineas mínimo que hayamos modificado,
borrado o editado para que nos avise.

En mi caso la tengo definida asi: EXINIT="set ic nu smd report=0", con lo cual me

numera las lineas, no me tiene en cuenta las mayúsculas o minúsculas en las busquedas,
me indica cuando estoy insertando lineas y no me avisa después de hacer ningún cambio
en alguna linea.

Terminales

(3261 palabras totales en este texto)

(18036 Lecturas)   

La definición de terminales es un tema muy importante y dependiendo de ello

obtendremos unos resultados mas positivos en la visualización de nuestros programas.
Podemos aprovechar el .profile de cada usuario para, utilizando la variable TERM,
poder asignarle el terminal que mejor se adapte a su terminal o emulador, si no quereis
tener problemas toda la serie de terminales "vt" generalmente no suelen dar problemas y
funcionan bastante bien. Por supuesto que ésta definición de terminal que damos con la
variable TERM, debe existir y estar asignada en nuestro terminal o en nuestro emulador,
de nada sirve indicarle al sistema que tal usuario va a trabajar con vt220 y luego que el
usuario en su terminal tenga por ejemplo PC-ANSI.

Quiero dejar claro que en muchos casos al decir terminal, me estaré refiriendo a
cualquier dispositivo que podamos conectar al servidor y con el cual nos podamos
comunicar con él.

De los equipos disponibles podemos hablar de:

 Terminales de texto, son los llamados "tontos" porque solo se comunican con el
servidor, trabajan en una sesión, solo admiten caracteres de texto, nada de
gráficos y solo se pueden conectar con el equipo mediante conexiones RS-232.
Suelen ser en blanco y negro y admiten varias emulaciones.
 Platinas de comunicación, pueden conectarse mediante RS-232 o en red, tienen
el tamaño de un libro y en el van las placas de comunicación con varias salidas,
una para conectar monitores VGA, el teclado, una puerta paralelo y la conexión
con el equipo. Pueden mantener mas de una sesión, son en color y requieren
poco mantenimiento.
 PC, poco hay que hablar de ellos, son máquinas totalmente independientes que
con un software adecuado, los llamados "emuladores" conseguimos eso, emular
la máquina a la que nos queremos conectar y el resultado es una sesión de
nuestro servidor en el PC, mediante éstos programas. Podemos utilizar cualquier
conexión, por defecto vienen con varias salidas serie RS-232, pero si los
queremos conectar en red, bastará con adquirir en el mercado cualquier tarjeta
de red, configurarla y listo.

Cuando pensamos en conectar algún equipo a nuestro servidor debemos de pensar en

que tipo de equipo de los que existen en el mercado nos conviene mas, asi como la
conexión que utilizaremos. Aunque hoy en dia lo mas barato, seguro, rápido y rentable
son las redes con cable UTP CAT-5 con conexiones RJ-45, es posible que queramos
hacerlo mediante conexiones serie RS-232. Vamos a explicar a continuación cada una
de ellas.

CONEXIONES RS-232.

En este tipo de conexiones utilizaremos un cable de 8 hilos, si es posible apantallado

para mas seguridad y deberá de ir desde las salidas serie del servidor, que las
obtendremos mediante tarjetas Specialix, Terminal server o cualquier otra del mercado,
hasta la puerta serie de nuestro terminal. 

Características:
 La velocidad de transmisión será de 9600 ó 19200 baudios dependiendo de la
distancia.
 Para distancias superiores a los 200 metros (aprox.) necesitaremos un
amplificador de señal para que ésta no pierda fuerza y no provoque fallos en el
sistema.
  Se utilizarán clavijas RS-232 de 25 ó 9 pines dependiendo de las salidas.
 Esta conexión se está perdiendo, porque no nos permite utilizar los recursos del
terminal.

A continuación voy a describir una conexión RS-232 para clavijas de 25 pines.

Esta conexión tengo que decir que funciona perfectamente tanto en terminales como en
impresoras. Realmente son los pines 2 y 3 los importantes y van cruzados por que uno
emite y otro recibe, asi cuando el terminal emite el servidor recibe y viceversa. Yo
incluso he probado a conectar solo esos dos cables y ha funcionado, pero la conexión
que he descrito la cogí de unas normas de conexión y siempre ha funcionado.
Como consideración, quiero añadir que si nos vemos obligados a utilizar amplificadores
de linea, éstos es necesario que estén lo mas cerca de cada equipo posible, es decir que
entre las puertas serie y el amplificador haya la menor distancia posible, evitaremos
muchos problemas.

CONEXIONES EN RED.

Para conectar nuestros equipos en red podemos utilizar cable coaxial con conectores
BNC o bien cable de 8 hilos CAT-5 con conectores RJ-45, que se le conoce como par
trenzado precisamente por eso, porque los hilos van unidos de dos en dos y a su vez van
"liados" con el resto de cables pero sin perder esa unión. A estos tipos de red se les
conoce como Ethernet o Fast Ethernet dependiendo de la velocidad que puedan llegar a
alcanzar. Hoy en dia la mayoría de las tarjetas de red vienen con las dos conexiones y
nosotros utilizaremos la que mas nos convenga. La de tipo BNC está orientada a
conexiones de pocos equipos y las conexiones se realizan uniendo todos los ordenadores
con un mismo cable utilizando unos conectores en "T" para cada ordenador y unos
terminadores para cada punta del cable, éstas conexiones son menos fiables pero cuando
vamos a conectar 2 ó 3 equipos es la mas barata y rápida. Las conexiones con RJ-45 se
apoyan en un Hub o concentrador, conectándose todos los equipos aqui y siendo éste
quien se ocupa de enviar las informaciones que le llegan a su destino.

En las imágenes de abajo explico los estándares de conexión entre tarjetas Ethernet.
Tanto de un ordenador a otro sin pasar por un Hub, como conectándolos a través de
Hub. Las imágenes están vistas teniendo los pines metálicos hacia arriba.

Conectar ordenador a HUB o HUB a

Conectar dos ordenadores sin HUB
HUB
Características:
 La velocidad de transmisión será de 10 MB/s para conexiones Ethernet y 100
MB/s para Fast Ethernet. El cable coaxial solo es válido para 10 MB/s en
cambio el Cat-5 está diseñado para conseguir velocidades superiores.
 Con un cable CAT-5 par trenzado la distancia máxima entre equipos es de 100
metros. En cambio con el cable Coaxial podemos alcanzar los 185 metros. Si
hubiera mas distancia desde uno a otro se pueden utilizar mas controladores
como puente.
 Las clavijas que se utilizan son RJ-45, similares a las del teléfono convencional
pero con 8 conectores. Estas conexiones son mucho mas resistentes que las
realizadas con conectores BNC.
 Conectar los equipos en red, es la solución que se está imponiendo porque
podemos compartir los recursos de todos los equipos conectados, siempre que
nuestro sistema operativo nos lo permita.

Cuando conectamos nuestros equipos en red, es posible que no todos tengan el mismo
sistema operativo, para que la compatibilidad exista utilizamos los protocolos de
comunicacion que son como los traductores y hacen que cualquier información enviada
o recibida sea legible por cualquier equipo, obviamente todos los equipos que unamos
deben de tener instalado el mismo protocolo.

El protocolo TCP-IP, que es el utilizado en Internet, es uno de los mejores y hoy en dia
viene con todos los sistemas operativos por lo que su implementación es perfecta. Para
ello cada equipo que se conecte debe de tener un "número de identificación", dirección
IP, y gracias a ésta dirección los paquetes de información sabran su destino y su
remitente. Estas direcciones IP están compuestas por cuatro números de hasta 3 cifras
separados por puntos y deben de ser únicos, por ejemplo en una red podiamos asignarle
la dirección IP [Link] al servidor y luego aumentando en uno la última cifra iriamos
asignando direcciones a los distintos equipos de la red.

Una vez implantado el protocolo en cada uno de los equipos, podemos empezar a
compartir los recursos de la red, en pricipio podremos hacer Telnet o llamadas al
servidor para iniciar sesiones de trabajo en nuestro servidor Unix o hacer FTP (File
Transfer Protocol) para copiar archivos de nuestro servidor a los equipos o viceversa.

EN LINEA.
Una vez conectados, el equipo y los terminales, podemos decir que estamos en linea,
ahora solo queda que ambos "hablen". Si la conexión la realizamos a terminales o
platinas de comunicación, éstos traen un setup que se suele activar con algunas teclas, y
con el cual podremos configurarlo para trabajar adecuadamente, los parámetros mas
importantes, serán velocidad de transmisión, tipo de emulación, bits por palabra, bits de
stop, paridad y algunas consideraciones menos importantes referentes a sonido en
teclas, activación de bloque numérico, etc...
Esto claro está cuando nos conectemos via RS-232, si lo hacemos en red, los parámtros
de velocidad, paridad y bits se suprimen y es la propia red la que nos indica su
velocidad según sus especificaciones, según tarjetas, cables y demás hardware instalado.

Cuando usamos como terminal un PC, ya hemos dicho antes que necesitaremos un
programa que nos emule el sistema al cual nos queremos conectar. Estos programas
llamados "emuladores" suelen tener las mismas opciones que los setup de los
terminales, pero implementan muchas otras opciones, sobre todo orientadas a
aprovechar los recursos que nos ofrecen los PC´s. De hecho podemos controlar el color,
poner botones configurables, barras de herramientas, etc...
A la hora de elegir el programa, debemos de tener en cuenta cual es nuestro sistema
operativo, según utilicemos MS-DOS, Windows, Mac, etc.. deberemos de escoger
programas que corran sobre éstos sistemas operativos.

El S.O. sobre el cual podemos dar algunas orientaciones es sobre Windows, por ser el
mas extendido, bien, pues podemos encontrar en el mercado muchos emuladores que
consiguen dar un aspecto gráfico a nuestros programas de texto y en los cuales podemos
incluir botones, barras de herramientas, teclas de función, etc... Estos programas suelen
poder conectarse por RS-232 o vía Telnet, siendo ésta última la mas recomendable.
En la sección de enlaces podeis ir a las páginas de 3 buenos emuladores, yo he probado
los tres y todos van muy bien.
 Impresoras

(863 palabras totales en este texto)

(9790 Lecturas)   

La utilización de impresoras para nuestras aplicaciones es tan importante como la de los

terminales, para su utlización también necesitaremos realizar una conexión a nuestra
servidor.

Para realizar ésta conexión tendremos al igual que en los terminales varias vias, a
continuación las voy a detallar con unos dibujos para que las entendais mejor.

Si la conexión es RS-232, deberemos de tener en cuenta que nuestra impresora debe de

tener éste interface y si no es asi, nos veremos obligados a adquirirlo, su configuración
es muy facil y solo tendremos que indicarle la velocidad de transmisión, los bits y la
paridad. Tambien deberemos de tener en cuenta que tendremos que echar un cable
desde el servidor hasta donde se encuentre la impresora.

Si la conexión es en red, podemos compartir la impresora del PC y utilizarla como

impresora del servidor. Para ello existen versiones de Unix que lo permiten sin ningún
software adicional, pero si nuestro Unix no lo permite, podemos hacerlo con un
software específico, como el que yo utilizo Tun Net. Es un programa que se queda
residente en el PC y que hace que laimpresora que tenemos en el puerto paralelo del PC
sea vista como impresora remota por el servidor. Con lo que podremos utilizar la
impresora para ambos equipos. Si teneis alguna duda de como puede funcionar ésto, no
dudeis en contactar conmigo.

Una vez conectadas las impresoras tendremos dos opciones para mandarles nuestra
información.

1)   La mas normal y lógica es añadiéndolas a nuestro Unix y definiendo los nombres
que utilizan en nuestro archivo de configuración de Cobol, en el caso de RM/Cobol (el
que yo utilizo, si lo sabeis para otros compiladores, me lo decís y lo pongo) se hace de
la siguiente forma:

DEFINE-DEVICE device=Nombre_de_impresora path="acción_de_impresión"

pipe=yes

El nombre_de_impresora, será el nombre lógico que le demos en nuestro programa al

arhivo de impresora.
La acción_de_impresión, será el comando que debemos de ejecutar para que imprima lo
que le hemos enviado.
Por ejemplo, si tenemos dos impresoras, una se llama PRINCIPAL y va a estar asociada
a la impresora por defecto del sistema (lp00), y la otra se llama SEGUNDA y va a estar
asociada a la impresora lp01 que tenemos definida en nuestro servidor, deberíamos
haber puesto:

DEFINE-DEVICE device=PRINCIPAL path="lp -s" pipe=yes

DEFINE-DEVICE device=SEGUNDA path="lp -dlp01 -s" pipe=yes

La acción lp y lp -d , es la que se utiliza en Unix SVR4, para utilizar con Linux es lpr .
Con lp enviamos la información a la impresora por defecto y con lp -d   se redirecciona
la salida hacia la impresora especificada despues de -d .

De ésta forma conseguimos que todos los envíos a impresoras pasen previamente por el
sistema de Spool del servidor. Por cierto si estais enviando un listado muy largo y
quereis tener una copia de seguridad, podreis hacerlo porque como sabeis Unix
mantiene un archivo con el nombre del proceso de impesión en un directorio específico
para ello.

2) Otra manera que tenemos de hacerlo es enviando directamente a la puerta serie la

información, ésta no es muy normal, es mas rápida porque no pasa por el spool, pero
tambien puede dar lugar a mas errores por la falta de control, pero en algunos casos (yo
lo utilizo) es muy práctica, su formato es similar al anterior, solo que en vez de
especificar la acción, le decimos directamente porque puerta serie va a salir:

DEFINE-DEVICE device=PRINCIPAL path="(stty 9600 -parity 0<&1; cat)>

/dev/term/s10" pipe=yes

Veis que la diferencia es darle las opciones del comando stty directamente en la
sentencia. Todo ésto podría variar algo dependiendo de cada versión de Unix.

Conclusión

(189 palabras totales en este texto)

(7932 Lecturas)   

La utilización de Cobol en el mundo Unix, por supuesto que no se limita a lo aqui

expuesto, es mas, hoy en dia se tiende a la tecnología cliente-servidor, para todos los
entornos de trabajo, es decir mantener nuestra información, datos, en un servidor Unix
seguro y estable y aprovechar todos los recursos gráficos que nos ofrecen sistemas
operativos como Windows para darle a las aplicaciones otras posibilidades muy
superiores a las que podemos ofrecer a los usuarios con las aplicaciones tipo texto.

Me gustaría, claro está, cuando adquiera experiencia en ello, explicar aqui como se
monta un cliente-servidor y como podemos mantener nuestras aplicaciones en Cobol
enlazando además nuestros datos con todas las herramientas disponibles, hojas de
cálculo, procesadores, etc ...

No dudéis que el Cobol sigue existiendo con fuerza y que con el se puede realizar
cualquier aplicación que se nos ocurra, sin olvidar que Cobol fue concebido para la
gestión.