IBM Mainframe Forum

Dear All,
Iam facing an unique scenario.
My program is MQ triggred CICS program .
This will be triggered as soon as the depth of the input MQ is one( record).
To test an abnormal condition, Iam forcing the program to stop processing further after reading the third record from the mq( MQGET).
This is how iam doing.
as soon as third record is read, Iam disabling CICS transaction,rollback, closing the mq , DEQ the resource and Returning the control to CICS .

Even after EXEC CICS REUTRIN END-EXEC, the program is going to the MQOPEN and processing the record which was left there.
Basically it is making one more attempt on the thrid record.Could someone shed some light , why this second attempt is made , even after giving the control to CICS.
Mr.Singh

To make it more clear, iam giving another scenario.

Iam disabling a file in CICS so that the mq triggered program returns the control to CICS.
Iam loading some 5 messages in to MQ.
CICS program is triggered.
Program starts processing the first record of the MQ.Since one of the CICS file is disabled,program gets into error para
where Iam disabling CICS transaction,rollback, closing the mq , DEQ the resource and Returning the control to CICS .
Here comes the problem.
The program is again opening the MQ, getting the same record, processing the record.Since one CICS file is disabled, program gets into error para , where it again disabling CICS transaction,rollback, closing the mq , DEQ the resource and Returning the control to CICS .

Program stops further processing in the second attempt.
Please advice , how to stop the second attempt on the same record of the MQ.
I want the MQ to be retained , so that after fixing the issue( here to enable the cics file), the mq can be proccesed from the point where it faced the problem.
add further.
message1- Processed ok
message2- Processed ok
message3- Forcing to stop processing-
Here Iam disabling CICS transaction,rollback, closing the mq , DEQ the resource and Returning the control to CICS .
Attempt is again made to process the third record