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

40 Chapter2
Creating Core Routines That Sort and Merge
Example of Core Merging Routine
procedure CLOSE_FILES;
var
disposition : SHORTINT;
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_MERGE;
CLOSE_FILES;
end.
When this program is executed, the output is written to ALLEMP. To view ALLEMP:
:print allemp
Jones, Eliza 000001 06/06/87
Gangley, Tomas 000003 06/06/87
Smith, James 000005 06/06/87
Jackson, Jonathan 000006 06/06/87
Rields, Evelyn 000007 07/12/87
Washington, Lois 000014 07/23/87
Jackson, Rosa 000022 08/15/87
Everett, Joyce 000029 10/19/87