Ayuda
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
__________________
01010000
01001010
10011000
10100001
De Byte a Beat.
|