cobol

Maual de COBOL II

Proyecto ALTAIR

MANUAL DEL USUARIO DE COBOL PROYECTO ALTAIR

/opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 1 de 55

Maual de COBOL II

INDICE ANOTACIONES SOBRE ASPECTOS RELEVANTES DEL COBOL II. Cambios en el lenguaje cobol en 1.985 Formatos de programa fuente PROGRAMA ANIDADO. Programa anidado CAMBIOS EN LA IDENTIFICATION DIVISION. Cambios en la Identification Division CAMBIOS EN LA DATA DIVISION. Comparticion de datos Nuevas clausulas en la definicion de items Niveles de tablas CAMBIOS EN LA PROCEDURE DIVISION. Otras condiciones Terminadores explicitos de sentencias Llamada a subprogramas LLamadas estaticas LLamadas dinamicas Sentencia cancel Sentencia evaluate Consideraciones sobre la evaluate Ejemplos de evaluate Sentencia initialize Nueva opciones de la perform Aspectos adicionales 0 Depuracion con cobol II Interactivamente Batch Compilacion Compilaciones con programas secundarios Llamada entre programas cobol II Transfiriendo control a otros programas Programa principal y subprogramas


Proyecto ALTAIR

Maual de COBOL II

LLAMANDO PROGRAMAS. Llamando programas Programas anidados Estructura de programas anidados Ejemplo Normas para el uso de estructura de programas anidados Llamando a programas anidados Ejemplo CALL ESTATICAS Y DINAMICAS. Call estaticas y dinamicas Utilizando call estatica Utilizando call dinamica Compartiendo datos usando el atributo external Pasando datos mediante by refence or by content Describiendo items comunes en el programa llamante Describiendo datos comunes en el programa llamado Linkage section INSTRUCCIONES DE PROGRAMAS COBOL. Instruccion inspect Instruccion initialize INSTRUCCIONES DE TABLAS. Instruccion Instruccion Instruccion Instruccion

evaluate string unstring read

COBOL II, SORT. File section Procedure division Release Return Sort-Return Clausula occurs TABLAS. Tablas Tablas de longitud variable Descripcion de una tabla Tablas de mas de una dimension Tablas de mas de una dimension Indexacion /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 3 de 55

Proyecto ALTAIR

Maual de COBOL II

Proyecto ALTAIR

Declaracion 'SET' Declaracion 'SEARCH' Opcion 'VARYING' Tablas definidas con mas de un indice Busqueda binaria Declaracion 'SEARCH ALL' Busqueda dicotomica Literales Ficheros ESDS PASAR DATOS EN CICS A COBOL II. Pasar datos en cics a cobol II Instruccion set Pointer Ejemplos EJEMPLOS DE RUTINAS. Rutina general de conversion de fechas Rutina de conversion de bits a bytes Rutina general de verificacion de digitos Rutinas de calculos Numero de dias entre dos fechas Numero de meses entre dos fechas Restar un periodo a una fecha

ANOTACIONES SOBRE ASPECTOS RELEVANTES DEL COBOL II WLM.-IBM

CAMBIOS EN EL LENGUAJE COBOL EN 1.985 Las tres revisiones mas importantes de lenguaje COBOL, publicadas por el subcomite "COBOL ANS" conocido como X3.23 fueron : en 1.968, en 1.974 y en 1.985.


Maual de COBOL II

Proyecto ALTAIR

FORMATO DE PROGRAMA FUENTE ID DIVISION. ---ENVIROMMENT DIVISION. ---DATA DIVISION. ---PROCEDURE DIVISION. ---END PROGRAM Nom-prog. ------> (identico al de PROGRAM-ID.)

--------------------| PROGRAMA ANIDADO | --------------------* Una secuencia de programas COBOL separados (INITIAL) pueden ser tambien entrada del compilador.

CAMBIOS EN LA IDENTIFICATION DIVISION =========================================

| ID DIVISION. Nom-Prog is COMMON PROGRAM | INITIAL PROGRAM | * Un programa fuente puede contener a otros y estos referenciar alguno de los recursos de los programas dentro de los cuales estan contenidos. * Se dice que un programa "B" esta directamente contenido en otro "A", sino hay otro programa contenido en el "A" que tambien contenga al "B". * Se dice que un programa "B" esta indirectamente contenido en el "A", si existe un programa contenido en el "A" que a su vez contiene el "B". --> COMMON B : es un programa contenido en otro y puede ser llamado tambien por otros. --> INITIAL B: cuando este programa es llamado, el y todos los que contiene se ponen en estado inicial. Estas opciones implican el introducir en los programas COBOL la funcion de recursividad, conjuntamente con la declaracion "CANCEL" que se comentara mas adelante.


| | |

Maual de COBOL II

Proyecto ALTAIR

CAMBIOS EN LA DATA DIVISION

COMPARTICION DE DATOS ----------------------* Los datos contenidos en un "EXTERNAL" pueden ser referenciados por cualquier programa que los tenga descritos. * Si un programa esta contenido dentro de otro, ambos pueden referenciar los datos que tengan el atributo "GLOBAL". 1) NUEVAS CLAUSULAS EN LA DEFINICION DE ITEMS. --> GLOBAL B El dato esta disponible para todo programa contenido dentro del que lo declara. atributo de nivel 01. --> EXTERNAL B La memoria asociada con el ITEM de datos, esta asociada con la unidad de ejecucion mas que con el programa en particular dentro de la unidad de ejecucion. Este ITEM puede ser referenciado por cualquier programa dentro de la unidad de ejecucion. No implica que es global y es un atributo de nivel 01. --> POINTER B esta clausula define un ITEM de datos "PUNTERO" de nivel elemental, no numerico y de 4 bytes. puede usarse en operaciones de comparacion o en "MOVE" a otros ITEMS "PUNTEROS". Tambien en : - sentencia SET. - En una condicion de relacion. - En la "USING" de una "CALL", "ENTRY" o cabecera de "PROCEDURE DIVISION".


Maual de COBOL II

Proyecto ALTAIR

2) NIVELES DE TABLAS. * pueden tener hasta siete niveles, dimensiones. * por tanto podra haber hasta siete anidamientos de clausulas OCCURS. * Un ITEM podra referenciarse subscrito o indexado por 7. * en las tablas de longitud variable (DEPENDING ON) el minimo numero de ocurrencias podra ser cero.

CAMBIOS EN LA PROCEDURE DIVISION 1) OPERACIONES DE CONDICION. |IDENTIFICADOR-1 IS [ NOT ] ALPHABETIC-LOWER | | ALPHABETIC-UPPER |IDENTIF-1 | |

IS

[ NOT ]

| | |

GREATER THAN OR EQUAL TO ( >= ) | | LESS THAN OR EQUAL TO ( <= ) |

uso de la sentencia SET para cambiar el estado de los nombres de condicion. Ejemplo : | SET ESTADO TO TRUE [ 88 ESTADO VALUE '2'. ] | | | EQUIVALE A MOVER 2 AL NIVEL 01 DE ESTADO.

| |

con lo cual tambien se potencia el uso de los nombres de condicion.

2) OTRAS CONDICIONES. en operaciones aritmeticas : NOT ON SIZE ERROR en operaciones de mover datos : NOT ON OVERFLOW en operaciones de entrada/salida : NOT INVALID KEY NOT AT END NOT AT END-OF-PAGE


Maual de COBOL II

Proyecto ALTAIR

3) TERMINADORES EXPLICITOS DE SENTENCIAS END-ADD END-DIVIDE END-PERFORM END-SEARCH END-UNSTRING

END-CALL END-EVALUATE END-READ END-START END-WRITE

END-COMPUTE END-IF END-RETURN END-STRING END-WRITE

END-DELETE END-MULTIPLY END-REWRITE END-SUBTRACT

cuando el compilador encuentra un terminador explicito, lo asocia al ultimo verbo no emparejado. solo son validos en las sentencias con forma condicional. Ejemplo: | ADD 1 TO CONTADOR | ON SIZE ERROR SET ERROR-OPERACION TO TRUE | END-ADD

| | |

con su uso se puede eliminar practicamente el uso de "."

4) LLAMADA A SUBPROGRAMAS | CALL [ IDENTIFICADOR-1 / LITERAL ] | | USING BY REFERENCE IDENTIF-2 ................. | | * USING BY REFERENCE ADDRESS OF NOMBRE-REG ..... | | USING BY CONTENT IDENTIF-3 ....... / LITERAL / | | LENGTH OF IDENTIF-3 BY REFERENCE: el valor del parametro pasado se evalua en el momento de la CALL y es asignado al correspondiente del programa llamado el cual puede procesarlo.


| | | | | | | | |

Maual de COBOL II

Proyecto ALTAIR

BY CONTENT: en este caso el programa llamado no puede modificar el valor pasado. ---> en tiempo de compilacion se puede espacificar la opcion DYNAM (llamadas dinamicas) o NODYNAM (llamadas estaticas) LLAMADAS ESTATICAS ------------------el programa principal y el subprograma forman parte del mismo modulo, por tanto cuando el control se pasa al programa llamado este ya esta en memoria, por lo que las siguientes llamadas al subprograma lo encontraran en el ultimo estado. (excepto cuando el programa llamado tiene el atributo "INITIAL") LLAMADAS DINAMICAS ------------------el programa llamado es un modulo independiente y solo se carga en memoria cuando es llamado. Las llamadas sucesivas lo encontraran en el ultimo estado.

SENTENCIA CANCEL ================= |CANCEL IDENTIFI-1 / LITERAL | se cancela un programa llamado, de tal forma que la proxima llamada lo pondra en su estado inicial. *** los subprogramas han de terminar con GOBACK o EXIT PROGRAM *** los efectos siempre son jerarquicos, en caso de programas anidados *** todo ello fortalece la recursividad en el COBOL


Maual de COBOL II

Proyecto ALTAIR

SENTENCIA EVALUATE

|EVALUATE IDENTIFIC-1 | | LITERAL | | EXPRESION | | TRUE | | FALSE ALSO ...... (VARIOS) | | LAS MISMAS EXPRESIONES | |WHEN FRASE-1 | | ALSO FRASE-2 .....(VARIAS) | | SENTENCIA IMPERATIVA | | |[ WHEN OTHER SENTENCIA IMPERATIVA ] --> FRASE-1 puede ser : ANY CONDICION-1 TRUE FALSE NOT IDENTIFI-1 LITERAL EXPR.ARIT. THRU (las mismas ) --> FRASE-2 puede ser : ANY CONDICION-2 TRUE FALSE NOT (igual anterior) THRU (igual)

