Autor Tema: Programa que mantiene activa una VPN  (Leído 1009 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado molaci

  • Usuario Sr.
  • ****
  • Mensajes: 113
    • Ver Perfil
Programa que mantiene activa una VPN
« 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/