GET TRANSACTION [DATA] operand1
|
Dieses Dokument behandelt folgende Themen:
Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.
Verwandte 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
Gehört zur Funktionsgruppe: Datenbankzugriffe und Datenbankänderungen
Das Statement GET TRANSACTION DATA dient dazu, die
Transaktionsdaten, die mit einem vorherigen END TRANSACTION-Statement
gespeichert wurden, zu lesen.
GET TRANSACTION DATA erzeugt keine
Verarbeitungsschleife.
Um die von der Datenbank zu lesenden Transaktionsdaten zu
identifizieren, kann die Natural-Systemvariable
*ETID
eingesetzt werden.
Werden bei der Ausführung des GET TRANSACTION
DATA-Statements keine Transaktionsdaten gefunden, werden alle mit dem
Statement angegebenen Felder mit Leerzeichen gefüllt, gleichgültig welches
Format die Felder haben.
 |
Warnung: Achten Sie darauf, dass keine arithmetischen Operationen auf der Grundlage "leerer" Transaktionsdaten ausgeführt werden, da dies einen Programmabbruch zur Folge hätte. |
Das GET TRANSACTION DATA-Statement gilt nur für
Transaktionen auf Adabas-Datenbanken.
Operanden-Definitionstabelle:
| Operand | Mögliche Struktur | Mögliche Formate | Referenzierung erlaubt | Dynam. Definition | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| operand1 | S | A | U | N | P | I | F | B | D | T | ja | ja | ||||||||
Syntax-Element-Beschreibung:
** 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