Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Ordenar fichero con comando Sort Begoguay PowerCOBOL (ActiveX, v4 - v11) 4 14 de noviembre de 2016 09:43
[Información] Leer archivo AcuCobol con PowerCobol Roger PowerCOBOL (ActiveX, v4 - v11) 7 28 de septiembre de 2016 09:44
[Sintaxis] Leer archivo texto con codificacion UTF-8 Recato53 PowerCOBOL (ActiveX, v4 - v11) 1 18 de abril de 2016 09:47
[Sintaxis] Ejecutar comando DOS Ciro PowerCOBOL (ActiveX, v4 - v11) 6 6 de febrero de 2016 05:56
[Noticia] Comando Impresion serial Roger PowerCOBOL (ActiveX, v4 - v11) 3 20 de enero de 2016 17:01
Respuesta
 
Herramientas

  #1
Antiguo 19 de septiembre de 2016, 18:56
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Bombilla 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:
  1. MOVE NOMBRE TO DESCRIPCION-AR.  
  2. START ARTIC KEY NOT < DESCRIPCION-AR INVALID KEY
  3.        GO LEE.
  4.  LEE. READ ARTIC NEXT AT END GO FIN.

NO MUESTRA NADA.

SI LOS NOMBRES ESTAN EN MAYUSCULA SI FUNCIONA.:o
Roger no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 19 de septiembre de 2016, 23:14
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

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

Código COBOL:
  1. CALL "CBL_TOLOWER" USING string BY VALUE length RETURNING status-code.

Pode ser que resolva.
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 20 de septiembre de 2016, 19:01
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Rapinto
No pude hacer funcionar con el CBL_TOLOWER
asi que no me quedo otra que hacer una bucle.
Roger no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 20 de septiembre de 2016, 22:37
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
27.10.2021 12:30
PROCEDURE DIVISION
Posts: 1.847
Enviado: 592
Recibido: 780
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 20 de septiembre de 2016, 23:23
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

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

Un saludo,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 21 de septiembre de 2016, 15:54
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

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.
Roger no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
fichero , indexado , read , start


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 13:14.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.