Para la impresión por cobview no tienes que redefinir
Código COBOL:
01 RENGLON0.
02 FILLER PIC X(08) VALUE "<COL #1>".
02 GLOSA-S PIC X(2000).
PROCEDURE DIVISION.
MOVE DATOS-HIS TO GLOSA-S.
MOVE RENGLON0 TO LINEA.
WRITE REG-REPORTE.
trata en lo posible de escribir a la medida de una cara del tamaño A-4