FastSort Manual

Using FastSort System Procedures
FastSort Manual—429834-003
5-37
SORTMERGESTART Procedure
sortfiles,,,,
len,,,,,
restart); ! restart.<15> is 1
! Go to the first statement that calls SORTMERGESEND.
...
error := CALL SORTMERGEFINISH (sortblock);
...
END; ! End of the routine
Writing a User Error Procedure
You can use the errproc parameter of SORTMERGESTART to specify a TAL
procedure to call if an error ends the SORTPROG process.
errproc
is the name of the user error procedure that you specify in the errproc parameter
of SORTMERGESTART.
code
INT(32):value
returns error codes to errnum, which you specify in the call to
SORTMERGESTART. Both code and errnum have the same structure.
Shown below is the TAL syntax for the declaration of a user error procedure. The body
of the user error procedure contains TAL declarations and statements. For information
about TAL, see the TAL Reference Manual.
PROC sorterrproc (errcode);
INT(32) errcode;
BEGIN
... . ! TAL statements
END;
...
error := SORTMERGESTART ( sortblock , keys
, ! num-merge-files
,numsort
,infile
, ! in-file-exclusion-mode
, ! in-file-count
, ! in-file-record-length
, ! format
,outfile
, ! out-file-exclusion-mode
, ! out-file-type
, ! flags
, ! errnum
PROC errproc ( code )