Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL v3 (V3L10, Win32) (https://www.cobolforo.es/forumdisplay.php?f=5)
-   -   [Compilador] Diagnostica error para ciertas variables (https://www.cobolforo.es/showthread.php?t=1786)

Tigre 13 de agosto de 2024 06:59

Diagnostica error para ciertas variables
 
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

Fito 14 de agosto de 2024 17:33

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...


La franja horaria es GMT +2. Ahora son las 02:29.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.