MVSFORUMS.com

[Jeba]

Hi all,

I have a Batch program which will read a record from the file and writes a message in Message Queue. Also it writes a new record in a VSAM file. I Just want to commit the unit of work once each message is written to the Message Queue. I know that we have MQCMIT to commit MQSeries operations.

Is there any COBOL command to commit all (MQSeries operations and VSAM files) or atleast VSAM files.

Please let me know, If you have any other solutions also.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

[kolusu]

Jeba,

You can issue a MVS Checkpoint for every unit of work.The catch here is you will need an assembler routine to issue the checkpoint.Check this link for

z/OS V1R3 DFSMSdfp Checkpoint/Restart


Coming to other solutions:

I would write all the vsam records to a flatfile and later on do a REPRO WITH REPLACE option to the VSAM file in question.By doing so , you will not have an exclusive lock on the vsam file while the program runs.I beleive that Repro takes less time than the programmatical updates/inserts.So even if the program abends, it is only the flat file that is affected. so you can restart it from the top and create a fresh copy again.

Hope this helps...

cheers

kolusu

[emadhubabu]

If we are not using MQCMIT .. and Batch job goes down.. no messages will be written to MQ????