DELETE [RECORD] [IN] [STATEMENT] [(r)]
|
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 | END TRANSACTION | FIND | GET | GET SAME | GET TRANSACTION DATA | HISTOGRAM | LIMIT | PASSW | PERFORM BREAK PROCESSING | READ | RETRY | STORE | UPDATE
Gehört zur Funktionsgruppe: Datenbankzugriffe und Datenbankänderungen
Das Statement DELETE dient dazu, einen Datensatz von der
Datenbank zu löschen.
Das Vorhandensein eines DELETE-Statements bewirkt, dass
alle Datensätze, die mit dem betreffenden READ- oder FIND-Statement gelesen werden, in den
Hold-Status gestellt werden.
Die Hold-Logik ist im Kapitel Datenbankzugriffe im Leitfaden zur Programmierung beschrieben.
Das DELETE-Statement darf nicht mit einem
FIND-,
READ- oder
GET-Statement in derselben
Sourcecode-Zeile stehen.
| (r) |
Statement-Referenz:
Die Notation
Wenn keine Statement-Referenz angegeben wird, referenziert das
|
|---|
| DL/I-Datenbanken |
Mit dem Aufgrund von GSAM-Beschränkungen ist das
|
|---|---|
| VSAM-Datenbanken | Das DELETE-Statement ist nicht auf VSAM-ESDS
(Entry-Sequenced Data Sets) anwendbar.
|
| SQL-Datenbanken |
Mit dem Bei den meisten SQL-Datenbanken kann eine mit
|
In diesem Beispiel werden alle Datensätze mit Namen ALDEN
gelöscht.
** Example 'DELEX1': DELETE
**
**
CAUTION: Executing this example will modify the database records!
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 NAME
END-DEFINE
*
FIND EMPLOY-VIEW WITH NAME = 'ALDEN'
/*
DELETE
END TRANSACTION
/*
AT END OF DATA
WRITE NOTITLE *NUMBER 'RECORDS DELETED'
END-ENDDATA
END-FIND
END
Falls in der VEHICLES-Datei für die Person mit Namen
ALDEN keine Datensätze gefunden werden, wird von der
EMPLOYEES-Datei der Datensatz von ALDEN gelöscht.
** Example 'DELEX2': DELETE
**
**
CAUTION: Executing this example will modify the database records!
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
1 VEHIC-VIEW VIEW OF VEHICLES
2 PERSONNEL-ID
END-DEFINE
*
EMPL. FIND EMPLOY-VIEW WITH NAME = 'ALDEN'
/*
VEHC. FIND VEHIC-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (EMPL.)
IF NO RECORDS FOUND
/*
DELETE (EMPL.)
/*
END TRANSACTION
END-NOREC
END-FIND
/*
END-FIND
END