CONSIDERACIONES SOBRE LA EVALUATE ==================================== * implanta en COBOL una declaracion que facilita la programacion estructurada. ----> equivale a la declaracion "CASE" de otros lenguajes, cuya carencia en el COBOL se criticaba. * facilita la construccion de sentencias de logica compleja para las cuales antes era necesario recurrir a la "IF" anidadas.


| | | | | | | | | | | | | | | | | | | |

Maual de COBOL II

Proyecto ALTAIR

* las expresiones a evaluar se lleman sujeto de la seleccion y el resultado objeto de la seleccion. * los pares de sujetos y objetos deben ser de la misma clase (numerico, caracter, condicion TRUE o FALSE). * usar la EVALUATE para seleccionar el proceso de un conjunto de acciones. * en una EVALUATE pueden especificarse hasta 255 sujetos y objetos. * la ejecucion de una EVALUATE finaliza cuando: - la declaracion asociada con una "WHEN" es seleccionada. - la declaracion asociada con una "WHEN OTHER" es SELECC. - ninguna condicion "WHEN" es seleccionada. * las "WHEN" son comprobadas en el orden de especificacion, por tanto se codificaran en orden de probabilidad. * Dos operandos relacionados con una "THRU" deben ser de la misma clase. * cualquier sujeto u objeto de seleccion en el cual se ha especificado como "TRUE" o "FALSE" se le asigna ese valor a los ITEMS correspondientes.

EJEMPLOS DE EVALUATE ---------------------EVALUATE CAMPO1 WHEN 'D' MOVE 'CONDUCTOR' TO CAMPO1 WHEN 'R' MOVE 'COCHE' TO CAMPO1 WHEN SPACE MOVE SPACES TO CAMPO1 END-EVALUATE ---> USANDO IF IF CAMPO1 = 'D' MOVE 'CONDUCTOR' TO CAMPO1 ELSE IF CAMPO1 = 'R' MOVE 'COCHE' TO CAMPO1 ELSE IF CAMPO1 = SPACE MOVE SPACES TO CAMPO1 END-IF END-IF END-IF /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 11 de 55

Maual de COBOL II

Proyecto ALTAIR

EVALUATE TRUE ALSO TRUE WHEN EDAD < 18 ALSO SEXO = 'M' MOVE 'CHICO JOVEN' TO CAMPO1 WHEN EDAD < 18 ALSO SEXO = 'F' MOVE 'CHICA JOVEN' TO CAMPO1 WHEN EDAD > 18 ALSO SEXO = 'M' MOVE 'SE¥OR' TO CAMPO1 WHEN EDAD > 18 ALSO SEXO = 'F' MOVE 'SE¥ORITA' TO CAMPO1 WHEN OTHER MOVE 'NO VALIDO' TO CAMPO1 END-EVALUATE

SENTENCIA INITIALIZE

|

INITIALIZE IDENTIF-1 ........ | | | [ REPLACING | | ALPHABETIC | | ALPHANUMERIC | | NUMERIC | | ALPHANUMERIC-EDITED | | NUMERIC-EDITED | | DATA BY INDENTIF-A | | LITERAL ]

* es equivalente a una o mas "MOVE" * IDENTIF-1 puede ser : - Un ITEM subscrito - una tabla completa (no DEPENDING ON) - una estructura * cuando se usa REPLACING IDENTIF-A/LITERAL deben ser compatibles con IDENTIF-1. * Si no se usa REPLACING se asume : - Blancos para los ALPHA - Zeros para los NUMERIC


| | | | | | | | | | | | | | | |

Maual de COBOL II

Proyecto ALTAIR

NUEVAS OPCIONES DE LA PERFORM

Conjuntamente con la EVALUATE refuerza el lenguaje COBOL como lenguaje adaptado a la programacion estructurada. en principio distinguir entre la PERFORM en linea (la cual se representa con el delimitador END-PERFORM) y la PERFORM fuera de linea, que es la PERFORM tradicional. * PERFORM ..... TIMES * |PERFORM [ IDENTIF-1/ENTERO-1 ] TIMES | | [ SENTENCIA IMPERATIVA ] | |END-PERFORM * PERFORM | | | | | | | | | | | | | | |

CON

| | | | |

UNTIL :

PERFORM NOMBRE-PROC1 [ WITH TEST

[ THRU NOMBRE-PROC2 ] BEFORE /

AFTER ] UNTIL CONDICION-1 [ DECLARACION-IMPERATIVA END-PERFORM ]

* Si se especifica Nombre-Proc1 no se debe especificar la declaracion imperativa y la END-PERFORM. * WITH .... para probar la condicion-1 antes o despues de la ejecucion. BEFORE = DO WHILE AFTER = DO UNTIL (Al menos se ejecuta una vez)


| | | | | | | | | | | | | | |

Maual de COBOL II | | | | | | | | | | | | | | | | | | | | | | | |

Proyecto ALTAIR

PERFORM PROC-1 [ THRU PROC-2 ] [ WITH TEST BEFORE / AFTER ] VARYING IDENT-1 FROM IDENT-2 INDEX-1

INDEX-2 LITERAL

BY IDENT-3

UNTIL CONDICION-1

INDEX-3 AFTER

...

FROM .....

BY ....

UNTIL ...

[ DECLARACION IMPERATIVA END-PERFORM ]

esta modificacion de la "PERFORM" supone implantar en el COBOL el "DO WHILE" y el "DO UNTIL", cuya carencia tambien se le criticaba al COBOL. en resumen el COBOL85 con sus nuevas funciones y ampliaciones han cubierto los flancos que le hacian vulnerables ante las criticas respecto al desfase con las funciones que incluian los lenguajes ultimamente desarrollados ( PASCAL, C).

ASPECTOS ADICIONALES ===================== 1.- el DB2 R3 suministra un nuevo parametro en la opcion HOST del precompilador del DB", "COB2", que sirve para indicar si el fuente esta estrito en VS COBOL II. 2.- la opcion de compilacion DYNAM, que permite la carga dinamica de programas, al ser llamados por la sentencia CALL no es aplicable a modulos que usen comandos CICS. 3.- para poder llevar a cabo la depuracion se debe compilar con la opcion TEST.


| | | | | | | | | | | | | | | | | | | | | | | |

Maual de COBOL II

Proyecto ALTAIR

4.- un programa es reentrante cuando puede ser ejecutado por varios usuarios o tareas al mismo tiempo, en COBOL II, la opcion es RENT. Si se especifica esta opcion, tambien es necesario especificar la opcion RESIDENT.

DEPURACION CON COBOL II

ENTORNO

|COMPILAR|SOPORTE DE |DEPURACION|DEPURACION | |MODULOS OB.|BATCH |INTERACTIVA ------------------------------------------------------------INTERACTIVO TSO | SI | SI | SI | SI | | | | CICS/OS 1.7 | NO | SI | SI | NO | | | | IMS | NO | SI | NO | SI(BTS) | | | | BATCH MVS | SI | SI | SI | SI | | | | se puede utilizar: INTERACTIVAMENTE ---------------* en modo FULL SCREEN. * en modo de edicion de linea. al utilizarlo de forma interactiva, el programador puede: * Controlar y visualizar el flujo del programa. * Alterar temporalmente la logica del programa. * Ejecutar y re-ejecutar todo o parte de un programa utilizando diferentes valores de datos. * Inspeccionar y modificar campos de datos en punto seleccionados del programa. ------> ES PRERREQUISITO DISPONER DEL ISPF VERSION 2. BATCH ----Las peticiones de depuracion se proporcionan en un fichero, creado previa la ejecucion del programa. los programas CICS se pueden depuran en modalidad BATCH.


Maual de COBOL II

Proyecto ALTAIR

COMPILACION las opciones de compilacion pueden especificarse mediante la ficha CBL o su sinonimia PROCESS, tambien via JCL en la sentencia EXEC que llama al compilador, en la PARM : //COMPILE EXEC PGM=IGYCRCTL,PARM='XREF,SSRANGE,MAP' para modificar las opciones por defecto se usa la macro IGYCOPT, que se ensamblara y catalogara como modulo IGYCDOPT.

COMPILACIONES CON PROGRAMAS SECUNDARIOS ========================================== cuando se hacen llamadas a programas secundarios desde programas en COBOL II, tamto si el secundario es COBOL II, como si en COBOL OS/VS, los dos tienen que estar compilados con la misma opcion RES o NORES. Si el programa secundario es COBOL OS/VS, no se permite la compilacion de este con ninguna opcion de DEBUG, pues en tiempo de ejecucion nos daria un ABEND de usuario 1010. Si el programa secundario esta linkeditado con la opcion RENT, y no es realmente reentrante, en tiempo de ejecucion nos puede dar un abend de sistema B0A o 30A.

LLAMADAS ENTRE PROGRAMAS COBOL II

Una RUN UNIT (unidad de ejecucion) incluye uno o mas programas objeto y puede incluir otros lenguajes diferentes al COBOL. El primer programa cobol que se ejecuta en la RUN UNIT es usualmente, el MAIN PROGRAM (programa principal). Cuando una RUN UNIT consiste en varios programas llamados, estos programas deben estar dispuestos para comunicarse con los otros programas. Estos necesitan transferir control y usualmente necesitan tener acceso a datos comunes. Otro metodo que puede ser usado para la comunicacion entre programas es el de programas COBOL anidados. Esto permite que todos los programas requeridos pro una aplicacion esten contenidos dentro del MAIN PROGRAM y de este modo solo es necesario una simple compilacion.


Maual de COBOL II

Proyecto ALTAIR

TRANSFIRIENDO CONTROL A OTROS PROGRAMAS

