[z/OS] Wait dans un programme cobol

Version imprimable

18/01/2011, 14h49
Fabizor

[z/OS] Wait dans un programme cobol
Bonjour (Re- pour ceux qui ont lu mon autre message :mouarf:)

J'aimerais ajouter une boucle d'attente dans un programme cobol (non consommatrice de CPU de preference). Pour cela, j'ai trouvé ILBOWAT0 que je code comme suit:
Code:

1 2 3 4 5 01 PROGWAIT PIC X(08) VALUE 'ILBOWAT0'. 01 WS-WAIT-TIME PIC S9(09) COMP VALUE 1. CALL PROGWAIT USING WS-WAIT-TIME
Mais malheureusement (il y a souvent un "mais") il semble que l'on ne puisse pas faire une attente en dessous de la seconde. Et une seconde c'est quand même bien long pour mon traitement...
Y a t il un moyen de faire sensiblement la même chose sans consommer de CPU mais avec une attente en dessous de la seconde ?
18/01/2011, 20h43
Luc Orient

Et pourquoi vous voulez une boucle d'attente dans un programme COBOL ?
18/01/2011, 23h43
Peut-êtreUneRéponse

Pb de conception.
19/01/2011, 16h45
bernard59139

Bonjour

Le seul moyen que je connaisse est l'appel d'un sous-prog en assembleur.

Ce programme assembleur devra appeller la macro STIMER. De nombreux
exemples existent sur le web.

beaucoup de sites ont ce genre de programme qui traine quelque part. Il faut demander aux collègues.
Perso, je me refuse à connaitre l'assembleur.

Bon courage
20/01/2011, 09h15
Fabizor

Citation:

Envoyé par Luc Orient

Et pourquoi vous voulez une boucle d'attente dans un programme COBOL ?

Je suis entrain d'étudier la mise en place d'appel à des queues MQ de question/réponse (asynchrone) dans un programme batch cobol (synchrone). Il faut donc que mon programme « attende » la réponse après avoir posé sa question.
Je vais me renseigner sur un programme assembleur de ce type sur mon site…
Merci pour vos réponses.

[edit]
En fait j'ai simplement utilisé le WAIT du GET de MQ pour attendre le message réponse. Le probléme est donc résolu...