Die USAGE INDEX - Klausel

Man kann auch außerhalb von Tabellen Datenfelder definieren, die die Eigenschaften von Spezialindizes aufweisen. Hierzu dient die USAGE IS INDEX - Klausel:

01 Einzelindex USAGE IS INDEX.


Diese Art des Index wird Indexdatenname genannt. Im Unterschied zu einem Spezialindex kann ein solcher Index an ein Unterprogramm übergeben werden.
Um diesen Index zu füllen, darf nicht mit der MOVE-Anweisung gearbeitet werden. Dieser Index wird mit Hilfe der SET-Anweisung 'befüllt'. So kann z.B. ein Spezialindex mit Hilfe der SET-Anweisung gesichert und somit doch an ein Unterprogramm übergeben werden:

SET Sicherindex TO Index.

Hier wurde der (angenommene) Spezialindex 'Index' an 'Sicherindex' übergeben.

...