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

56 Chapter4
Altering the Collating Sequence
Example of Using an Altered Sequence
HPSORTINIT (status, inputfiles, outputfile, outputOption,,,
numKeys, keys, altseq,,,statistics,,);
{Check for errors in HPSORTINIT}
HPSORTEND (Status, ); {Check for errors in HPSORTINIT}
end;
Procedure CLOSE_FILES;
var
disposition : SHORTINT;
securityCode : SHORTINT;
Begin
disposition := 0;
securityCode := 0;
FCLOSE (dataFileNum, disposition, securityCode);
disposition := 1;
FCLOSE (fruitFileNum, disposition, securityCode);
end;
begin {main}
OPEN_FILES;
DO_SORT;
CLOSE_FILES;
end.
When this program is executed, the output is written to FRUIT. To view FRUIT:
:print fruit
Apple
banana
Grapes
grapes
peach
Pear
orange