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:
01 CAMPOS-W global.
03 I pic 99.
03 J pic 99.
03 K pic 9(7).
03 M pic 99.
03 X pic 99.
03 IM pic 99.
03 IM-ant pic 99.
03 pow-w pic 9.
Código COBOL:
[procedure]
perform varying I from 1 by 1 until I > 12
move pow-on to POW-TRANSPARENT OF RE-MES (I)
move pow-on to POW-TRANSPARENT OF BT-MES-ARC (I) <--error
if tm-Num-Reg (I) = zero *> TB-ARCHIVO-MES
move POW-BLACK to POW-TEXTCOLOR OF BT-MES-ARC (I)
else
move POW-DARKBLUE to POW-TEXTCOLOR OF BT-MES-ARC (I)
end-if
end-perform