Ayuda con búsqueda en un arreglo (tabla) en Cobol
Publicado por Nomad (1 intervención) el 18/08/2009 16:24:26
Hola a todos !... trabajo desde hace un tiempo con Cobol, y me he topado con un problema que aun no he podido resolver y espero alguien me pueda ayudar. Laso a describir mi problemática:
Tengo que armar un arreglo (o tabla), de 1 fila x 10 columnas. Dentro de este arreglo, llamado EVAL, tengo que realizar una búsqueda de un valor, que no sé en qué campo puede estar, para luego rescatar el valor del campo que le precede. He estado leyendo acerca del verbo SEARCH, pero al parecer no me serviría puesto que debo indicarle explícitamente el valor que quiero comparar, con el nombre de alguno de los campos del arreglo (en la instrucción WHEN).
Aquí intentaré graficar mi problemática:
EVAL
cpo 1 cpo 2 cpo 3 cpo 4 cpo 5 cpo 6 cpo 7 cpo 8 cpo 9 cpo 10
------------------------------------------------------------------------------------------------------------------
| A | 10 | B | 20 | C | 30 | D | 40 | E | 50 |
------------------------------------------------------------------------------------------------------------------
En mi programa, en una variable voy a recibir un valor, y debo buscarlo en EVAL. Por ejemplo, si dicha variable tiene como valor D, entonces debo buscar esta "D" en el arreglo, para, en caso de existir, rescatar el valor 40 (que le precede). Si utilizo el comando SEARCH, en el WHEN deberé indicarle qué campo comparar, por lo que no me sirve este último.
AGRADECERÉ MUCHO si alguien me presta algo de ayuda en este problema.
Muchas Gracias !
Tengo que armar un arreglo (o tabla), de 1 fila x 10 columnas. Dentro de este arreglo, llamado EVAL, tengo que realizar una búsqueda de un valor, que no sé en qué campo puede estar, para luego rescatar el valor del campo que le precede. He estado leyendo acerca del verbo SEARCH, pero al parecer no me serviría puesto que debo indicarle explícitamente el valor que quiero comparar, con el nombre de alguno de los campos del arreglo (en la instrucción WHEN).
Aquí intentaré graficar mi problemática:
EVAL
cpo 1 cpo 2 cpo 3 cpo 4 cpo 5 cpo 6 cpo 7 cpo 8 cpo 9 cpo 10
------------------------------------------------------------------------------------------------------------------
| A | 10 | B | 20 | C | 30 | D | 40 | E | 50 |
------------------------------------------------------------------------------------------------------------------
En mi programa, en una variable voy a recibir un valor, y debo buscarlo en EVAL. Por ejemplo, si dicha variable tiene como valor D, entonces debo buscar esta "D" en el arreglo, para, en caso de existir, rescatar el valor 40 (que le precede). Si utilizo el comando SEARCH, en el WHEN deberé indicarle qué campo comparar, por lo que no me sirve este último.
AGRADECERÉ MUCHO si alguien me presta algo de ayuda en este problema.
Muchas Gracias !
Valora esta pregunta
0