Automatisation des traitements [Résolu]

[fspiecart]

Bonjour,
Comment puis-je faire (sans l'achat d'un produit) pour lancer un traitement 2 fois par jour ou toutes les 2 heures par exemple
Merci

[Mercure]

Code :

WRKJOBSCDE  <F4>

[USERAF]

Ajoute une tache via F6 dans ton planning des travaux. (wrkjobscde)

[K2R400]

Euh, OK pour le deux fois par jour, deux entrées dans le scheduler (si on peut appeler ça comme ça).

Deux fois par heure, il faut que ton traitement se relance lui même à une heure planifiée dans le SBMJOB.

[lva30]

Bonjour.
Tu peux aussi faire en sorte qu'il reste toujours actif et utiliser la commande DLYJOB dans un programme CLP.

Ex:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PGM
DCL &Heure *char 6

BCL:
/* mon traitement */
CALL xxxxxx

/* Attente 2h */
DLYJOB 120

/* Si on dépasse 20h par exemple on arrete le job */
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&HEURE)
IF COND(&HEURE *GE 200000) THEN(GOTO FIN)
GOTO BCL

FIN:
ENDPGM

Je me sert de ce genre de procédure en montant un sous-système dédié, une jobq dédiée et éventuellement un pool mémoire dédié selon la nécessité de priorisé ou non le traitement.

[Mercure]

Code :

DLYJOB 120

120 secondes font 2 minutes et pas 2 heures, donc attention.

Cependant, ce CL s'arrêtera brutalement si une commande ENDJOB, ENDSBS ou PWRDWNSYS en mode contrôlé survient. Aussi, voici une façon de le vérifier et d'arrêter le programme proprement en utilisant les "signaux" que l'OS met à notre disposition.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
BCL:
/* mon traitement */
CALL xxxxxx

/* Je boucle 1440 fois en testant toutes les +
   5 secondes si un arrêt a été demandé +
       ( 1440 x 5 ) = 7200 secondes = 2 h */
DOFOR VAR(&I) FROM(1) TO(1440)  
  DLYJOB DLY(5)               
  RTVJOBA ENDSTS(&ENDSTS)      
  IF (&ENDSTS *EQ '1') GOTO CANCELJOB           
ENDDO

GOTO BCL

CANCELJOB : RETURN

ENDJOB, ENDSBS ou PWRDWNSYS en mode contrôlé envoient un signal à l'OS pour lui préciser qu'un arrêt vient d'être demandée. Dans le CL je récupère ce statut (&ENDSTS) pour en connaître la valeur.

En fait, ces signaux sont courants sous Unix. Ils sont intéressants car ils interrompent un job qui est en cours de traitement en appelant une procédure et, quand cette procédure est terminée, le job suspendu est réactivé et poursuit son traitement là où il s'était arrêté.