PING DANS UN PGM RPG

RPG (3 et 4, free), CL, SQL, etc...
Répondre
fbillard
Messages : 13
Enregistré le : lun. 16 avr. 2007, 10:49:18

PING DANS UN PGM RPG

Message 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

steph
Messages : 5
Enregistré le : mar. 27 févr. 2007, 14:15:28

solution simple dans un cl ...

Message 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

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

PING

Message 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 ?
Christian Massé (Volubis.fr)

Répondre