En la Procedure Division un MAIN PROGRAM puede llamar a un subprograma, y un subprograma puede, asimismo, todavia llamar a otro programa. El programa A llama al B. El A se denomina PROGRAMA LLAMANTE y el B PROGRAMA LLAMADO. El programa COBOL llamado empieza a ejecutarse al principio de la Procedure Division. Es posible especificar otro punto de entrada (ENTRY POINT) donde empiece la ejecucion utilizando la etiqueta ENTRY el PROGRAMA LLAMADO. Sin embargo, esta no es una practiva recomendada en la programacion estructurada. Cuando el PROGRAMA LLAMADO se ha procesado completamente puede tambien devolver control al LLAMANTE o finalizar la UNIT RUN. Un programa llamado no debe, directa o indirectamente, ejecutar a su llamador. Ejemplo: EL PROGRAMA X LLAMA AL Y EL Y LLAMA AL Z Y EL Z LLAMA AL X A esto se le denomida una RECURSIVE CALL. Si se intenta ejecutar una CALL RECURSIVA a un programa COBOL la RUN UNIT termina anormalmente (ABEND). El PROGRAMA LLAMANTE y todos los LLAMADOS deben estar (todos compilados con la opcion del compilador: RESIDENT o NORESIDENT, a menos que haya sido especificada la opcion MIXRES en tiempo de ejecucion.

PROGRAMA PRINCIPAL Y SUBPROGRAMAS. ------------------------------------No hay sentencias especificas u opciones para identificar si un programa COBOL es principal o es un subprograma. Normalmente el primer programa COBOL que empieza la ejecucion de una RUN UNIT es el MAIN PROGRAM (programa principal). Todos los otros programas COBOL en la RUN UNIT (unidad de ejecucion) son Subprogramas.


Maual de COBOL II

Proyecto ALTAIR

Hay diferentes maneras de finalizar un programa: +--------------+-------------+-------------------------------------+ |Tipo programa |Finaliza con:| Efectos que causa | +--------------+-------------+-------------------------------------+ | MAIN PROGRAM | STOP RUN | Termina la RUN UNIT y deletea | | (programa | | todos los programas llamados di- | | (programa | | los programas llamados dinamicamen- | | principal) | | namicamente en la RUN UNIT y | | | | todos los programas linkeditados | | | | con aquellos. El control es de- | | | | vuelto al llamador del programa | | | | PRINCIPAL que usualmente suele | | | | ser el sistema operativo | +--------------+-------------+-------------------------------------+ | MAIN PROGRAM | GOBACK | Tiene el mismo efecto que | | (programa | | STOP RUN | | principal) | | | +--------------+-------------+-------------------------------------+ | MAIN PROGRAM |EXIT PROGRAM | No tiene ningun efecto | | (programa | | | | principal) | | | +--------------+-------------+-------------------------------------+ | SUBPROGRAMA |EXIT PROGRAM | Devuelve control a su inmediato | | | o | llamador sin finalizar la RUN UNIT | | | GOBACK | | +--------------+-------------+-------------------------------------+ | SUBPROGRAMA | STOP RUN | el efecto es el mismo que en | | | | un programa principal: Todos los | | | | programas COBOL en la RUN UNIT | | | | son terminados y se devuelve | | | | control al llamante. | +--------------+-------------+-------------------------------------+ | SUBPROGRAMA: Una sentencia EXIT PROGRAM implicita es gene- | | rada si no hay una instruccion siguiente eje-| | cutable | +------------------------------------------------------------------+ Un subprograma es usualmente dejado en su ultimo estado de uso (LAST-USED STATE), cuando termina con EXIT PROGRAM o GOBACK. La siguiente vez que es llamado en la RUN UNIT (unidad de ejecucion) sus valores internos estaran como fueron dejados, excepto los valores de retorno para las instrucciones PERFORM que seran restaurados a su valor inicial. Por el contrario, un programa principal es inicializado cada vez que es llamado. Hay dos excepciones: 1ra.- Un subprograma que es llamado dinamicamente por un programa COBOL OS/VS o COBOL II VS y luego es cancelado, con la opcion RESIDENT estara en el estado inicial la siguiente vez que es llamado. 2da.- Un programa con el atributo INITIAL estara en el estado inicial cada vez que es llamado.


Maual de COBOL II

Proyecto ALTAIR

LLAMANDO PROGRAMAS

Se pueden usar diferentes metodos para transferir control a otro programa. Esto incluye : 1.- CALLs a programas anidados. 2.- CALLS estaticas a otros programas COBOL II VS compilados separadamente. 3.- CALLs dinamicas a otros programas COBOL II VS compilados separadamente. 4.- CALLs a programas en otros lenguajes incluyendo PLI, FORTRAM, y COBOL OS/VS. Las CALL a programas anidados te permiten crear aplicaciones utilizando las tecnicas de programacion estructurada. Pueden tambien ser utilizadas en lugar de procesos PERFORM para prevenir modificaciones a items inintencionadamente. Las CALL a programas anidados pueden usar bien la instruccion CALL -literal- o bien CALL -identificador-. Una CALL estatica es utilizada para llamar a un programa compilado separadamente que es link-editado dentro del mismo modulo de carga que el programa LLAMANTE. Una CALL dinamica es utilizada para llamar a un programa compilado separadamente que ha sido link-editado en un modulo de carga separado del programa LLAMANTE. En este caso el modulo del subprograma es cargado en memoria la primera vez que es llamado. Una CALL estatica ocurre cuando se usa la instruccion CALL-literal en un programa que es compilado con la opcion NODYNAM. Las CALL estaticas son ejecutadas mas rapidamente que las CALL dinamicas y utilizan u ocupan menos memoria. El uso de la instruccion CALL -identificador- O CALL -literalcompilado con la opcion DYNAM da como resultado una CALL dinamica. Se deberia considerar la utilizacion de una call dinamica cuando: 1.- los subprogramas llamados con una instruccion CALL -literal- son usados infrecuentemente o son muy grandes. 2.- Se quiera llamar a subprogramas en su UNUSED STATE. 3.- Se tiene un programa AMODE(24) en la misma RUN UNIT con programas COBOL II VS que quieren que se ejecuten en la modalidad de direccionamiento de 31 BITS. 4.- El nombre del programa que va a ser llamado se conoce en tiempo de ejecucion. /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 19 de 55

Maual de COBOL II

Proyecto ALTAIR

PROGRAMAS ANIDADOS

Los programas anidados proporcionan un metodo mediante el cual se pueden crear funciones modulares (modular functions) para la aplicacion mantenimiento de tecnicas de programacion estructurada. Se pueden utilizar como procesos PERFORM con la capacidad adicional de proteger los items locales. Los programas anidados tambien dan flexibilidad para depurar los programas antes de ser incluidos en la aplicacion y dar la capacidad para compilar la aplicacion con una simple invocacion al compilador. ESTRUCTURA DE PROGRAMAS ANIDADOS ----------------------------------Un programa COBOL puede contener otros programas COBOL. Los programas contenidos pueden ellos mismos contener otros progragramas. Un programa contenido puede ser directamente o indirectamente contenido dentro de un programa. EJEMPLO: -------+-- Programa X | -------| ....... | Call X1 | Call X2 | ....... | Stop run | | +-- Programa X1 | | -------|| | | ........ | | Call X11 | | Call X12 | | ........ | | Stop run || | | +-- Programa X11 | | | -------||| | | | ........ | | | ........ | | | Exit Program ||| | | +-- End Program X11 || | | +-- Programa X12 | | | -------||| | | | ........ /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 20 de 55

Maual de COBOL II

Proyecto ALTAIR

| | | ........ ||| | | | Exit Program ||| | | +-- End Program X12 || | +-| | +-- Programa X2 | | -------|| | | ......... | | ......... | | Exit Program || | +-- End Program X2 | +-- End Program X

NORMAS PARA EL USO DE ESTRUCTURA DE PROGRAMAS ANIDADOS -------------------------------------------------------------Hay varias normas que aplicar cuando se utilizan estructuras de programas anidados: 1.- La IDENTIFICATION DIVISION es requerida en cada programa. Todas las otras divisiones son opcionales. 2.- El nombre de programa debe ser unico. 3.- Los programas contenidos no pueden tener la COMFIGURATION SECTION. El programa outermost (mas exterior) debe especificar cualquiera de las opciones CONFIGURATION SECTION que pueda ser requerida. 4.- Cada programa contenido (llamado) es incluido en el programa continente (llamante) inmediatamente antes de su cabecera END-PROGRAM. 5.- Programas llamados y llamantes deben ser terminados con END-PROGRAM.

LLAMANDO A PROGRAMAS ANIDADOS --------------------------------


Maual de COBOL II

Proyecto ALTAIR

Un programa contenido (llamado) solamente puede ser llamado directamente por su programa llamante, a menos que el llamado identificado como COMMON en su clausula PROGRAM-ID. En este caso el programa COMMON puede tambien ser llamado por cualquier programa que este contenido directa o indirectamente dentro del mismo programa que el programa COMMON. Solamente programas contenidos (llamados) pueden ser COMMON. Las CALL recursivas no son permitidas.

EJEMPLO: -------+-- Program-id. A | ----------| | +-- Program-id. A1 | | ----------|| | | +-- Program-id. A11 | | | ----------||| | | | +-- Program-id. A111 | | | | ----------||| | | | | +-- End Program A111 ||| | | +-- End Program A11 || | +-- End Program A1 | | +-- Program-id. A2 is COMMON | | ----------|| | +-- End Program A2 | | +-- Program-id. A3 is COMMON | | ----------|| | +-- End Program A3 | +-- End Program A


Maual de COBOL II

Proyecto ALTAIR

La siguiente tabla describe la jerarquia de las CALL: +----------+----------------+-----------------------+ | El | Puede llamar | y Puede ser llamado | | Programa | a los programas| por los programas | +----------+----------------+-----------------------+ | A | A1,A2,A3 | Ninguno | +----------+----------------+-----------------------+ | A1 | A11,A12,A2,A3 | A | +----------+----------------+-----------------------+ | A11 | A111,A12,A2,A3 | A1 | +----------+----------------+-----------------------+ | A111 | A12,A2,A3 | A11 | +----------+----------------+-----------------------+ | A12 | A2,A3 | A1,A11,A111 | +----------+----------------+-----------------------+ | A2 | A3 | A,A1,A11,A111,A12,A3 | +----------+----------------+-----------------------+ | A3 | A2 | A,A1,A11,A111,A12,A2 | +----------+----------------+-----------------------+

Observar: .- que A2 no puede llamar a A1 proque no es COMMON y no esta contenido en A2 .- que A111 no puede llamar a A11 porque eso seria una CALL RECURSIVA. .- que A1 puede llamar a A2 porque A2 es COMMON.

CALL ESTATICAS Y DINAMICAS. -----------------------------Cuando un subprograma es llamado puede estar ya en memoria y puede ser Linkeditado en el mismo modulo de carga con el programa LLAMANTE (Call estatica) o puede ser cargado solamente al tiempo que es llamado (Call dinamica). Con la carga dinamica el programa llamado es cargado solamente cuando se necesita. cargado solamente cuando se necesita. El proceso de Link-edit difiere dependiendo de si se trata de programas con Call dinamica o estatica.

UTILIZANDO CALL ESTATICA. --------------------------La instruccion CALL-literal- (donde-literal- = nombre subprograma) es tratada por el compilador como una CALL estatica cuando la opcion del compilador NODYNAM esta activa. /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 23 de 55

Maual de COBOL II

Proyecto ALTAIR

Una CALL estatica es ejecutada mas rapidamente que una dinamica y es la preferida si la aplicacion no requiere los servicios de una Call dinamica. Los programas llamados por una Call estatica no pueden ser deleteados (con cancel), por tanto el uso de CALLs estaticas puede ocupar mas memoria principal. Si la memoria IS A CONCERN OF YOURS considerar el uso de CALLs dinamicas. Si la opcion del compilador NODYNAM esta activa todas las CALLs de el formato CALL -literal- en ese programa seran CALLs estaticas.

UTILIZANDO CALL DINAMICA. --------------------------Una Call dinamica carga el subprograma en tiempo de ejecucion. Se debe utilizar una instruccion CALL dinamica cuando: 1.- Los subprogramas llamados con CALL -literal- son usados infrecuentemente o son muy grandes. Si los subprogramas son llamados pocas veces, las CALL dinamicas tienen la ventaja de que trae el subprograma a memoria solamente cuando se necesita. 2.- Se quiera llamar a Subprogramas en su UNUSED STATE. Con el atributo INITIAL el subprograma sera posicionado en su INITIAL UNUSED STATE cada vez que es llamado. Se puede, tambien, selectivamente preparar el ESTADO NO USADO o INICIAL mediante el proceso CALL y CANCEL. Este es un proceso mas engorroso y fastidioso pero da control del estado si eso es lo esencial. Para hacer esto se utiliza una combinacion de CALL dinamica y la instruccion CANCEL y se compila el programa con la opcion RESIDENT. Cuando se cancela el subprograma que fue inicialmente llamado por un COBOL OS/VS o COBOL II VS, la siguiente CALL causara que el subprograma sea reinicializado a su UNUSED STATE. El comando cancel no toma accion alguna para borrar de memoria los subprogramas que fueron cargados dinamicamente y bifurcados mediante programas no COBOL. 3.- El nombre del programa a ser llamado solo se conoce en tiempo de ejecucion : - En este caso utiliza el formato CALL -identificador- donde -identificador- es el item que contendra el nombre del programa llamado en tiempo de ejecucion. En la proctica se deberia utilizar CALL -identificador- cuando el programa a ser llamado varia dependiendo de las condiciones del programa llamante. /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 24 de 55

Maual de COBOL II

Proyecto ALTAIR

- CALL -identificador- es siempre dinamica, incluso si se utiliza la opcion de compilacion NODYNAM. Para que todas las CALL -literal- hechas en un programa sean dinamicas utilizar la opcion de compilacion DYNAM. Cuando se utilice la opcion de compilacion NODYNAM, no se debe mezclar CALL -identificador- dinamica y una CALL -literalestatica para el mismo subprograma. Esto desperdicia espacio porque dos copias del subprograma son cargadas en memoria y no se garantiza que el subprograma sea dejado en su LAST-USED-STATE. Cuando se tienen CALLs dinamicas en un programa, se debe compilar utilizando la opcion RESIDENT. Las CALLs dinamicas toman mas procesamiento pero pueden utilizar menos memoria principal que las CALLs estaticas.

COMPARTIENDO DATOS USANDO EL ATRIBUTO EXTERNAL. ---------------------------------------------------Los programas compilados separadamente (incluyendo los programas dentro de una secuencia batch) pueden compartir items mediante el uso del atributo EXTERNAL. EXTERNAL es especificado en el nivel 01 de la descripcion del dato en la working de un programa y se aplican las siguientes reglas: 1.- Los items subordinados a un grupo de items EXTERNAL, son ellos mismos EXTERNAL. 2.- El nombre usado para el item no puede ser usado en otro item EXTERNAL dentro del mismo programa. 3.- La clausula VALUE no puede ser especificada para cualquier grupo de item o items subordinados EXTERNAL. Cualquier programa COBOL dentro de la RUN UNIT (Unidad de ejecucion) que tenga la misma descripcion para el item que el programa que contiene el item puede acceder y procesar el item. Ejemplo: -------Si el programa A tuviera la siguiente descripcion: 01 EXT-ITEM1 PIC 99 EXTERNAL. El programa B podria acceder a ese item si tuviera la misma descripcion en su working. Cualquier programa que pueda acceder a un item EXTERNAL puede cambiar su valor. No se debe utilizar este atributo para items que es nesario proteger. /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 25 de 55

Maual de COBOL II

Proyecto ALTAIR

PASANDO DATOS MEDIANTE BY REFENCE OR BY CONTENT -----------------------------------------------------BY REFERENCE significa que el subprograma esta refiriendose y procesando el item en la working del programa llamante en vez de trabajar sobre una copia del dato. BY CONTENT significa que el programa llamante esta pasando solamente el contenido del -literal- o -identificador-. Con una CALL ... BY CONTENT, el programa llamado no puede cambiar el valor del -literal- o -identificador- en el programa llamante, incluso si se modifica la variable en la cual se recibe el -literal- o el -identificador-. Si se quiere que el subprograma reciba datos del llamante y compartirlos se debe especificar: CALL ... BY REFERENCE -IDENTIFICADORCualquier cambio que el subprograma haga afecta al dato en el programa llamante. Un -identificador- en la frase USING de la instruccion CALL ... BY REFERENCE puede ser un nombre de fichero ademas de un nombre de item. Si el -identificador- es un nombre de fichero para un fichero secuencial el compilador COBOL pasa la direccion de la DCB (Data Control Block) AS THIS ENTRY OF THE PARAMETER LIST. El -identificador- no puede ser el nombre de un fichero VSAM. NOTA: Este mecanismo no puede ser usado para ficheros compartidos entre programas COBOL. Esto es solamente para pasar la DCB a programas assembler. Si se quiere pasar la direccion del area de registro a un programa llamado se debe especificar : CALL ... BY REFERENCE ADDRESS OF -RECORD NAMEEl subprograma recibe el ADDRESS SPECIAL REGISTER (Registro especial de direccion) para el nombre de registro que se especifico. Se debe definir el nombre de registro como un nivel 01 o 77 en la LINKAGE SECTION de los programas llamante y llamado. Si se quiere pasar la longitud del item se especificara: CALL ... BY CONTENT LENGTH OF -IDENTIFICADOREl programa llamante pasa la longitud del -identificadordesde su LENGTH special register (registro especial de longitud).


Maual de COBOL II

Proyecto ALTAIR

Cuando los literales son pasados mediante BY CONTENT el programa llamado no puede cambiar el valor. Si se quiere pasar ambos (el item y su longitud) a un subprograma se especificara una combinacion de BY REFERENCE y BY CONTENT, por ejemplo : CALL 'ERRPROC' USING BY REFERENCE A BY CONTENT LENGHT OF A. Los items en un programa llamante pueden estar descritos en la LINKAGE SECTION de todos los programas que llama directa o indirectamente. En este caso, la memoria para estos items es alocada en el programa llamante de nivel superior. Esto es, el programa A llama al B, el cual llama al C. Los items en el programa A pueden ser descritos en la LINKAGE SECTION de los programas B y C y estar disponibles a los tres programas.

DESCRIBIENDO ITEMS COMUNES EN EL PROGRAMA LLAMANTE -------------------------------------------------------En el programa llamante, los items comunes son descritos en la DATA DIVISION de la misma manera que otros items. A menos que ellos esten en la LINKAGE SECTION, la memoria es alocada para esos items en el programa llamante. Si se referencian datos en un fichero, este debe estar abierto cuando el dato sea referido. Se codificara la clausula USING en las instrucciones DESCRIBIENDO DATOS COMUNES EN EL PROGRAMA LLAMADO ------------------------------------------------------En el programa llamado los items comunes son descritos en la LINKAGE SECTION. Codificar la clausula USING despues de la cabecera PROCEDURE DIVISION para recibir los datos.


Maual de COBOL II

Proyecto ALTAIR

EJEMPLO: -------Descripcion del Prog. LLAMANTE ----------------------

Descripcion del Prog. LLAMADO ----------------------

WORKING STORAGE SECTION. LINKAGE SECTION. +----------------------------+ +------------------------+ | 01 PARAM-LIST. | | 01 USING-LIST | | 05 PARTCODE PIC A. | | 10 PART-ID PIC X(5) | | 05 PARTNO PIC X(4). |---->>| 10 SALES PIC 9(5) | | 05 U-SALES PIC 9(5). | | | +----------------------------+ +------------------------+ . | . | . | . | . | . | . | . | | . | PROCEDURE DIVISION | PROCEDURE DIVISION | . | USING+----------+ . | |USING-LIST| . | +----------+ CALL CALLED-PROG +----------+ USING |PARAM-LIST| +----------+ LINKAGE SECTION ----------------Se debe conocer lo que se va a pasar desde el programa llamante y la estructura de la LINKAGE, para aceptarlo. No importa que clausula de la instruccion CALL se utilice para pasar los datos (BY REFERENCE o BY CONTENT). En cualquier caso el programa llemado debe describir los datos que esta recibiendo. Hace esto en la LINKAGE SECTION.


Maual de COBOL II

Proyecto ALTAIR

INSTRUCCIONES DE PROGRAMAS COBOL

INTRUCCION INSPECT -----------------INSPECT DATA-1 TALLYING CONTADOR FOR CHARACTERS AFTER INITIAL 'S' REPLACING ALL 'A' BY 'O' INSPECT DATA-1 TALLYING CONTADOR FOR LEADING '0' REPLACING FIRST 'A' BY '2' AFTER INITIAL 'C' INSPECT DATA-1 REPLACING CHARACTERS BY ZEROS BEFORE INITIAL QUOTE INSPECT DATA-1 CONVERTING 'abcedfg' TO 'ABCEDFG' AFTER INITIAL '/' BEFORE INITIAL '?'

INSTRUCCION INITIALIZE ---------------------INITIALIZE ALFANUMERIC-1 REPLACING ALPHANUMERIC DATA BY ALPHANUM-3 INITIALIZE CAMPO-NUMERICO REPLACING NUMERIC DATA BY CAMPO-NUMERICO-2 INITIALIZE CAMPO-EDICION REPLACING ALPHANUMERIC-EDITED DATA BY CAMPO-EDICIION-2 Un item de datos INDEX no se puede inicializar con INITIALIZE. La sentencia INITIALIZE no se puede usar para inicializar tablas de longitud variable (OCCURS...DEPENDING ON...) 01

TABLA-ENTRADA. 05 ENTRADA OCCURS 100 TIMES. 10 NOMBRE-TAB PIC X(5). <------ '$bbbb' o '$$$$$'. 10 NOMBRE-TAB PIX 9(5).


Maual de COBOL II INITIALIZE TABLA-ENTRADA REPLACING ALPHANUMERIC DATA BY [ALL] '$'. -------------------01

TABLA VALUE 'A'. 05 ELEMENTO OCCURS 5 TIMES PIC X.

----------|A|A|A|A|A| ----------12345

INSTRUCCIONES DE TABLAS

01 TABLA-1. 05 TABLA-ENTRY OCCURS 10 TIMES INDEXED BY IND-1. 10 TABLA-ENTRY2 OCCURS 5 TIMES ASCENDING KEY IS KEY1 INDEXED BY IND-3. 20 KEY1 PIC X(5). 20 KEY2 PIC X(10). SET IND-1 TO 2. SEARCH TABLA-1 AT END .............. WHEN tabla-ENTRY3 (IND-1, IND-2, IND-3) = '.......' WHEN ......... WHEN ......... WHEN ......... END-SEARCH.

INSTRUCCION EVALUATE. --------------------EVALUATE TRUE WHEN ESTADO-CASADO ................. WHEN ESTADO-SOLTERO ................. END-EVALUATE.


Proyecto ALTAIR

Maual de COBOL II

Proyecto ALTAIR

EVALUATE CODIGO = 'A' VALOR-1 > 100 INDICADOR WHEN TRUE TRUE TRUE .................. .................. WHEN TRUE FALSE ANY .................. .................. END-EVALUATE.

EVALUEATE TRUE WHEN DD-31 WHEN DD-30 ............. ............. CONTINUE WHEN OTHER ............. ............. ............. END-EVALUATE.

TRUE MM-31 MM-30

TRUE AA-NORMAL AA-NORMAL

EVALUATE CANTIDAD * 4 WHEN NOT NUMERIC .................. .................. WHEN 1 THRU 10 .................. .................. WHEN NOT 11 THRU 20 .................. .................. END-EVALUATE. EVALUATE CAMPO-1 CAMPO-2 CAMPO-3 WHEN 1 1 1 MOVE 'A' TO INDICADOR-FINAL WHEN 1 1 0 MOVE 'B' TO INDICADOR-FINAL WHEN OTHER ................. END-EVALUATE. EVALUATE CAMPO-1 CAMPO-2 CAMPO-3 WHEN 0 1 THRU 3 5 ................ ................ WHEN NUMERIC ANY NOT NUMERIC ................ ................ END-EVALUEATE.


Maual de COBOL II

Proyecto ALTAIR

INSTRUCCION STRING. ------------------STRING CAMPO-1 CAMPO-2 DELIMITED BY CAMPO-3 CAMPO-4 DELIMITED BY SIZE <-------- Todo INTO CAMPO-7 WITH POINTER CAMPO-8. <---------- Contiene el numero de caracter a transmitir (no < 1 ni > que la variable receptora). campo-4 campo-1 campo-2 campo-3 ___________ ___________ _____ _ |6|7|8|9|*|0| |1|2|3|*|4|5| |A|*|B| |*| ------------------------___________________________________ |1|2|3|A|6|7|8|9|*|0|b|b|b|b|b|b|b|b| ----------------------------------campo-8 __ |11| -inicializar a 1 antes de la ejecucion

la opcion [ON OVERFLOW sentencia-imperativa] se ejecutara cuando se excedan los limites

INSTRUCCION UNSTRING. ---------------------UNSTRING CAMPO-ORIGEN DELIMITED BY DELIMITADOR OR ALLL '*' INTO CAMPO-FINAL-1 DELIMITED IN MARCA-1 COUNT IN CUENTA-1 CAMPO-FINAL-2 DELIMITED IN MARCA-2 CAMPO-FINAL-3 DELIMITED IN MARCA-3 COUNT IN CUENTA-3 CAMPO-FINAL-4 COUNT IN CUENTA-3 WITCH POINTER APUNTADOR TALLYING IN CONTADOR-TOTAL ON OVERFLOW GO TO ....... delimitador en ejecucion _ |?| -


Maual de COBOL II

Proyecto ALTAIR

campo-origen _________________________________ |1|2|3|*|*|4|5|6|?|?|7|A|B|C|D|E|F| --------------------------------campo-final-1 ___________ |1|2|3|b|b|b| -----------

marca-1 _ |*| -

campo-final-2 _________ |4|5|6|b|b| ---------

marca-2 _ |?| -

campo-final-3 _____ |b|b|b| -----

marca-3 _ |?| -

campo-final-4 _________ |7|A|B|C|D| ---------

cuenta-1 _ |3| -

cuenta-3 _ |0| cuenta-4 _ |5| -

apuntador contador-total __ __ |18| |05| <-------+------ inicializados a 1 --| antes de la ejecucion. | | +------------------------------+

INSTRUCCION READ ---------------READ nombre-fichero AT END .......... NOT AT END ...... END-READ.


Maual de COBOL II

Proyecto ALTAIR

COBOL

II : S O R T

FILE SECTION. -----------SD file-name1 DATA RECORD IS ....... 01 ......... En la SD se define el fichero que vamos a ordenar.

PROCEDURE DIVISION. -----------------SORT file-name1 ---_ ON

| | | |

_ ASCENDING --------DESCENDING ----------

-

| | | | --

KEY

data-name1, data-name2,....

[COLLATING SEQUENCE IS alphabet-name] -------__ USING file-name2 ... ----INPUT PROCEDURE --------------_ | THROUGH IS section-name1 [| ------| THRU | ----

| | | | | | | | | |

__

_ | | | | --

-__ GIVING file-name3 ... ----OUTPUT PROCEDURE ---------------_ | THROUGH IS section-name3 [| ------| THRU | ----

| | | | | | | | | |

--


| | | | | section-name2 ] | | | | | -__

_ | | | | --

| | | | | section-name4 ] | | | | | --

Maual de COBOL II

Proyecto ALTAIR

*-->> FILE-NAME1 : Nombre del fichero definido en la SD. *-->> ASCENDING DESCENDING : Indica la secuencia en la que se va a ordenar el fichero, ascendente ( de menor a moyor) o descendente. *-->> DATA-NAME1 : Campo en el que tenemos que basar la ordenacion, tiene que estar relacionado con el fichero, estar situado en la misma posicion y tener la misma longitud que en el fichero de entrada. *-->> COLLATING SEQUENCE : Especifica la secuencia a seguir para usar en las comparaciones no numericas para el campo clave en la opercion de ordenar. *-->> USING : Cuando se especifica esta opcion todos los registros en file-name2, son transferidos automaticamente a file-name1. Los ficheros de entrada tienen que tener organizacion secuencial. *-->> INPUT PROCEDURE : Especifica el nombre de la seccion que va a seleccionar o modificar registros de entrada antes que la operacion de ordenacion comienze. Puede tener uno o mas parrafos escritos consecutivamente y que no formen parte de la OUTPUT PROCEDURE. *-->> GIVING : Cuando se especifica esta opcion todos los registros ordenados en file-name1 son transferidos automaticamente al fichero de salida file-name3. El fichero de salida debe tener organizacion secuencial, y debe estar definido en la FD. *-->> OUTPUT PROCEDURE : Especifica el nombre de seccion que va a seleccionar o modificar registros de salida. Puede tener uno o mas parrafos escritos consecutivamente y que no formen parte de la INPUT PROCEDURE.

RELEASE Equivale a un WRITE, para grabar los registros en el fichero del SORT. RELEASE record-name [FROM identifier] ---------Transfiere registros desde un area de entrada/salida a la fase inicial de una operacion de ordenacion. Solo se puede usar en SORT INPUT PROCEDURE.


Maual de COBOL II

Proyecto ALTAIR

El record-name tiene que estar asociado al fichero definido en la SD.

RETURN

Equivale a una READ, para leer del fichero del SORT. RETURN file-name RECORD -----[INTO identifier] ---AT END imperative-statement -----[END-RETURN] ---------Transfiere registros desde la fase final del sort o merge a la OTPUT PROCEDURE. Solo se puede usar en la SORT OUTPUT PROCEDURE El file-name tiene que estar definido en la SD

SORT-RETURN

Equivale al return-code. Sort-return PIC S9(4).

CLAUSULA OCCURS

FUNCION: Permitir simplificar las inscripciones de campos de datos que se repiten con la misma descripcion. FORMATO 1: --------OCCURS ------

entero TIMES

Entero indica el numero de veces que se repite un campo con la misma descripcion; su valor tiene que ser mayor que cero. EJEMPLO. Se dispone de una cinta magnetica grabada con un solo registro de 3254 caracteres cuyo contenido es el siguiente: /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 36 de 55

Maual de COBOL II

Proyecto ALTAIR

- Un campo de seis caracteres alfabeticos en los que figura el nombre de la empresa. - Un campo de ocho caracteres alfanumericos en el que figura el modelo de automovil fabricado. - 1080 campos de tres caracteres numericos cada uno, cuyo contenido es el numero diario de automoviles fabricados durante los a¤os 1971, 72 y 73 (los meses se consideran de 30 dias). Se quiere, partiendo del formato de dicho registro, que el programador haga la descripcion del mismo: 01 REGISTRO-AUTOS. 02 NOMBRE PICTURE A(6). 02 MODELO PICTURE X(8). 02 DIARIA1 PICTURE 999. 02 DIARIA2 PICTURE 999. 02 DIARIA3 PICTURE 999. " " " " " " " " " " " " 02 DIARIA1078 PICTURE 999. 02 DIARIA1079 PICTURE 999. 02 DIARIA1080 PICTURE 999. Como se ve, esta descripcion seria muy laboriosa y necesitaria mucho tiempo el llevarla a cabo, ya que serian necesarias varias hojas de codificacion. Pero teniendo en cuenta que al ser los 1080 campos de la misma longitud, y del mismo tipo los caracteres a almacenar, se puede simplificar la descripcion empleando la clausula OCCURS, sustituyendo la anterior descripcion por la equivalente: 01 REGISTRO-AUTOS. 02 NOMBRE PICTURE A(6). 02 MODELO PICTURE X(8). 02 DIARIA OCCURS 1080 PICTURE 999. - A la descripcion del campo en que entra a formar parte la clausula OCCURS se le da el nombre de tabla. - Al nombre de campo de datos, DIARIA, el cual es comun para los 1080 campos se le denomina: Nombre Generico o Sujeto, y a cada uno de los campos, elementos de la TABLA. - La clausula OCCURS no puede especificarse en una descripcion que lleve nivel 01 o 77.


Maual de COBOL II

Proyecto ALTAIR

FORMATO 2: --------OCCURS entero-1 TO entero-2 TIMES DEPENDING ON nombre-de-datos-1 --------------Este formato se emplea cuando el sujeto o nombre generico tiene un numero variable de apariciones. Si en el ejemplo anterior, en vez de haber grabado la cinta con un unico registro conteniendo la produccion de 36 meses, cada uno de treinta dias' se hubieran grabado 36 registros de longitud variable como consecuencia del numero diferente de dias de cada mes; en este caso la descripcion seria: FD ARCHIVO- AUTOS RECORDING V LABEL RECORD OMITTED. 01 REGISTRO-AUTOS. 02 NOMBRE PIC A(6). 02 MODELO PIC X(8). 02 NUMERO-DIAS PIC 99. 02 DIARIA OCURRS 28 TO 31 TIMES DEPENDING ON NUMERO-DIAS PIC 999. A la vista de dicha descripcion, entero-1 representa el numero minimo de apariciones y entero-2 el numero maximo. El valor minimo que puede tomar entero-1 es cero y el valor maximo de entero-2 depende del tipo de compilador utilizado, pudiendo llegar a ser superior a 300.000. Existen compiladores para los que entero-1 es opcional. Siendo correcto describir: 02 MODELO PIC X(8). 02 NUMERO-DIAS PIC 99. 02 DIARIA OCCURS 31 TIMES DEPENDING ON NUMERO-DIAS PIC 999. DEPENDING debe aparecer en la ultima inscripcion de los campos de datos que constituyen el registro y, como consecuencia, nombre-de-datos-1 debe especificarse antes de la descripcion del nombre generico de la clausula OCCURS, cuando forma parte del registro, como se muestra en el ejemplo precedente, ya que no seria correcto escribir: FD ARCHIVO- AUTOS RECORDING V LABEL RECORD OMITTED. 01 REGISTRO-AUTOS. 02 NOMBRE PIC A(6). 02 MODELO PIC X(8). 02 DIARIA OCCURS 28 TO 31 TIMES DEPENDING ON NUMERO-DIAS PIC 999. 02 NUMERO-DIAS PIC 99. por no ser DIARIA el ultimo campo del registro.


Maual de COBOL II

Proyecto ALTAIR

La serie de caracteres de la clausula PICTURE perteneciente a nombre-de-datos-1 debe ser numerica.

FORMATO 3: --------_ _ OCCURS entero-1 TO entero-2 TIMES | DEPENDING ON nombre-de-datos-1 | -----_ ASCENDING _ _ _ --------KEY IS nombre-de-datos-2 | nombre-de-datos-3 |...|... - DESCENDING ---------_ _ _ _ | INDEXED BY nombre-de-indice-1 | nombre-de-indice-2 | ... | |

En este formato incluye a los dos anteriores, a¤adiendo la clausula ASCENDING o DESCENDING, para indicar si los elementos de la tabla estan ordenados en forma ascendente o descendente por uno o varios campos (nombre-de-datos-2, nombre-de-datos-3 ...), que formen parte de dichos elementos. La utilizacion de este formato es obligatoria, por ejemplo, cuando para localizar a un determinado elemento de la tabla, se emplee el metodo de busqueda binaria o dicotomica por medio de la declaracion SEARCH ALL, la cual utiliza como indice para realizar dicha busqueda, al nombre-de-indice que se describe a continuacion de INDEXED BY. Los valores que pueden asignarse a entero-1 y entero-2 son los mismos que los especificados en el Formato-2.

TABLAS

Una TABLA es una serie de datos con el mismo formato dispuestos consecutivamente en memoria. La serie de datos, al tener el mismo formato, se puede describir con un solo nombre. Las tablas se utilizan con mucha frecuencia en programacion ya que permiten, principalmente: - Disponer de una informacion rapida (estan en memoria). - Acceder a un elemento por su posicion relativa. Elemento de tabla es un campo de datos que, en su incluye una clausula OCCURS.


descripcion,

Maual de COBOL II

Proyecto ALTAIR

La declaracion OCCURS especifica el numero de elementos que existen en la tabla. (En una tabla, todas las entradas deben de tener el mismo tama¤o y formato). 01 TABLADIAS. 03 UNDIA OCCURS 7 TIMES PIC X(9). Esta partida establece una tabla de siete elementos cada uno de los cuales tiene nueve caracteres de longitud con lo que la tabla tendra una longitud de 63 (9 x 7) caracteres. Al utilizar la declaracion OCCURS se deben tener en cuenta las siguientes reglas: - OCCURS no aparece en el nivel 01 sino en el nivel mas bajo. - La declaracion PICTURE aparece en el nivel mas bajo. Como hemos dicho, la reserva de memoria para cada uno de los elementos de la tabla se dispone, fisicamente, en forma lineal, es decir, cada elemento se situa inmediatamente a continuacion del anterior. 01 TABLADIAS. 03 UNDIA OCCURS 7 TIMES PIC X(9). Se hace referencia a cada partida de una tabla por medio de un numero, llamado SUBINDICE, que identifica su posicion en esa tabla. Por ejemplo, en la tabla anterior tendriamos: UNDIA(1) = LUNES UNDIA(3) = MIERCOLES El SUBINDICE se utiliza al nivel de la declaracion OCCURS, es decir, "UNDIA(3)", pero no "TABLADIAS(3)".

TABLAS DE LONGITUD VARIABLE

La opcion DEPENDING de la clausula OCCURS define una tabla en la que el numero de sus elementos va variando mientras se lleva a cabo la ejecucion del programa. (Seria el caso, por ejemplo, de una tabla en la que se recogiera la fabricacion de coches en un a¤o por meses y por dias laborales; esta claro que en este caso la tabla podria ser de longitud variable en funcion del numero de dias laborables de cada mes).


Maual de COBOL II

Proyecto ALTAIR

DESCRIPCION DE UNA TABLA

La descripcion de una tabla puede realizarse en la FILE SECTION o en la WORKING-STORAGE SECTION. Para llenar con datos una tabla habra que tener en cuenta que: - Si se describe en la FILE SECTION, el llenado de la misma se hara, normalmente, desde un medio externo: cinta, disco, etc., donde estaran contenidos los datos, por medio de una declaracion READ. - Si se describe en la WORKING-STORAGE SECTION, se llenara, bien con el contenido existente en otros campos de la memoria y/o los resultados producidos durante el proceso, o bien por una declaracion ACCEPT o READ. A las tablas que no se espera que cambien (tabla de constantes) se les puede dar valores en la WORKING-STORAGE SECTION de un programa utilizando la declaracion REDEFINES. 01 TABLAMES. 02 FILLER PIC 02 FILLER PIC 02 FILLER PIC 02 FILLER PIC

X(30) X(30) X(30) X(30)

VALUE VALUE VALUE VALUE

'ENERO FEBRERO MARZO '. 'ABRIL MAYO JUNIO '. 'JULIO AGOSTO SEPTIEMBRE'. 'OCTUBRE NOVIEMBRE DICIEMBRE '.

01 RTABLA REDEFINES TABLAMES. 02 UNMES PIC X(10) OCCURS 12 TIMES: La clausula REDEFINES debe seguir directamente a la partida que redefine y debe estar en el mismo nivel. Puesto que no se puede incluir una clausula VALUE con una declaracion OCCURS, esta es una tecnica util para codificar una tabla de constantes.

TABLAS DE MAS DE UNA DIMENSION

El COBOL tambien permite tablas de dos y tres dimensiones. Una tabla unidimensional podia representar ya sea una lista de nombres de estudiantes o un conjunto de calificaciones para cada uno de los estudiantes, y una tabla tridimensional podrian incluir el nombre de cada alumno y la nota media para cada uno de los meses del curso. Para definir una tabla bidimensional, la clausula OCCURS se utiliza dos veces. La declaracion PICTURE solo se utilizara despues de la ultima OCCURS.


Maual de COBOL II

Proyecto ALTAIR

01 TABLA. 02 ALUM OCCURS 50 TIMES. 03 NOTA OCCURS 10 TIMES PIC 99V99. Con el fin de hacer referencia a una entrada en una tabla bidimensional se necesitan dos subindices ("I" y "J") escritos de la forma (I, J). El primer subindice se refiere a la variable descrita en la primera declaracion OCCURS y debe estar seguido por una coma y un espacio. El segundo subindice se refiere a la variable descrita por la segunda declaracion OCCURS. Una tabla tridimensional se definiria de la siguiente manera: 01 TABLA. 02 ELE1 OCCURS 3 TIMES. 03 ELE2 OCCURS 3 TIMES. 04 ELE3 OCCURS 2 TIMES PIC X(8).

INDEXACION

Con la declaracion OCCURS se puede definir una variable INDICE (INDEX). A esta variable INDICE se le puede dar un valor en una proposicion SET. El indice es muy semejante, en apariencia, al subindice. Cuando se utiliza un indice se puede utilizar una instruccion especial (SEARCH) con la cual se incrementara la variable indice. 01 TABLA. 02 ELE PIC 9(3) OCCURS 20 TIMES INDEXED BY K. Esto define a TABLA con un indice "K". El elemento (ELE) aun puede estar referenciado por medio de subindices. (No se utiliza la clausula PIC para describir a "K").

DECLARACION "SET"

Un indice no puede estar especificado en una instruccion MOVE o en una proposicion aritmetica (ADD, MULTIPLY, etc ...), entonces para asignar un valor a un indice o para igualar el valor de un indice con un nombre de dato se utiliza la declaracion SET.


Maual de COBOL II

Proyecto ALTAIR

nombre-indice-1 nombre-indice-2 nombre-indice-3 SET ... TO identificador-3 identificador-1 identificador-2 literal UP BY identificador SET nombre-indice-1 nombre-indice-2 DOWN BY literal Los nombres de indice siempre deben tener valores entre "1" y el tama¤o de la tabla. El efecto de la declaracion SET es transferir al operando u operandos que siguen a SET el contenido del operando que sigue a la palabra TO, es decir, es una transferencia realizada en sentido contrario a como la realiza la declaracion MOVE. Si se utiliza UP BY o DOWN BY, cada vez que se ejecuta la declaracion SET el contenido de los nombres-de-indice que siguen a dicha declaracion se incrementan (UP BY) o decrementan (DOWN BY) en el valor contenido en el identificador o literal que siga a estas dos opciones. SET INDICE BETA TO SUM. (Indice y Beta pasan a valer SUM). SET INDICE TO 46. (Indice pasa a valer 46). SET INDICE UP BY 2. (Indice se incrementa en 2). 01 TABLA. 02 ELE PIC 99 OCCURS 10 TIMES INDEXED BY K. .................. .................. PROCEDURE DIVISION. SET K TO ZERO. CALCULO. SET K UP BY 1. IF K NOT > N ADD ELE(K) TO TOTAL GO TO CALCULO. .................. ..................

DECLARACION "SEARCH" ==================== Lleva a cabo la busqueda en forma secuencial de una tabla hasta que el contenido de un elemento de la misma satisfaga una determinada condicion.


Maual de COBOL II

Proyecto ALTAIR

_ _ SEARCH identificador | AT END declaracion-imperativa-1 | declaracion-imperativa-2 WHEN condicion-1 NEXT SENTENCE _ declaracion-imperativa-3 _ | WHEN condicion-2 | NEXT SENTENCE La tabla nombrada (identificador) es buscada desde el valor actual del indice (por tanto, si se quiere que la busqueda empiece por el principio de la tabla, se debe inicializar el valor del indice por medio de la declaracion SET). Cuando termina la daclaracion SEARCH, el indice tiene el valor del elemento de la tabla para el cual la condicion es verdadera. Si se desea continuar una busqueda a partir de donde se interrupio se deja ejecutar de nuevo la declaracion SEARCH sin volver a restablecer el indice. El efecto de la declaracion SEARCH es el siguiente: Se incicia una busqueda de la tabla indicada y se prueba la condicion que sigue al primer WHEN, caso de que la prueba resulte cierta se ejecuta la declaracion o delaraciones que siguen a dicha condicion y si no resulta cierta se realiza el mismo proceso para los sucesivos WHEN. Si la prueba resulta falsa para todas las condiciones, el indice se incrementa automaticamente en una unidad para repetir el ciclo con el segundo elemento. Si hecha la prueba de las distintas condiciones con todos los elementos de la tabla no se encuentra alguno que cumpla una de las condiciones, quiere decir que el valor buscado no existe en ningun elemento de la tabla por lo que se da por finalizada la busqueda con lo que pasaria a ejecutar la declaracion que sigue a AT END. Es decir, de una forma mas esquematica, el proceso seria: a) Se prueba cada condicion o condiciones de la opcion WHEN en el mismo orden de su escritura. b) Si no se ha satisfecho ninguna de las condiciones se incrementa el indice de la tabla para poder hacer referencia al siguiente elemento de la misma y se repite el paso a). c) Si despues de la evaluacion se ha satisfecho una de las condiciones que siguen a WHEN, la busqueda concluye pasando a ejecutarse la declaracion imperativa asociada con tal condicion. El indice, en ese momento, contendra el numero del elemento de la tabla que satisfizo la condicion. d) Si se alcanza el final de la tabla sin haber satisfecho ninguna condicion de las que siguen a WHEN, la busqueda concluye pasando a ejecutarse la declaracion imperativa asociada con tal condicion. /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 44 de 55

