GET TRANSACTION [DATA ] operand1
|
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: ACCEPT/REJECT
|
AT BREAK
|
AT START OF DATA
|
AT END OF DATA
|
BACKOUT TRANSACTION
|
BEFORE BREAK PROCESSING
|
DELETE
|
END TRANSACTION
|
FIND
|
GET
|
GET SAME
|
HISTOGRAM
|
LIMIT
|
PASSW
|
PERFORM BREAK PROCESSING
| READ
|
RETRY
|
STORE
|
UPDATE
Belongs to Function Group: Database Access and Update
The GET TRANSACTION DATA
statement is used to read the data
saved with a previous END
TRANSACTION
statement.
GET TRANSACTION DATA
does not create a processing loop.
The content of the Natural system variable
*ETID
identifies the transaction data to be retrieved from the database.
If the GET TRANSACTION DATA
statement is issued and no
transaction data are found, all fields specified in the GET TRANSACTION
DATA
statement will be filled with blanks regardless of format
definition.
Warning: Make sure that arithmetic operations are not performed on "empty" transaction data, because this would result in an abnormal termination of the program. |
The GET TRANSACTION DATA
statement is only valid for
transactions applied to Adabas databases.
Operand Definition Table:
Operand | Possible Structure | Possible Formats | Referencing Permitted | Dynamic Definition | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1
|
S | A | U | N | P | I | F | B | D | T | yes | yes |
Syntax Element Description:
** Example 'GTREX1': GET TRANSACTION ** ** CAUTION: Executing this example will modify the database records! ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 PERSONNEL-ID 2 NAME 2 FIRST-NAME 2 MIDDLE-I 2 CITY * 1 #PERS-NR (A8) INIT <' '> END-DEFINE * GET TRANSACTION DATA #PERS-NR IF #PERS-NR NE ' ' WRITE 'LAST TRANSACTION PROCESSED FROM PREVIOUS SESSION' #PERS-NR END-IF * REPEAT /* INPUT 10X 'ENTER PERSONNEL NUMBER TO BE UPDATED:' #PERS-NR IF #PERS-NR = ' ' STOP END-IF /* FIND EMPLOY-VIEW WITH PERSONNEL-ID = #PERS-NR IF NO RECORDS FOUND REINPUT 'NO RECORD FOUND' END-NOREC INPUT (AD=M) PERSONNEL-ID (AD=O) / NAME / FIRST-NAME / CITY UPDATE END TRANSACTION #PERS-NR END-FIND /* END-REPEAT END