ABAP y SAP

REPORT yvpn. DATA: l_cont TYPE i,       l_texto(80),       l_hora(8),       l_tiempo(8),       l_horaini LIKE sy-uzeit,       l_difhora LIKE sy-uzeit. l_horaini = sy-uzeit. DO.   l_difhora = sy-uzeit – l_horaini.   WRITE l_difhora TO l_tiempo.   WRITE sy-uzeit TO l_hora.   WRITE sy-index TO l_texto(5).   concatenate l_texto(5) ‘Hora:’ l_hora ‘Tiempo transcurrido’ l_tiempo               into l_texto separated by space.   CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR’        EXPORTING             text   = l_texto        EXCEPTIONS             OTHERS = 1.   WAIT UP TO 30 SECONDS.   COMMIT WORK AND WAIT. ENDDO. Fuente: https://danielpanaro.wordpress.com/2007/11/14/zvpn-reporte-que-mantiene-activa-una-vpn/

TYPE-POOLS ole2 . DATA : wf_cell_from TYPE ole2_object , wf_cell_from1 TYPE ole2_object , wf_cell_to TYPE ole2_object , wf_cell_to1 TYPE ole2_object , wf_excel TYPE ole2_object , " Excel object wf_mapl TYPE ole2_object , " list of workbooks wf_map TYPE ole2_object , " workbook wf_worksheet TYPE ole2_object , " Worksheet wf_cell TYPE ole2_object , " Cell Range wf_cell1 TYPE ole2_object , wf_range TYPE ole2_object , " Range of cells to be formatted wf_range2 TYPE ole2_object , wf_column1 TYPE ole2_object . " Column to be Autofit DATA : BEGIN OF t_hex , l_tab TYPE x, END OF t_hex . DATA : wf_deli ( 1 ) TYPE c, "delimiter wf_action TYPE i, wf_file TYPE string, wf_path TYPE string, wf_fullpath TYPE string. TYPE