Maual de COBOL II

Proyecto ALTAIR

Si se omite AT END, la secuencia de ejecucion del programa pasa a la sentencia siguiente. e) Puede suceder que, al comienzo de la busqueda, el valor del indice sea superior al numero maximo de elementos de la tabla, en cuyo caso la busqueda concluye inmediatamente, pasando a ejecutar lo especificado en el caso d). 77 NOM 01 LINEA1. 02 FILLER 02 NOMIN 02 FILLER 02 VENIM

PIC X(10)

VALUE 'JUAN GOMEZ'.

PIC X(20) PIC X(10) PIC X(2) PIC Z.ZZ9

VALUE SPACES. VALUE SPACES. VALUE SPACES. VALUE ZEROS.

01 TABLA. 02 ELEM OCCURS 45 TIMES INDEXED BY I. 03 NOMBRE PIC X(10). 03 VENTA PIC 9(4). ........................... ........................... PROCEDURE DIVISION. ........................... ........................... BUSQUEDA. SET I TO 1. SEARCH ELEMEN AT END GO TO NOEXISTE WHEN NOMBRE(I) = NOM MOVE NOMBRE(I) TO NOMIN MOVE VENTA(I) TO VENIM WRITE ................. GO TO FIN. NOEXISTE. ........................... ...........................

