Rollback

[venkat2003]

Hi,


Please let me know wheter i have to specify the sync point rollback or not during this situation.

I am having Mainprogram is calling SUBPROGRAM thru CICS LINK with COMMAREA(100) and My mainprogram is expecting some response from that CICS SUBPROGRAM

If the response of CICS program is 'Success'
then I can insert main program data in to ABC table
Verify SQLCODE for insert
if sqlcode = 0
PERFORM INSERT-SOME-OTHER-DATA-INTO-TABLE-XYZ
ELSE
EXEC CICS
SYNCPOINT ROLLBACK
END-EXEC
( If I specify this syncpoint rollback in mainprogram does this rollback is applicable in the subprogram (cics) because this subprogram contains some insertions in other table)
END-IF
INSERT--SOME-OTHER-DATA-INTO-TABLE-XYZ

INSERT INTO XYZ

VERIFY SQLCODE
if ZERO
COMMIT
ELSE
CICS SYNC POINT ROLLBACK
END-IF

Please let me know this approach is correct or not.

Thanks
Venkat

END-EVALUATE

 

[gregsimpson]

This approach would appear to be correct, although I did find your pseudo codeexplanation a little bit misleading. Is it working for you or are you getting problems.

Greg