WORKING STORAGE definiendo variables. Consultorio Cobol. Las variables que se usan en un programa cobol deben haber sido previamente definidas en la WORKING STORAGE SECTION. Existen diferentes tipos de variables en cobol. Page 1. ML295x Series Manual del usuario Bsica imagine the possibilities Esta gua contiene informacin relativa al proceso de instalacin, funcionamiento. Ayuda. Puede acceder a la Ayuda mientras explora Lotus Notes. Pulse F1 usuarios de Macintosh OS X ComandoMays usuarios de Linux CtrlF1 para abrir la ayuda. El C. P. Ren Galeana Salgado, Rector de la UTCGG, clausur formalmente los trabajos del curso de capacitacin con fines de acreditacin en Community Manager. Defiende tu posicin. Algunas personas evitan el uso de un lenguaje fuerte en el trabajo porque temen que sea contraproducente, pero la verdad es que hay una gran. La Biblia nos otorga la posibilidad de discernir los tiempos del Apocalipsis. La profeca est dada con un solo objetivo final Para llamar a la reflexin y a la. Trabajos relacionados. Sistemas operativos Componentes de una PC. La Tarjeta Madre. El Procesador. Tipos de procesadores. Memoria Cache. Partes de la Tarjeta Madre. Las variables que se usan en un programa cobol deben haber sido previamente definidas en la WORKINGSTORAGE SECTION. Existen diferentes tipos de variables en cobol. Cada variable que definamos debe terminar con un punto. Si la variable va a tener un valor inicial lo indicaremos con la clusula VALUE. Alfanumricas se indican con un PIC Xnmero de caracteres. Manual De Bienvenida Para La Empresa Ibm' title='Manual De Bienvenida Para La Empresa Ibm' />Podrn tener como valores nmeros y letras. WX VARIABLE ALFNUM PIC X1. VALUE LOQUESEA1. Numricas normales se indican con un PIC 9nmero de dgitos. Slo tendrn valor numrico. La V indica la coma decimal. WX VARIABLE NUM PIC 95V92 VALUE 1. Numricos comprimidos se indican con un PIC 9nmero de dgitos COMP 3. Slo valores numricos. Estas variables ocuparn, en espacio, menos que un numrico normal. Manual De Bienvenida Para La Empresa Ibm' title='Manual De Bienvenida Para La Empresa Ibm' />El clculo de longitudes lo veremos ms adelante. La S indica que lleva signo decimal que puede ser positivo o negativo. WX VARIABLE COMP3 PIC S95V92 COMP 3 VALUE 1. Nombre completo Carlos Fernndez. Presentacin. Soy el fundador de Dataprix, y doy la bienvenida a todos los visitantes del portal, y os animo a registraros y. Informacin confiable de Comunicacin interna y externa de la empresa Encuentra aqu ensayos resmenes y herramientas para aprender historia. Numricos hexadecimales se indican con un PIC 9nmero de dgitos COMP. Slo valor numrico. OJO Aceptan letras porque el nmero va en formato hexadecimal, pero eso no significa que podamos informarlas con caracteres alfabticos. WX VARIABLE COMP PIC 95V92 COMP VALUE 1. Editados se indican con la clusula PIC seguida por tantas zetas Z como necesitemos. Se utilizan para dar formato a campos numricos. WX VARIABLE EDI PIC Z. ZZZ. ZZ9,9. 9. Esto equivaldra a un campo numrico PIC S97V92. El ltimo dgito antes de la coma decimal se indica con un 9 para que aparezca el valor numrico del 0 al 9. Las Zs sustituirn los ceros 0 a la izquierda por espacios. WX VARIABLE NUM PIC S97V92 VALUE 0. WX VARIABLE EDI PIC Z. ZZZ. ZZ9,9. 9DISPLAY WX VARIABLE NUM WX VARIABLE NUMMOVE WX VARIABLE NUM TO WX VARIABLE EDIDISPLAY WX VARIABLE EDI WX VARIABLE EDIEl resultado sera WX VARIABLE NUM 0. OWX VARIABLE EDI     1. Si queremos que el signo aparezca pegado al nmero, podemos definir el campo editado de la siguiente manera 0. WX VARIABLE EDI PIC. Para que se muestre como 1. Ahora que sabemos definir variables, vamos a ver que las variables pueden estar definidas en diferentes niveles. Estos niveles vienen indicados por un nmero a la izquierda 0. WX INFORMACION PERSONA. WX NOMBRE    PIC X1. WX APELLIDO1 PIC X1. WX APELLIDO2 PIC X1. WX DIRECCION. 1. WX CALLE  PIC X1. WX NUMERO PIC 93. WX PISO   PIC 92. Y as sucesivamente. Si tenemos algn subnivel que sea una constante, en lugar de ponerle nombre al campo podemos utilizar la clusala FILLER 0. WX FECHA. 0. 5 WX DIA PIC 92. FILLERPIC X VALUE. WX MES PIC 92. FILLERPIC X VALUE. WX ANO PIC 94. La diferencia del FILLER con un campo con nombre, es que el FILLER no se puede utilizar para mover la informacin que contenga. Es un campo fijo la traduccin sera RELLENO que no se puede informar a no ser que informsemos el nivel superior y nos cargsemos todo, claro. El resultado del campo informado sera por ejemplo Fecha 0. Existe una forma de definir variables con dos o ms tipos de formato PIC distintos. Se trata de la clusula REDEFINES. Se suele utilizar para evitar mover campos alfanumricos a numricos, o bien para agrupar un campo que tenga subniveles 0. WX CAMPO1 PIC X3. WX CAMPO2 REDEFINES WX CAMPO1 PIC 93. WX CAMPO1. 0. 5 WX SUBCAMPO1 PIC X3. WX SUBCAMPO2 PIC 95. WX CAMPO2 REDEFINES WX CAMPO1 PIC X8. IMPORTANTE slo se pueden redefinir campos que estn al mismo nivel, es decir, para redefinir un campo de un nivel 0. Tambin podemos definir tablas o arrays 0. WX TABLA INTERNA OCCURS 5 TIMES. WX CAMPO1 PIC X VALUE A. WX CAMPO2 PIC X VALUE B. De tal manera que el conjunto de los campos 1 y 2 se repiten 5 veces ABABABABABExisten otro tipo de niveles que son los niveles 8. WX RESPUESTA   PIC X. RESPUESTA SI      VALUE S. RESPUESTA NO      VALUE N. De tal forma que la variable WX RESPUESTA podr tomar los valores S N segn queramos. Para hacer que la variable tome un valor SET RESPUESTA SI TO TRUE    tomar el valor S. SET RESPUSETA NO TO TRUE    tomar el valor N. Imaginemos que tenemos una serie de campos que definen la estructura de un fichero. Si tenemos varios programas que usan ese fichero, tendremos que escribir esos campos tantas veces como programas tengamos. Para ahorrarnos trabajo tenemos la clusula COPY. Una COPY es un trozo de cdigo cobol que puede contener la definicin de variables COPY de WORKING o una parte del cdigo del programa COPY de PROCEDURE COPY WORKINGSe incluirn dentro de la WORKING STORAGE. COPY WSCOPY. Donde WSCOPY contendr algo de este estilo 0. WX WSCOPY. 0. 5 WX CAMPO1 PIC X5. WX CAMPO2 PIC X5. WX CAMPO3 PIC X5. WX CAMPO4 PIC X5. COPY PROCEDURESe incluirn dentro de la PROCEDURE DIVISION. COPY PDCOPY. Donde PDCOPY contendr algo de este estilo MOVE WX CAMPO1 TO WX REGISTRO1. MOVE WX CAMPO2 TO WX REGISTRO2. MOVE WX CAMPO3 TO WX REGISTRO3. MOVE WX CAMPO4 TO WX REGISTRO4. MOVE WX CAMPO5 TO WX REGISTRO5. CLCULO DE LONGITUDESNumricos y alfanumricos lo que venga indicado en el PIC Xn PIC 9n respectivamente. WX VARIABLE ALFNUM PIC X5. WX VARIABLE NUM    PIC 95. Numricos COMP 3 si tenemos un PIC 9n COMP 3, la longitud ser n12. Si el resultado tiene decimales redondeamos hacia arriba. Hay que tener en cuenta que la coma decimal no ocupa espacio, y que el signo ocupa slo media posicin. WX VARIABLE COMP3 PIC S95 COMP 3. How To Install Infopath Forms Services On Sharepoint 2007 Image. Numricos COMP Un campo con PICTURE numrica y COMP se almacena en formato binario puro base 2 el signo lo representa el bit de la derecha. El nmero de bytes que se reservan en memoria para cada campo es 2 posiciones para nmeros de 1 a 4 dgitos. WX VARIABLE COMP PIC 95 COMP. VISUALIZANDO CAMPOSComo ya hemos comentado, existen campos en cobol q no se ven tal cual, como son los comprimidos o los hexadecimales. Vamos a ver como se veran en un fichero estos campos 1 2 3 4. S FFFFFFFFF4. 44. FFFFF0. 0E2. 99. 99. C0. 00. 00. 00. 00. El campo que va de la posicin 1 a la 9 sera un campo numrico normal con valor 9. El campo que va de la posicin 1. El campo que va de la posicin 2. COMP 3 con valor 9. C, letra D para negativos. El campo que va de la posicin 2. El campo que va de la posicin 3. El campo que va de la posicin 3. COMP con valor 1. E2. 22 en hexadecimal 1. Para campos numricos con signo del tipo S93V9. A 1. B 2. C 3. D 4. E 5. F 6. G 7. H 8. I 9. J 1. K 2. L 3. M 4. N 5. O 6. P 7. Q 8. R 9 0 0. En el prximo artculo veremos la PROCEDURE DIVISION, donde se codifica la miga del programa. Veremos como informar campos, como inicializarlos y como codificar bucles y condiciones.