Foro de programación ABAP

Código abierto => Reports => Mensaje iniciado por: molaci en 26 de Marzo de 2015, 09:21:32 am

Título: Programa que mantiene activa una VPN
Publicado por: molaci en 26 de Marzo de 2015, 09:21:32 am
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/ (https://danielpanaro.wordpress.com/2007/11/14/zvpn-reporte-que-mantiene-activa-una-vpn/)