Im Kontext der Datei-Ein-/Ausgabe ohne Datenbankbezug können mit der EGL-Anweisung 'set' alle Felder in einer Datensatzvariablen zurückgesetzt werden und im Falle des Stereotyps 'IndexedRecord' die Positionen der Dateizeiger geändert werden.
Wenn Sie diese Anweisung mit dem Stereotyp 'CSVRecord' verwenden, ist nur das folgende Format zulässig: set empty.

package com.companyb.customer;
Record IndexedRecordExample type IndexedRecord {
fileName = "C:\\temp\\indexfile.txt",
keyItem = indKey
}
10 indKey INT;
15 indKeyAsHex HEX(8);
10 indTitle CHAR(30);
10 indAuthor CHAR(30);
end
program readall
myIndexedRecord IndexedRecordExample;
Function main()
// 'indKey' wird auf 0 gesetzt, alle anderen Felder sind leer
set myIndexedRecord empty;
myIndexedRecord.indKeyAsHex = x"FFFFFFFF";
// Positionierung am Ende der Datei
set myIndexedRecord position;
...
end // Ende von 'main()'
end // Ende von 'program'