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
Respuesta
 
Herramientas

  #1
Antiguo 8 de junio de 2015, 16:08
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
25.10.2021 19:41
PROCEDURE DIVISION
Posts: 598
Enviado: 274
Recibido: 296
Soluiones: 41
Reputación: 30
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado Falta paréntesis en PERFORM ¿?¿?

Tengo el siguiente trozo de código:

Código COBOL:
  1.                          
  2.      PERFORM VARYING I FROM 1 BY 1 UNTIL I > 8
  3.                      OR I > A
  4.                      
  5.                         PERFORM VARYING II FROM 1 BY 1
  6.                                 UNTIL II > 81
  7.                                       OR FUNCTION UPPER-CASE (WENTCOD(I:1) = LE(II))
  8.                                          CONTINUE
  9.                         END-PERFORM
  10.              .
  11.              .
  12.              .
  13.              .
  14.      END-PERFORM.
  15.      

Y al compilar, me dá el siguiente error:

JMN2700I-S The right parenthesis of the function is not specified. A right parenthesis is assumed

¿Dónde leshes me falta un paréntesis derecho?, ¿alguien lo ve?, y por cierto lo de "assumed" va a ser que no.

Un saludo
Josber no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 8 de junio de 2015, 17:00
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
08.10.2021 16:00
PROCEDURE DIVISION
Posts: 321
Enviado: 106
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Hola Amigo

Código COBOL:
  1. FUNCTION UPPER-CASE ->(WENTCOD(I:1) = LE(II))<-  me parece que sobran los paréntesis externos.

Saludos
Hrmcobol no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Josber ( 8 de junio de 2015)
  #3
Antiguo 8 de junio de 2015, 17:36
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
25.10.2021 19:41
PROCEDURE DIVISION
Posts: 598
Enviado: 274
Recibido: 296
Soluiones: 41
Reputación: 30
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

No Hrm, pero sí que me ha ayudado a encontrar el error, y es que me había ofuscado en ese trozo y no hay como una opinión externa para ver el fallo.

El problema estaba en que FUNCTION UPPER-CASE, lleva entre paréntesis la variable, (o constante), que quieres convertir así que lo que no puede ir dentro es el operador de relación ...


Código COBOL:
  1.      PERFORM VARYING I FROM 1 BY 1 UNTIL I > 8
  2.                      OR I > A
  3.                      
  4.                         PERFORM VARYING II FROM 1 BY 1
  5.                                 UNTIL II > 81
  6.                                       OR FUNCTION UPPER-CASE (WENTCOD (I:1)) = LE (II)
  7.                                          CONTINUE
  8.                         END-PERFORM
  9.                        
  10.              .
  11.              .
  12.              .
  13.      END-PERFORM.

ëste es el correcto.

Me da hasta verguenza el tener estos fallos ... a mis años ... :o :o

Un saludo
Josber no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 8 de junio de 2015, 20:55
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
08.10.2021 16:00
PROCEDURE DIVISION
Posts: 321
Enviado: 106
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Tranqui Amigooo !!! Somos todos Iguales !!!


Saludos !!
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 9 de junio de 2015, 09:15
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
25.10.2021 17:30
PROCEDURE DIVISION
Posts: 1.843
Enviado: 590
Recibido: 775
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

Josber, no pasa nada compi, pese la imagen de entendido que tengo, a mi me han pasado cosas peores... Cuando las neuronas se te reúnen en la nuca, despues de 74 horas de trabajo, pasan cosas así, que no ves algo muy simple...



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
Respuesta

Tags
function upper-case


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 02:15.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.