Cobol Foro - [Duda] Leer con comando START

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Leer con comando START (https://www.cobolforo.es/showthread.php?t=482)

Roger

19 de septiembre de 2016 19:56

Leer con comando START

Amigos del Foro
Tengo un archivo donde la llave principal es el nombre pero esta esta en minuscula cuando pongo este codigo

Código COBOL:

MOVE NOMBRE TO DESCRIPCION-AR.  
START ARTIC KEY NOT < DESCRIPCION-AR INVALID KEY
       GO LEE.
 LEE. READ ARTIC NEXT AT END GO FIN.

NO MUESTRA NADA.

SI LOS NOMBRES ESTAN EN MAYUSCULA SI FUNCIONA.:o

Rapinto

20 de septiembre de 2016 00:14

Roger,
Se tentasses o start e por "invalid key" usavas o CBL_TOLOWER e fazias novo start.

Código COBOL:

CALL "CBL_TOLOWER" USING string BY VALUE length RETURNING status-code.

Pode ser que resolva.
Rui Pinto

Roger

20 de septiembre de 2016 20:01

Rapinto
No pude hacer funcionar con el CBL_TOLOWER
asi que no me quedo otra que hacer una bucle.:llora:

Kuk	20 de septiembre de 2016 23:37

Roger, en general no es buena idea meter en la clave alfanuméricos y además que no sean mayúsculas.

¿De qué compilador estamos hablando?

Rapinto

21 de septiembre de 2016 00:23

Roger,
Tens que incluir a: F3BICBLR.LIB (está na pasta Programs\Fujitsu Cobol

Un saludo,
Rui Pinto

Roger

21 de septiembre de 2016 16:54

Kuk, Rapinto
El compilador es el powercobol9, la llave principal es alfanumerica porque
es del codigo de barras internas y la llave alterna es el nombre.

Estoy leyendo el archivo por la llave alterna si pongo de comienzo a fin
sale primero ninusculas y luego mayusculas.

Pero el Start no funciona probare nuevamente con las indicaciones de Rapinto.

La franja horaria es GMT +2. Ahora son las 00:23.