Cabecera en CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

[mendocar]

Amigos, deseo imprimir titulos en el mètodo CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

El còdigo que tengo es como sigue, que me falta o que me sobra?
Gracias.

* perform alv_events.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
is_layout = gs_layout
i_callback_top_of_page = 'ALV_TOP_OF_PAGE_LIST'
is_variant = variant
i_save = 'A'
* it_events = gt_events
* i_default = 'X'
CHANGING
IT_OUTTAB = TI_REP[]
IT_FIELDCATALOG = GT_FIELDCAT.

FORM alv_events.
DATA: ls_event TYPE slis_alv_event,
gt_events LIKE ls_events occurs 0.
*ti_bsas like bsas occurs 0 with header line.
CLEAR gt_events.
REFRESH gt_events.
CLEAR ls_event.
ls_event-name = slis_ev_top_of_page. "Evento de principio de pagina
ls_event-form = 'ALV_TOP_OF_PAGE_LIST'. "Subrutina que muestra la cab.
APPEND ls_event TO gt_events. "Lo añado a la variable global
ENDFORM. "alv_events

FORM ALV_TOP_OF_PAGE_LIST.
DATA: header TYPE slis_t_listheader,
wa TYPE slis_listheader,
vl_fecha(10) TYPE c,
vl_hora(8) TYPE c.
* Formatear fecha y hora
WRITE sy-datum TO vl_fecha.
WRITE sy-uzeit TO vl_hora.
* Datos de cabecera
wa-typ = 'H'.
wa-info = 'DETRACCIONES'.
APPEND wa TO header.
wa-typ = 'S'.
wa-key = 'Fecha de Ejecución:'.
wa-info = vl_fecha.
APPEND wa TO header.
wa-typ = 'S'.
wa-key = 'Hora de Ejecución:'.
wa-info = vl_hora.
APPEND wa TO header.
wa-typ = 'S'.
wa-key = 'Usuario:'.
wa-info = sy-uname.
APPEND wa TO header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
* it_list_commentary = header_alv.
it_list_commentary = header.
ENDFORM.

[mendocar]

Encontrè la soluciòn.
agregar
gs_layout-grid_title = 'titulo' o
gs_layout-grid_title = 'titulo'(100) (el nro. 100 representa el nro. colocado en (pasar a - Elementos de texto - Simbolo de texto)
Le darà prioridad al simbolo de texto si le ponen los dos

Sin embargo requiero agregar una lìnea màs al tìtulo del informe visualizado en pantalla. Alguna sugerencia?
Gracias.

[arrova]

Puedes agregarle mas funcionalidad al titulo.

gs_layout-zebra = 'X'. " Alternar color de líneas
gs_layout-smalltitle = 'X'. " Tamaño título
gs_layout-grid_title = txttit. " Texto de título

No creo que te deje agregar mas de 100 caracteres.