1.Alv FUNCIONES (TOP_OF_Page) Impresion BATCH

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = ls_repid
i_structure_name = 'GTD_AUFK_AFPO'
i_callback_pf_status_set = 'SET_STATUS'
i_callback_user_command = 'USER_COMMAND_000'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = gwa_layout
it_fieldcat = gtd_fieldcat[]
TABLES
t_outtab = gtd_aufk_afpo
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---------------------------------------------------------------------*
* FORM top_of_page *
*---------------------------------------------------------------------*
* Utilizado en el proceso en batch
*---------------------------------------------------------------------*
FORM top_of_page.
DATA: ls_text TYPE string,
ls_date(10) TYPE c,
ls_hora(10) TYPE c,
ls_util TYPE string.
* Titulo y subtitulo
ls_text = text-c01.
WRITE: 30 ls_text.
IF p_test EQ 'X'.
ls_text = text-c02.
ELSE.
ls_text = text-c03.
ENDIF.
WRITE /45 ls_text.
* Fecha
WRITE p_budat TO ls_date.
CONCATENATE text-c04 ls_date INTO ls_text SEPARATED BY space.
WRITE: / ls_text.
* Usuario
ls_util = sy-uname.
CONCATENATE text-c05 ls_util INTO ls_text SEPARATED BY space.
WRITE: 80 ls_text.
* Año y periodo
CONCATENATE p_gjahr '/' p_perio INTO ls_util.
CONCATENATE text-c06 ls_util INTO ls_text SEPARATED BY space.
WRITE / ls_text.
* Hora
WRITE: sy-datum TO ls_date,
sy-uzeit TO ls_hora.
CONCATENATE ls_date '/' ls_hora INTO ls_util.
CONCATENATE text-c07 ls_util INTO ls_text SEPARATED BY space.
WRITE 80 ls_text.
ENDFORM.