DEFINE DOMAIN CODES-SEQ USING CODES-REC ON CODES.SEQ;
DEFINE FILE FOR CODES KEY=KEY;
READY CODES WRITE
READY CODES-SEQ
FOR CODES-SEQ STORE CODES USING CODES-REC = CODES-REC
FINISH
READY CODES
PRINT CODES
FINISH