OPCION "VARYING"

Especificando en una declaracion SEARCH la opcion VARYING permite incrementar simultaneamente el indice asociado a la tabla en que se realiza la busqueda y una variable,identificador u otro indice asociado a otra tabla. (Es frecuente el empleo de esta opcion ya que hay trabajos en los que, ademas de buscar en una tabla al elemento que reuna determinadas condiciones, se necesita conocer el numero de orden que ocupa en la misma para, por ejemplo, acceder a otra tabla).


Maual de COBOL II

Proyecto ALTAIR

SEARCH ELEMEN VARYING OTRO AT END ... ----

TABLAS DEFINIDAS CON MAS DE UN INDICE ===================================== En la definicion de una tabla puden utilizarse varios indices. En este caso es necesario conocer cual de esos indices es el que va a utilizar el sistema para la busqueda en la tabla. El empleo de uno u otro indice para realizar la busqueda esta en funcion de que se especifique o no, en la declaracion SEARCH, la opcion VARYING, es decir: a) Si no se especifica la opcion VARYING, la busqueda en la tabla se realizara utilizando el primer indice de los que figuran en la clausula INDEXED BY. b) Si se especifica la opcion VARYING junto con el nombre de uno de los indices que figuran en la clausula INDEXED BY, este sera el que se utilice para realizar la busqueda. c) Puede suceder que en la opcion VARYING se especifique un indice distinto de los que figuran en la definicion de la tabla objeto de la busqueda (por ejemplo, el indice de otra tabla); en este caso la busqueda en dicha tabla se realiza, como en el apartado a), utilizando el primer indice que sigue a INDEXED BY. 01 TABLA. 02 FDIARIA OCCURS 1080 TIMES INDEXED BY I1, I2, I3. 03 AUTOS PIC 9(3). 03 CAMIONES PIC 9(2). ........................ ........................ SET I3 TO 125. SEARCH FDIARIA VARYING I3 AT END GO TO FIN WHEN ...................... (1) ........................ ........................ SET I1 TO 125. SEARCH FDIARIA AT END GO TO FIN WHEN ...................... ........................ ........................

