Advertisement
Aping sur AS/400
Vous avez des réseaux distants reliés en SNA (contrôleur 5494 ou autres AS400).
Comment tester s'ils sont ok et si les temps de réponse sont corrects ?
A titre d'indication voici en milli-secondes les temps acceptables :
- réseau local de 50 à 100 maxi (token ou ethernet 10base T)
- réseau France 200 à 500 maxi (sur une ligne Frame relay à 64)
- réseau France 500 à 1000 maxi (sur une ligne X25 à 64)
- réseau Europe 700 à 1000 maxi (sur une ligne Frame relay à 64)

En IP, il existe la commande PING, mais il existe également une commande moins connue en SNA APING

Pour l'utilisation du aping

==> aping RMTLOCNAME(Nom du lieu) MODE(Nom du mode)

>>> Nom du lieu à tester, paramètre RMTCPNAME du contrôleur APPC

>>> Nom du mode, paramètre MODE de l'unité APPC

==> dspjoblog et cherchez le message CPI91C3

Exemple : l'allocation a duré 0,108 secondes.

A titre d'exemple voici un programme batch pour tester un temps de réponse APPC

PGM &NOM
DCL &NOM *CHAR 10 /* Nom du lieu à tester paramètre RMTCPNAME du controleur */
DCL &MOD *CHAR 10 ('mode utilisé')
DCL &TEM *DEC 11
DCL &MES *CHAR 07
DCL &CPT *DEC 03
DCL &TEMA *CHAR 11
/* test du lieu éloigné */
APING &NOM &MOD
MONMSG CPF91CC
CHGVAR &CPT 0
BOUCLE:
CHGVAR &CPT (&CPT + 1)
IF COND(&CPT *GE 6) THEN(DO)
/* Pas de réponse ou erreur de syntaxe */
/* 99999999999 correspond à un nom réponse du lieu éloigné */
CHGVAR &TEMA '99999999999'
GOTO FIN
ENDDO
ENDDO
/* Lecture des messages à la recherche du message CPI91C3 */
RCVMSG PGMQ(*SAME) MSGTYPE(*LAST) RMV(*YES) +
MSGDTA(&TEM) MSGID(&MES)
IF COND(&MES *NE 'CPI91C3') THEN(GOTO BOUCLE)
CHGVAR &TEMA &TEM
FIN:
/* traitement du résultat */
/* par exemple appel d'un programme stataping qui permet l'historisation dans un fichier */
CALL stataping (&NOM &TEMA)
ENDPGM

PLB

 
 
[ Retour ]