Page 1 sur 1
PING DANS UN PGM RPG
Posté : mer. 12 mars 2008, 10:46:52
par fbillard
Bonjour ,
Recherche comment faire un test pour voir si une machine PING , sans faire appel à la commande PING qui nécessite un CALL . Existe t'il des fonctions ?
Cordialement
C TALHOUET
02 97 61 66 21
solution simple dans un cl ...
Posté : lun. 17 mars 2008, 12:53:51
par steph
PGM
DCL &HOST *CHAR 16
DCL &DTA *CHAR 12
DCL &DTA1 *CHAR 4
DCL &DTA2 *CHAR 4
/* TEST AVEC 3 PAQUETS SEULEMENT (5 PAR DÉFAUT) */
/* &HOST PEUT ÊTRE UNE ADRESSE IP OU UN NOM DE HOST (SI CONNU) */
PING RMTSYS(&HOST) NBRPKT(3)
/* TEST SI ERREUR DE SYNTAXE */
MONMSG MSGID(TCP0000 CPF0000) EXEC(DO)
CHGVAR &DTA1 ('0000')
CHGVAR &DTA2 ('0003')
GOTO SUITE
ENDDO
/* LECTURE DU RESULTAT */
RCVMSG PGMQ(*SAME) MSGTYPE(*LAST) RMV(*NO) +
MSGDTA(&DTA)
CHGVAR &DTA1 (%BIN(&DTA 1 4))
CHGVAR &DTA2 (%BIN(&DTA 5 4))
SUITE:
/* SUR DTA1 PAQUETS RECUS OU DTA2 PAQUETS EN ERREUR */
IF COND(&DTA1 *EQ '0003') THEN(DO)
/* TRAITEMENT SI OK */
ENDDO
ENDPGM
PING
Posté : lun. 24 mars 2008, 00:01:20
par cmasse
Effectivement le CALL CL contient tout ce qu'il faut et réecrire cela en RPG me parait bien compliqué.
Que coute un CALL sur une machine d'aujourd'hui ?