(2)

En (1) se utilizara I3 (de acuerdo con el apartado b)) y en (2) se utilizara I1 (conforme con el apartado a)).


Maual de COBOL II

Proyecto ALTAIR

BUSQUEDA BINARIA ================ La instruccion SEARCH ejecuta una busqueda secuencial, es decir, aun si la partida que se esta buscando esta cercana al final de la tabla, se examinan todas las partidas anteriores hasta que se llega a la que se busca. Este proceso se puede utilizar si los valores de los elementos de la tabla estan en secuencia o si no lo estan. Si las entradas de la tabla estan en secuencia se puede realizar un tipo de busqueda mas eficiente llamada busqueda BINARIA. Una busqueda binaria requiere un campo clave en cada entrada de la tabla. Se busca comprobando primero el valor del campo clave en el punto medio de la tabla. Si el valor que se esta

buscando es mayor, entonces se comprueba el valor del campo clave en el punto medio de la parte superior de la tabla. Y continua haciendo bisecciones en las partes restantes de la tabla hasta que se localiza la clave deseada. La busqueda binaria corta drasticamente el tiempo de acceso para muchas tablas (*). La descripcion de una tabla que procesara una busqueda binaria requiere de una entrada KEY (clave) ademas del indice. 01 TABLA. 02 ELEMEN

