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

Chapter 2 33
Creating Core Routines That Sort and Merge
Error Checking
The following is part of the core sort example, and shows how HPSORTERRORMESS is used.
var
status : INTEGER; {from a HPSORT intrinsic call}
message : array [1..80] of CHAR;
length : INTEGER;
If status <> 0 then
begin
message := '';
HPSORTERRORMESS (status, message, length);
writeln (message)
end;