Comment éviter d'être déconnecté quand vous utilisez une connexion à distance de type VPN pour vous connecter à votre AS/400 ?

Au bout de quelques minutes sans trafic, vous êtes souvent déconnecté du serveur en laissant un job sans écran sur l'AS/400 qui peut éventuellement vous empêcher de vous reconnecter.

Pour éviter cela, il faut que vous connaissiez l'adresse ip de votre micro.

netstat /n sur une ligne dos c'est la 3 ème ligne de la colonne adresse locale en dessous de 127.0.0.1

Ensuite sur l'AS/400 sur lequelle vous vous connectez, il faut écrire un petit cl

PGM
BOUCLE:
PING RMTSYS('votre adresse IP') MSGMODE(*QUIET *ESCAPE) PKTLEN(16) NBRPKT(1) WAITTIME(1)
MONMSG MSGID(cpf0000) CMD(GOTO FIN)
DLYJOB DLY(60)
GOTO BOUCLE
FIN:
ENDPGM

Ensuite, vous n'avez plus qu'à le compiler et à le soumettre quand vous vous connectez.

Attention : si vous êtes en rtc sans 3610 et sans Call Back vous payez bien-sûr la communication.

PLB