PIC 9(4) OCCURS 20 TIMES INDEXED BY I ASCENDING KEY IS CLA.

La KEY (clave) puede ser ASCENDING (ascendente) o DESCENDING (descendente). (*) : El numero maximo de busquedas necesarias para localizar a un elemento de la tabla que contengan un valor determinado se obtiene por la expresion: x x-1 2 > numero de elementos de la tabla > 2 en la que "x" indica el numero maximo de busquedas; es decir, si la tabla contiene 235 elementos, el valor de "x" sera igual a "8" ya que: 8 7 2 > 235 > 2


Maual de COBOL II

Proyecto ALTAIR

DECLARACION "SEARCH ALL" ======================= Esta declaracion permite la busqueda binaria en una tabla descrita con la opcion INDEXED BY. El formato de esta declaracion es el siguiente: SEARCH ALL identificador AT END declaracion-imperativa-1 declaracion-imperativa-2 WHEN condicion NEXT SENTENCE Las direcciones de los elementos de la tabla, a los que se ha de acceder hasta localizar al que contenga un valor determinado, los calcula el sistema automaticamente. No hay que inicializar con un valor el indice con la declaracion SET. El proceso que se sigue en la declaracion SEARCH ALL es el mismo que en la SEARCH, es decir: a) Se prueba cada condicion de la opcion WHEN en el mismo orden de su escritura. b) Si no se ha satisfecho la condicion se incrementa el indice de la tabla para poder hacer referencia al siguiente elemento de la misma y se repite el paso a). c) Si despues de la evaluacion se ha satisfecho la condicion que sigue a WHEN, la busqueda concluye pasando a ejecutarse la declaracion imperativa asociada con tal condicion. El indice, en ese momento, contendra el numero del elemento de la tabla que satisfizo la condicion. d) Si se alcanza el final de la tabla sin haber satisfecho la condicion que sigue a WHEN, la busqueda concluye y, por tanto, si se ha especificado la opcion AT END se ejecutara la declaracion imperativa que sigue a dicha opcion. Si se omite AT END, la secuencia de ejecucion del programa pasa a la sentencia siguiente. Pero, a diferencia de la SEARCH, en la SEARCH ALL se deben de tener en cuenta los siguientes puntos: 1.- Solo puede especificarse una palabra WHEN con una condicion, y esta condicion solo puede ser del tipo de relacion EQUAL TO (=) o compuesta enlazada por el operador logico AND. 2.- Los elementos de la tabla deben estar ordenados en forma ascendente (ASCENDING) o descendente (DESCENDING) por el contenido del campo objeto de la busqueda.


