Discussion :

[etienne_petit]

Bonjour,

J'exécute par un ordonnanceur externe des travaux à distance (entre deux IBM i), grâce à la commande RUNRMTCMD.
Le programme fonctionne correctement, mais il s'exécute en un instant, peu importe le temps d'exécution de la commande sur le système distant.
Comment pourrais-je faire pour que mon job "local" puisse savoir quand le job lancé à distance se termine?

Le but est de lancer une 2ème commande à distance une fois que la première est terminée, puis une 3ème ...etc, dans utiliser de DLYJOB.

Quelqu'un saurait-il quelle est la meilleure façon de faire?


D'avance merci!

Etienne.

[FORMULARY]

Bonjour.
Pourquoi s'embêter à attendre que la première commande soit terminée pour lancer la commande suivante ?
Le mieux est de créer un petit programme qui exécute les x commandes l'une derrière l'autre.
Dès lors, un seul RUNRMTCMD et hop !

Sinon, il faut faire un petit programme qui exécute la commande reçue puis exécute une commande à distance genre CHGDTAARA RMTSTATUS '1'
Dès lors, ton programme n'a plus quà récupérer la valeur de la data area.
Mieux encore, qui exécute un RUNRMTCMD avec CALL PHASE_SUIVANTE sur la première machine.
Mais pour moi, le mieux est de tout déporter dans un seul CALL

[etienne_petit]

Bonjour,

Tout d'abord, merci pour ta réponse FORMULARY.

Bonjour.
Pourquoi s'embêter à attendre que la première commande soit terminée pour lancer la commande suivante ?

En fait, c'est tout le cœur du problème : Je travaille pour un client qui utilise Automator, et qui externalise sa supervision de niveau 1.
Du coup, il souhaite que chaque étape critique du graphe soit détaillée (en l'occurrence, un job de sauvegarde entouré de jobs de pré-sauvegarde et de post-sauvegarde).

Veuillez d'avance m'excuser pour mes faibles capacité de codage : Comment faire en sorte que le job distant retourne une erreur en cas de problème?
Je m'explique : pas un MONMSG global, je peux en effet bien sûr router vers une gestion d'erreurs qui mettra à jour ma DTAARA et informera mon système initial qu'il y a une erreur.
Mais si le job distant se termine de façon brutale (code 20 ou 50, typiquement), il ne pourra pas renseigner son état au système local. Si?

Merci d'avance pour vos lumières.

Étienne.

[FORMULARY]

Bonjour.
Si un AS lance un RUNRMTCMD sur un autre AS, c'est comme un SBMJOB sur son propre système. C'est lancer un autre travail.
Le système récupère la main sitôt la commande passée (mais pas terminée).

Si le programme distant se plante, il ne peut donc pas indiquer une fin normale à la première machine qui attend
On peut peut-être s'en sortir plus ou moins bien avec un programme qui fait un FTP avec une/des commandes QUOTE RCMD
Il faudra un programme qui analysera le résultat du FTP (membre OUTPUT à analyser)
Là encore, un arrêt brutal du FTP ne remontera peut-être pas un message spécifique ...

Si c'est Automator de Asist qui tourne sur un ibm i, alors essayez de voir avec eux ce qu'ils peuvent faire.
Leur logiciel est certainement prévu pour remonter les arrêts anormaux.

[etienne_petit]

Bonjour,

Merci encore FORMULARY .

Si un AS lance un RUNRMTCMD sur un autre AS, c'est comme un SBMJOB sur son propre système. C'est lancer un autre travail.
Le système récupère la main sitôt la commande passée (mais pas terminée).

C'est effectivement ce que j'observe lorsque la commande est exécutée en batch, mais étonnamment, lorsque lancée en interactif en test, elle verrouille la session le temps que la commande éloignée se termine.

Si c'est Automator de Asist qui tourne sur un ibm i (...)

Effectivement, c'est bien d'Automator qu'il s'agit.

J'ai utilisé ta technique de communication par DTAARA. Tout fonctionne bien, et le programme m'envoie bien NOK en cas d'erreur, et OK autrement.
C'est parfait pour mes tests, mais pour qu'Automator affiche une erreur, il faut que le programme se termine de façon anormale (code 20, 50...).

Il est impossible d'arrêter le sous-système car on en aura encore besoin à la fin du job, donc on oublie le code 50.
J'ai essayé de lancer une erreur non monitorée avec réponse automatique dans la *SYSRPYL, mais ça termine le programme en code 0.

Tu aurais une astuce de programmeur pour générer une erreur de ton programme de façon à ce que le travail finisse en code 20 ?

Merci d'avance!

PS : Par ailleurs, est-ce que tu connais le nom des jobs qui tournent sur la machine "cible" d'un RUNRMTCMD ?
J'ai essayé de retrouver le nom en lançant un RUNRMTCMD qui aboutit sur un MSGW, mais ça n'a pas fonctionné, le travail soumis doit immédiatement être terminé en cas de MSGW.

[FORMULARY]

Bonjour,
Normalement, le travail devrait se terminer en code 20 avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SAVLIB truc
MONMSG CPF0000 *N DO
      RUNRMTCMD CMD(CHGDTAARA ...)
      SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                MSGDTA('Erreur rencontrée') MSGTYPE(*ESCAPE)
      ENDDO

[etienne_petit]

Bonjour,

Mon process fonctionne bien, mais c'est malheureusement un peu fragile tout ça :
- Il faut modifier le programme appelé sur le système distant pour renvoyer le statut.
- En fin de programme, renvoie OK
- MONMSG CPF000 EXEC(GOTO ERROR) pour renvoyer NOK
- Par contre, si le programme distant plante, aucun message envoyé et mon programme local continuera de tourner sans fin!

En tout cas, en conditions "normales", ça fonctionne.

Merci pour toute ton aide FORMULARY, je clôture cette discussion.

Étienne.