Discussion :

[Kyle Katarn]

Bonjour,

Le bout de code suivant ne semble pas fonctionner (GET) :

OPENS.
MOVE QM-DISTANT TO MQOD-OBJECTQMGRNAME.
MOVE SOURCE-QUEUE TO MQOD-OBJECTNAME.

ADD MQOO-INPUT-AS-Q-DEF MQOO-FAIL-IF-QUIESCING
GIVING OPTIONS.
CALL 'MQOPEN'
USING HCONN, OBJECT-DESCRIPTOR,
OPTIONS, Q-HANDLE,
OPEN-CODE, REASON.

* Test si erreur
IF REASON IS NOT EQUAL TO MQRC-NONE
DISPLAY 'ERREUR : MQOPEN code retour ' REASON
MOVE 8 TO RETURN-CODE
END-IF.

* Test si erreur
IF OPEN-CODE IS NOT EQUAL TO MQCC-OK
DISPLAY 'ERREUR : Impossible d ouvrir la Queue '
MOVE 8 TO RETURN-CODE
GOBACK
END-IF.

J'ai une erreur 2045.

Alors que celui-ci fonctionne (PUT) :

OPENS.
MOVE QM-DISTANT TO MQOD-OBJECTQMGRNAME.
MOVE TARGET-QUEUE TO MQOD-OBJECTNAME.

ADD MQOO-OUTPUT MQOO-FAIL-IF-QUIESCING
GIVING OPTIONS.
CALL 'MQOPEN'
USING HCONN, OBJECT-DESCRIPTOR,
OPTIONS, Q-HANDLE,
OPEN-CODE, REASON.

* Test si erreur
IF REASON IS NOT EQUAL TO MQRC-NONE
DISPLAY 'ERREUR : MQOPEN code retour ' REASON
MOVE 8 TO RETURN-CODE
END-IF.

* Test si erreur
IF OPEN-CODE IS NOT EQUAL TO MQCC-OK
DISPLAY 'ERREUR : Impossible d ouvrir la Queue '
MOVE 8 TO RETURN-CODE
GOBACK
END-IF.

Est ce que quelqu'un peut m'expliquer ou est mon erreur ?

[Homer-ac]

2045 MQRC-OPTION-NOT-VALID-FOR-TYPE

Essayes plutôt qque chose comme le sample MQGET :

Code :

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

1
2
3
4
5
           COMPUTE OPTIONS = MQOO-INPUT-SHARED +           
                                     MQOO-BROWSE +                 
                                     MQOO-FAIL-IF-QUIESCING  
          CALL 'MQOPEN'   ...................

[alex.]

SOURCE-QUEUE est-elle une queue remote ? On ne peut faire de get que sur une queue locale.

[Kyle Katarn]

SOURCE-QUEUE est-elle une queue remote ? On ne peut faire de get que sur une queue locale.

Merci Alex, il apparait effectivement que ma Queue est une Queueremote.
Ca fonctionne bien en local.