| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
| csq1logp utility |
« View previous topic :: View next topic » |
| Author |
Message
|
| bruce2359 |
 Posted: Tue Sep 20, 2011 3:33 am Post subject: |
 |
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
| giuly020277 wrote: |
yes... 
If i use csq1logp program to search these 2 messages on Mq log....i don't find them. |
So, the problem is that the messages are successfully MQPUT to the queue, BUT you don't see them when you print the log?
Are you a programmer?
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live.
Last edited by bruce2359 on Tue Sep 20, 2011 5:05 am; edited 1 time in total |
|
| Back to top |
|
 |
| giuly020277 |
| Posted: Tue Sep 20, 2011 4:36 am Post subject: |
|
|
Centurion
Joined: 07 Aug 2007
Posts: 146
Location: Florence,Italy
|
i'm not a programmer....but here we have the program
programmer specify :
CALL 'MQCMIT' USING W03-HCONN
W03-COMPCODE
W03-REASON.
IF (W03-COMPCODE NOT = MQCC-OK) THEN
DISPLAY 'ERRORE COMMIT MQ ' W03-COMPCODE
DISPLAY '* REASON CODE ' W03-REASON
PERFORM 999-ABEND THRU 999-ABEND-X
END-IF.
DISPLAY 'MQCMIT COMPLETATA'.
DISPLAY 'CTR-INPUT = ' CTR-INPUT.
Help me please  |
|
| Back to top |
|
|
| giuly020277 |
| Posted: Tue Sep 20, 2011 4:37 am Post subject: |
|
|
Centurion
Joined: 07 Aug 2007
Posts: 146
Location: Florence,Italy
|
|
| Back to top |
|
|
| giuly020277 |
| Posted: Tue Sep 20, 2011 4:48 am Post subject: |
|
|
Centurion
Joined: 07 Aug 2007
Posts: 146
Location: Florence,Italy
|
here it's :
040-PUT-CODA.
*----------------------------------------------------
MOVE 005 TO ABD-EXIT-ID.
MOVE W00-QNAME TO MQOD-OBJECTNAME.
MOVE MQFMT-STRING TO MQMD-FORMAT.
MOVE MQPER-NOT-PERSISTENT TO MQMD-PERSISTENCE.
MOVE 2592000 TO MQMD-EXPIRY
MOVE MQRO-NONE TO MQMD-REPORT.
MOVE SPACES TO MQMD-REPLYTOQ.
MOVE SPACES TO MQMD-REPLYTOQMGR.
MOVE LOW-VALUES TO MQMD-MSGID.
MOVE LENGTH OF CQQMQESI TO W-BUFFLEN.
COMPUTE MQPMO-OPTIONS = MQPMO-SYNCPOINT.
*
CALL 'MQPUT1' USING W03-HCONN
MQOD
MQMD
MQPMO
W-BUFFLEN
CQQMQESI
W03-COMPCODE
W03-REASON.
*
IF (W03-COMPCODE NOT = MQCC-OK) THEN
DISPLAY 'ERRORE PUT MQ ' W03-COMPCODE
DISPLAY '* REASON CODE ' W03-REASON
PERFORM 999-ABEND THRU 999-ABEND-X
ELSE
ADD 1 TO W00-NUMPUTS
END-IF.
DISPLAY 'MQPUT1 COMPLETATA'.
*
The there is CALL 'MQCMIT' and so on |
|
| Back to top |
|
|
| bruce2359 |
| Posted: Tue Sep 20, 2011 4:51 am Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
| giuly020277 wrote: |
here it's :
040-PUT-CODA.
*----------------------------------------------------
MOVE 005 TO ABD-EXIT-ID.
MOVE W00-QNAME TO MQOD-OBJECTNAME.
MOVE MQFMT-STRING TO MQMD-FORMAT.
MOVE MQPER-NOT-PERSISTENT TO MQMD-PERSISTENCE.
MOVE 2592000 TO MQMD-EXPIRY
MOVE MQRO-NONE TO MQMD-REPORT.
MOVE SPACES TO MQMD-REPLYTOQ.
MOVE SPACES TO MQMD-REPLYTOQMGR.
MOVE LOW-VALUES TO MQMD-MSGID.
MOVE LENGTH OF CQQMQESI TO W-BUFFLEN.
COMPUTE MQPMO-OPTIONS = MQPMO-SYNCPOINT.
*
CALL 'MQPUT1' USING W03-HCONN
MQOD
MQMD
MQPMO
W-BUFFLEN
CQQMQESI
W03-COMPCODE
W03-REASON.
*
IF (W03-COMPCODE NOT = MQCC-OK) THEN
DISPLAY 'ERRORE PUT MQ ' W03-COMPCODE
DISPLAY '* REASON CODE ' W03-REASON
PERFORM 999-ABEND THRU 999-ABEND-X
ELSE
ADD 1 TO W00-NUMPUTS
END-IF.
DISPLAY 'MQPUT1 COMPLETATA'.
*
The there is CALL 'MQCMIT' and so on |
Aha. The messages are NON-PERSISTENT. Non-persistent messages are not written to logs.
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
| Back to top |
|
|
| giuly020277 |
| Posted: Tue Sep 20, 2011 4:54 am Post subject: |
|
|
Centurion
Joined: 07 Aug 2007
Posts: 146
Location: Florence,Italy
|
you are the best 
I didn't know that.
So...i will not able to find not-persistent messagges on Mq log...
Thank u so much |
|
| Back to top |
|
|
| bruce2359 |
| Posted: Tue Sep 20, 2011 4:58 am Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
The persistence value in the MQMD determines whether a message will be written to the log.
MQPMO_SYNCPOINT determines whether this MQPUT (or MQGET) is to be included in the current Unit of Work, and not whether the message(s) are logged.
It is very early in the morning for me, and I am just now having my first cup of coffee.
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
| Back to top |
|
|
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
|
