IN-TRANSACTION-FUNCTION
This function returns a value indicating whether or not the program is currently in an unfinished transaction.
The IN-TRANSACTION function has no parameters.
RETURN-CODE is set to "1" if there is current and unfinished transaction or "0" otherwise.
Note - The isCOBOL implementation is independent from the current file handler. Every time the START TRANSACTION operation is invoked, then an environmental flag is set to true, while every time a COMMIT or ROLLBACK operation is called, the flag is set to false. No check on errors is performed. The function returns the value of the flag.
Syntax
SET IN-TRANSACTION-FUNCTION TO TRUE CALL "I$IO" USING IO-FUNCTION GIVING returnCode |
Return code:
returnCode can be any signed numeric data item and provides additional information:
>0 | In transaction |
0 | Not in transaction |