Problemas REPORT texto plano.

[ppchico]

Hola,

Estoy haciendo un informe en texto plano, y el caso es que me piden una cantidad de datos enorme en el TOP-OF-PAGE, por lo que luego no me salen el resto del informe, y aunque pulse en el botón de siguiente página, no baja.

Alguien tiene alguna pista o idea?

Muchas gracias y un saludo.

[Rodolfo Montiel Rivera]

Mira podrias intentar agregar alguna variable antes de llamar el proceso de la cabecera del reporte y meter los datos de cabecera en subrutinas dentro del top-of-page

Ejemplo

IF var_case = A.

MOVE a TO tipo_cabecera.
PERFORM reporte_A.

ELSE.

MOVE b TO tipo_cabecera.
PERFORM reporte_B.

ENDIF.

***Parte Top of page
TOP-OF-PAGE

FORMAT INTENSIFIED OFF COLOR COL_POSITIVE.

IF tipo_cabecera EQ 'a'.

WRITE: /50 'Titulo 1'.
WRITE: /2 'Nombre'.
WRITE: /2 'Apellido'.
WRITE: /50 'REPORTE A'.

ELSE.

WRITE: /50 'Titulo 1'.
WRITE: /2 'Nombre'.
WRITE: /2 'Apellido'.
WRITE: /2 'Carrera'.
WRITE: /2 'Direccion'.
WRITE: /2 'Telefono'.
WRITE: /2 'ETC'.
WRITE: /2 'ETC'.
WRITE: /50 'REPORTE B'.

ENDIF.

En ese caso puedes mandar 2 cabecera para distinto reporte y cheka que en el reporte B puedo aun meter mas datos que sirvan de cabecera. Cheka el ancho y largo de lo que estas especificando tu reporte en el principio de tu programa tmb puede ir por ahi. OK.

REPORT zreport NO STANDARD PAGE HEADING LINE-SIZE 255 LINE-COUNT 65.

Espero te haya ayudado