Maual de COBOL II

Proyecto ALTAIR

3.- La variable que sea la KEY (clave) se debe incluir en la condicion. 77 NOM

PIC X(10)

VALUE 'JUAN GOMEZ'.

01 TABLA. 02 ELEM OCCURS 45 TIMES INDEXED BY I ASCENDING KEY NOMBRE. 03 NOMBRE PIC X(10). 03 VENTAS PIC 9(4). ................................... ................................... BUSQUEDA. SEARCH ALL ELEMEN AT END GO TO NOEXISTE WHEN NOMBRE(I) = NOM MOVE NOMBRE(I) TO ... MOVE VENTAS(I) TO ... GO TO FIN.

BUSQUEDA DICOTOMICA MENOR : PRIMER VALOR -1 MAYOR : ULTIMO VALOR +1 I : INDICE

_______ SI | NO | -----| ESTA | -------

______ | ESTA | ------

| | | INICIALIZAR | | MAYOR | | MENOR | -------------| | ___________________________________

| | | | | NO | | | ____________________ | | | | | MAYOR - MENOR | | | I = ------------- | | | 2 | | -------------------| | | | | | TABLA(I) | = . . > __________ | -------------| MOVE I | | . . | TO MAYOR | | BUSQUEDA ---------| | | < | | | __________ | | MOVE I | | | TO MENOR | -----------------------------MAYOR - MENOR = 1


Maual de COBOL II

Proyecto ALTAIR

LITERALES.

Para incluir un apostrofe (') en un literal hay que poner dos. EJEMPLO: 01 LITERAL

PIC x(5) VALUE '''DOS'''.

Si imprimimos, displayamos o preguntamos por este valor obtendremos 'DOS'. 01 LITERAL

PIC x(5) VALUE '''DOS'.

En este caso el resultado sera 'DOS. El doble apostrofe ('') solo ocupa una posicion en el campo (').

FICHEROS ESDS.

SELECT ddname ASSIGN TO AS-ddname (1) ORGANIZATION IS SEQUENTIAL ACCESS MODE IS SECUENTIAL FILE STATUS IS status-file. (1) Si no se especifica AS- la ejecucion cancelara con un FILE STATUS '39'.

FILE STATUS '35'. ___________________ El file status '35' se produce cuando tratamos de leer un fichero VSAM vacio de nueva creacion. Para solucionarlo hay que definirlo como: SELECT OPTINAL ddname ASSIGN... . . FILE STATUS IS st-xxxxxxx. Y aceptar el FILE STATUS '05' que nos devuelve cuando lo abrimos como correcto.


Maual de COBOL II

Proyecto ALTAIR

IF st-xxxxxx = '00' OR = '05' CORRECTO END-IF.

PASAR DATOS EN CICS COBOL II. ______________________________ INSTRUCCION SET: FORMATO 5. _________________________ | | V | >>___SET________identif-4____________TO___identif-6_____________>< |_ADDRESS OF identif-5__| |_ADDRESS OF identif-7_| |______NULL____________| -----Campo receptor-----

-----Campo emisor------

La direccion contenida en el emisor reemplaza el contenido actual del receptor. Identif-4. Debe estar definido como USAGE IS POINTER. Identif-5. Debe ser un area a nivel 01 o 77 en la LINKAGE. Identif-6. No puede contener una direccion de la propia WORKING o FILE SECTION. No puede ser un campo de coma flotante. A_OF identif-7. Pasa la direccion del identif-7, no su contenido. ADDRESS OF... Registro especial. Por cada registro a nivel 01 o 77 de la LINKAGE existe un registro especial ADDRESS OFF. Este registro guarda la direccion del area, si este area esta redefinida la direccion ADDRESS OF sera la misma para todas las definiciones de la misma.

POINTER Un campo pointer es un item elemental no numerico de 4 bytes. Solo puede usarse en: . La instruccion SET. . En una comparacion. . En la USING de una CALL o en la cabecera de la PROCEDURE. Si se quiere mover un puntero a un campo numerico el pointer tendra que redefinirse como PIC S9(8) COMP.


Maual de COBOL II

Proyecto ALTAIR

EJEMPLOS. ___________ WORKING SECTION. 01 APUNTADOR-1 USAGE IS POINTER. 01 RAPUN-1 REDEFINES APUNTADOR-1 PIC S9(8) COMP. LINKAGE SECTION. 01 DFHCOMMAREA. 03 APUN-DIRCOM USAGE IS POINTER. 03 DIRCOM REDEFINES APUN-DIRCOM PIC S9(8) COMP. 01 DATOS-RECIBIDOS. 03 MOVTOS290 03 RETORNO

PIC X(290). PIC X.

COPY CWAAREC. PROCEDURE DIVISION. SET ADDRESS OF DATOS-RECIBIDOS TO APUN-DIRCOM. EXEC CICS ADDRESS CWA(APUNTADOR-1) END-EXEC. SET ADDRESS OF CWAARE TO APUNTADOR-1. EXEC CICS ADDRESS CWA(ADDRESS OF CWAARE) Esta instruccion es END-EXEC. equivalente a las dos anteriores.


Maual de COBOL II

Proyecto ALTAIR

RUTINAS DE CALCULO ************************************

----- NUMERO DE DIAS ENTRE DOS FECHAS ----**************************************************** WORKING-STORAGE SECTION. ******** 01 CAMPOS-NUMERICOS. 03 NUMDIAS PIC S9(5) COMP-3 VALUE +0. 03 CONTANOS PIC S9(5) COMP-3 VALUE +0. 03 D PIC S9(3) COMP-3 VALUE +0. 03 FECHA-DESDE PIC 9(6). 03 FILLER REDEFINES FECHA-DESDE. 05 DD-DESDE PIC 99. 05 MM-DESDE PIC 99. 05 AA-DESDE PIC 99. 03 FECHA-HASTA PIC 9(6). 03 FILLER REDEFINES FECHA-HASTA. 05 DD-HASTA PIC 99. 05 MM-HASTA PIC 99. 05 AA-HASTA PIC 99. ****>>>>>>>> TABLA DE MESES CON DIAS 01 FILLER. 03 T1-DIAS PIC X(48) VALUE '013102280331043005310630073108310930103111301231'. 03 T2-DIAS REDEFINES T1-DIAS OCCURS 12 TIMES. 05 MES PIC 99. 05 DIA PIC 99. PROCEDURE DIVISION. XXXX-CALCULO-DIAS. ****************** MOVE ZEROS MOVE MM-DESDE MOVE AA-DESDE

TO NUMDIAS. TO D. TO CONTANOS.

PERFORM UNTIL CONTANOS = AA-HASTA AND D = MM-HASTA ADD DIA(D) TO NUMDIAS ADD CN-1 TO D IF D > CN-12 MOVE CN-1 TO D /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 53 de 55

Maual de COBOL II

Proyecto ALTAIR

MOVE CN-1 TO CONTANOS END-IF IF CONTANOS = CN-100 MOVE ZEROS TO CONTANOS END-IF END-PERFORM. SUBTRACT DD-DESDE FROM NUMDIAS ADD DD-HASTA TO NUMDIAS. XXXX-CALCULO-DIAS-EXIT. *********************** EXIT.

**************************************************** ----- NUMERO DE MESES ENTRE DOS FECHAS ----**************************************************** WORKING-STORAGE SECTION. ******** 01 CAMPOS-NUMERICOS. 03 MESES PIC S9(3) COMP-3 VALUE +0. 03 CONTANOS PIC S9(3) COMP-3 VALUE +0. 03 FECHA-DESDE PIC 9(6). 03 FILLER REDEFINES FECHA-DESDE. 05 DD-DESDE PIC 99. 05 MM-DESDE PIC 99. 05 AA-DESDE PIC 99. 03 FECHA-HASTA PIC 9(6). 03 FILLER REDEFINES FECHA-HASTA. 05 DD-HASTA PIC 99. 05 MM-HASTA PIC 99. 05 AA-HASTA PIC 99. ****>>>>>>>> TABLA DE MESES CON DIAS 01 FILLER. 03 T1-DIAS PIC X(48) VALUE '013102280331043005310630073108310930103111301231'. 03 T2-DIAS REDEFINES T1-DIAS OCCURS 12 TIMES. 05 MES PIC 99. 05 DIA PIC 99.

PROCEDURE DIVISION. XXXX-CALCULO-MESES. ******************* MOVE ZEROS TO MESES. MOVE AA-DESDE TO CONTANOS. PERFORM WITH TEST BEFORE /opt/scribd/conversion/tmp/scratch2343/41158322.doc Página 54 de 55

Maual de COBOL II

Proyecto ALTAIR

UNTIL CONTANOS = AA-HASTA ADD CN-12 TO MESES ADD CN-1 TO CONTANOS IF CONTANOS = CN-100 SUBTRACT CN-100 FROM CONTANOS END-IF END-PERFORM. ADD MM-HASTA TO MESES. SUBTRACT MM-DESDE FROM MESES. XXXX-CALCULO-MESES-EXIT. ************************ EXIT.

**************************************************** ----- RESTAR UN PERIODO A UNA FECHA ----**************************************************** WORKING-STORAGE SECTION. ******** 01 CAMPOS-NUMERICOS. 03 MESES PIC S9(3) COMP-3 VALUE +0. 03 CONTANOS PIC S9(3) COMP-3 VALUE +0. 03 FECHA-DESDE PIC 9(6). 03 FILLER REDEFINES FECHA-DESDE. 05 DD-DESDE PIC 99. 05 MM-DESDE PIC 99. 05 AA-DESDE PIC 99. 03 FECHA-HASTA PIC 9(6). 03 FILLER REDEFINES FECHA-HASTA. 05 DD-HASTA PIC 99. 05 MM-HASTA PIC 99. 05 AA-HASTA PIC 99. ****>>>>>>>> TABLA DE MESES CON DIAS 01 FILLER. 03 T1-DIAS PIC X(48) VALUE '013102280331043005310630073108310930103111301231'. 03 T2-DIAS REDEFINES T1-DIAS OCCURS 12 TIMES. 05 MES PIC 99. 05 DIA PIC 99.


cobol

Recommend Documents