Roger, hice los cambio que me indicas y funciono ok
solo me queda un detalle, la impresión en COBVIEW el dato GLOSA que tiene un PIC (500)
me imprime en una sola linea.
¿ tendré que REDEFINES el dato glosa para que pueda imprimir lo suficiente por linea ?
ejemplo
Código COBOL:
03 T-GLOSA PIC X(500).
03 T-GLOSA-R REDEFINES T-GLOSA.
05 GLOSA1 PIC X(132).
05 GLOSA2 PIC X(132).
05 GLOSA3 PIC X(132).
05 GLOSA4 PIC X(104).
¿ hay otra forma de hacer ?