Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL v3 (V3L10, Win32)
PowerCOBOL v3 (V3L10, Win32) IDE Freeware compatible con Windows 7/8/10/11
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Mostrar 2 variables de un archivo JonathanDemons_123 COBOL - General 1 20 de enero de 2024 11:33
[Compilador] Longitud de variables al compilar Begoguay COBOL - General 4 19 de enero de 2023 13:59
[Sintaxis] Longitud Variables Recato53 Fujitsu COBOL 3 13 de junio de 2020 21:54
[Sintaxis] Error sintaxis ADODB Mariadb variables host dmosca PowerCOBOL (ActiveX, v4 - v11) 17 29 de julio de 2017 00:19
[Sintaxis] Variables SET en ficha SYSIN Kuk JCL y utilidades 0 26 de febrero de 2015 14:12

Respuesta

  #1
Antiguo 13 de agosto de 2024, 06:59
Tigre
Forero Junior
Última Actividad 29.08.2026 06:59
Posts Posts: 7
Likes enviados Enviados: 89
Likes recibidos Recibidos: 1
Predeterminado Diagnostica error para ciertas variables
0 Inactivo Inactivo

Se invalida la variable "I", utilizada en la instrucción marcada (<-- error). Igual ocurre con las instrucciones que utilizan las variables "IM", "IM-ant", pow-w, mientras acepta otras variables similarmente codificadas, e igualmente utilizadas en otros programas. (Lo único que no he hecho es lo que ustedes me digan). Gracias.

** DIAGNOSTIC MESSAGE **
... 794: F5BA0702I-E USER-DEFINDED WORD "I" NOT FOUND. UNDEFINED OR DEFINED IN COPY STATEMENT.
... 794: F5BA0203I-E CLASS VARIABLE ERROR 'SUBSCRIPT OF MEMBER' IGNORED.
... 794: F5BA0302I-E METHOD DEFINITION NOT FOUND.

[working]
Código COBOL:
  1. 01  CAMPOS-W    global.
  2.     03  I           pic 99.        
  3.         03  J           pic 99.
  4.     03  K       pic 9(7).
  5.     03  M       pic 99.
  6.     03  X       pic 99.
  7.     03  IM      pic 99.
  8.     03  IM-ant      pic 99.
  9.     03  pow-w       pic 9.
Código COBOL:
  1. [procedure]
  2.         perform     varying     I   from 1 by 1 until I > 12
  3.                     move        pow-on      to  POW-TRANSPARENT OF  RE-MES      (I)
  4.                     move        pow-on      to  POW-TRANSPARENT OF  BT-MES-ARC  (I)   <--error
  5.                     if          tm-Num-Reg (I)  = zero                          *>  TB-ARCHIVO-MES             
  6.                                 move        POW-BLACK       to  POW-TEXTCOLOR   OF  BT-MES-ARC  (I)    
  7.                     else
  8.                                 move        POW-DARKBLUE    to  POW-TEXTCOLOR   OF  BT-MES-ARC  (I)                            
  9.                     end-if         
  10.              end-perform
Tigre is offline   Responder Con Cita
  #2
Antiguo 14 de agosto de 2024, 17:33
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola:

Nunca he usado power3, no conozco sus mensajes de error. Pero si solamente te lo da en BT-MES-ARC buscaría si está bien hecha la definición del array de ese objeto,

Saludos.

Fito...
Fito is offline   Responder Con Cita
Respuesta


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

Saltar a Foro


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