SORT-MERGE/XL Programmer's Guide (32650-90884)

Chapter 2 37
Creating Core Routines That Sort and Merge
Example of Core Sorting Routine
securityCode : SHORTINT;
begin
disposition := 0;
securityCode := 0;
FCLOSE (tempFileNum, disposition, securityCode);
FCLOSE (permFileNum, disposition, securityCode);
disposition := 1;
FCLOSE (outFileNum, disposition, securityCode);
end;
begin {main}
OPEN_FILES;
DO_SORT;
CLOSE_FILES;
end.
When this program is executed, the output from the sort is written to ALLEMP. To view
the output:
:print allemp
Everett, Joyce 000029 10/19/87
Gangley, Tomas 000003 06/06/87
Jackson, Jonathan 000006 06/06/87
Jackson, Rosa 000022 08/15/87
Jones, Eliza 000001 06/06/87
Rields, Evelyn 000007 07/12/87
Smith, James 000005 06/06/87
Washington, Lois 000014 07/23/87