Encabezado reporte ALV

[nikolaprida]

hola necesito hacer un ALV_GRID y en un top of list que salga un titulo centrado, probe de muchas formas pero no lo puedo lograr este es el codigo del encabezado
FORM cabecera.
* rutina que cumple la funcion de completar los datos del encabezado de cada pagina del reporte.
DATA cabecera TYPE slis_t_listheader.
DATA wa_cabecera TYPE slis_listheader.
DATA var TYPE slis_listheader-info.
data lv_pag(10) type c.
data lv_npag(10) type c.
data num_pages_c(10) type c.

WRITE SY-PAGNO TO NUM_PAGES_C LEFT-JUSTIFIED.

DO SY-PAGNO TIMES.
READ LINE 2 OF PAGE SY-INDEX.
REPLACE '*****' WITH NUM_PAGES_C INTO SY-LISEL.
MODIFY LINE 2 OF PAGE SY-INDEX.
ENDDO.

CLEAR wa_cabecera.
lv_pag = sy-pagno.
lv_npag = num_pages_c.
CONCATENATE lv_pag '/' lv_npag into var .
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.

WRITE var TO wa_cabecera-info RIGHT-JUSTIFIED NO-GROUPING.
APPEND wa_cabecera TO cabecera.



CLEAR wa_cabecera.
var = text-002.
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.
WRITE var TO wa_cabecera-info CENTERED NO-GROUPING.

APPEND wa_cabecera TO cabecera.

CLEAR wa_cabecera.
var = text-003.
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.
WRITE var TO wa_cabecera-info CENTERED NO-GROUPING.

APPEND wa_cabecera TO cabecera.


CLEAR wa_cabecera.
CONCATENATE text-004 ' ' gv_gjahr INTO var.
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.
WRITE var TO wa_cabecera-info NO-GROUPING.
APPEND wa_cabecera TO cabecera.

CLEAR wa_cabecera.
CONCATENATE text-005 ' ' gv_paval INTO var.
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.
WRITE var TO wa_cabecera-info NO-GROUPING.
APPEND wa_cabecera TO cabecera.

CLEAR wa_cabecera.
CONCATENATE text-006 ' ' gv_butxt INTO var.
wa_cabecera-key = ''.
wa_cabecera-typ = 'S'.
WRITE var TO wa_cabecera-info NO-GROUPING.
APPEND wa_cabecera TO cabecera.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = cabecera.

ENDFORM. "cabecera