Sofern Du auf Release 6.1 oder höher bist, kannst Du einen SQL-Index mit einem zusätzlichen verketteten Schlüssel-Feld definieren und diesen Index im Anschluss (wie jede geschlüsselte logische Datei) mit native I/O verarbeiten.

Code:
CREATE INDEX YourSchema.YourIndex 
	ON YourFile.YourTable   
	( DIGITS ( YOURYEAR ) CONCAT DIGITS ( YOURMONTH ) CONCAT DIGITS ( YOURDAY ) AS DATECHAR ASC )
	RCDFMT TESTDATEF ADD ALL COLUMNS ;
Birgitta