! ********************************************************************************************************************************
!  Created: 30-AUG-2007 11:30:05 by OpenVMS SDL IA64-2     
!  Source:  30-AUG-2007 11:30:05 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]SOR$ROUTINES.SDI;1 
! ********************************************************************************************************************************
 
!*** MODULE sor$routines ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ***************************************************************************
 ! 									    *
 !   COPYRIGHT (c) 1988 BY               				    *
 !   DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
 !   ALL RIGHTS RESERVED.						    *
 !  									    *
 !   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
 !   ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
 !   INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
 !   COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
 !   OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   * 
 !   TRANSFERRED.			       				    *
 !  									    *
 !   THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
 !   AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
 !   CORPORATION.							    *
 !  									    *
 !   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
 !   SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
 !  									    *
 ! 									    *
 ! ***************************************************************************
 ! 
 !   SOR$BEGIN_MERGE  
 ! 
 !   Initialize a Merge Operation
 ! 
 !   Initializes the merge operation by opening the input and output files
 !   and by providing the number of input files, the key specifications,
 !   and the merge options.
 ! 
	INTEGER*4 SOR$BEGIN_MERGE
	EXTERNAL SOR$BEGIN_MERGE
 ! 
 !   SOR$BEGIN_SORT  
 ! 
 !   Begin a Sort Operation
 ! 
 !   Initializes a sort operation by opening input and output files and by
 !   passing the key information and any sort options.
 ! 
	INTEGER*4 SOR$BEGIN_SORT
	EXTERNAL SOR$BEGIN_SORT
 ! 
 !   SOR$DO_MERGE 
 ! 
 !   Obsolete (from VMS V3)
 ! 
	INTEGER*4 SOR$DO_MERGE
	EXTERNAL SOR$DO_MERGE
 ! 
 !   SOR$END_SORT  
 ! 
 !   End a Sort Operation
 ! 
 !   Does cleanup functions, such as closing files and releasing memory.
 ! 
	INTEGER*4 SOR$END_SORT
	EXTERNAL SOR$END_SORT
 ! 
 !   SOR$INIT_MERGE  
 ! 
 !   Obsolete (from VMS V3)
 ! 
	INTEGER*4 SOR$INIT_MERGE
	EXTERNAL SOR$INIT_MERGE
 ! 
 !   SOR$INIT_SORT 
 ! 
 !   Obsolete (from VMS V3)
 ! 
	INTEGER*4 SOR$INIT_SORT
	EXTERNAL SOR$INIT_SORT
 ! 
 !   SOR$PASS_FILES 
 ! 
 !   Pass File Names
 ! 
 !   Passes the names of input and output files and output file
 !   characteristics to SORT or MERGE.
 ! 
	INTEGER*4 SOR$PASS_FILES
	EXTERNAL SOR$PASS_FILES
 ! 
 !   SOR$RELEASE_REC       
 ! 
 !   Pass One Record to Sort
 ! 
 !   Used with the record interface to pass one input record to SORT or
 !   MERGE.
 ! 
	INTEGER*4 SOR$RELEASE_REC
	EXTERNAL SOR$RELEASE_REC
 ! 
 !   SOR$RETURN_REC
 ! 
 !   Return One Sorted Record
 ! 
 !   Used with the record interface to return one sorted or merged
 !   record to a program.
 ! 
	INTEGER*4 SOR$RETURN_REC
	EXTERNAL SOR$RETURN_REC
 ! 
 !   SOR$SORT_MERGE 
 ! 
 !   Sort
 ! 
 !   Sorts the input records.
 ! 
	INTEGER*4 SOR$SORT_MERGE
	EXTERNAL SOR$SORT_MERGE
 ! 
 !   SOR$SPEC_FILE 
 ! 
 !   Pass a Specification File Name
 ! 
 !   Used to pass a specification file or specification text.
 !                                       
	INTEGER*4 SOR$SPEC_FILE
	EXTERNAL SOR$SPEC_FILE
 ! 
 !   SOR$STAT
 !  
 !   Obtain Sorting Statistics
 ! 
 !   Returns one statistic about the sort or merge operation to the user
 !   program.
 ! 
	INTEGER*4 SOR$STAT
	EXTERNAL SOR$STAT
!DEC$ END OPTIONS