@END-TRANSACTION
The @END-TRANSACTION command indicates the end of a logical transaction in a program that runs in ET mode. In case of an abnormal termination, Adabas automatically restores the database to the last issued ET command.
You may store user data in the system file by filling RECORDBUFOPN with the desired data and specifying the keyword USERDATA.
The syntax of the command is as follows:
As a result of the command, Adabas returns the transaction sequence number in the COMMAND-IDOPN field. Transform that field to a binary field, as the information has binary attributes. For example:
DATA DIVISION.
01 SEQ-NUMX.
02 SEQ-NUM PIC 9(9) COMP.
.
.
.
.
PROCEDURE DIVISION.
.
.
.
.
@END-TRANSACTION.
MOVE COMMAND-IDOPN TO SEQ-NUMX.
DISPLAY SEQ-NUM.
