Es común que para trabajar con nuestros clientes utilicemos una VPN (Red privada virtual) para conectarnos.
Muchas veces cuando no hay actividad, la VPN se cae. Para evitarlo podemos dejar corriendo el siguiente reporte en otro modo.
REPORT zvpn.
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/
