[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$SOR_ROUTINES; { © Copyright 2005 Hewlett-Packard Development Company, L.P. } { } { Confidential computer software. Valid license from HP and/or } { its subsidiaries required for possession, use, or copying. } { } { Consistent with FAR 12.211 and 12.212, Commercial Computer Software, } { Computer Software Documentation, and Technical Data for Commercial } { Items are licensed to the U.S. Government under vendor's standard } { commercial license. } { } { Neither HP nor any of its subsidiaries shall be liable for technical } { or editorial errors or omissions contained herein. The information } { in this document is provided "as is" without warranty of any kind and } { is subject to change without notice. The warranties for HP products } { are set forth in the express limited warranty statements accompanying } { such products. Nothing herein should be construed as constituting an } { additional warranty. } { } [HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END; $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP; $BOOL = [BIT(1),UNSAFE] BOOLEAN; $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511; $BIT10 = [BIT(10),UNSAFE] 0..1023; $BIT11 = [BIT(11),UNSAFE] 0..2047; $BIT12 = [BIT(12),UNSAFE] 0..4095; $BIT13 = [BIT(13),UNSAFE] 0..8191; $BIT14 = [BIT(14),UNSAFE] 0..16383; $BIT15 = [BIT(15),UNSAFE] 0..32767; $BIT16 = [BIT(16),UNSAFE] 0..65535; $BIT17 = [BIT(17),UNSAFE] 0..131071; $BIT18 = [BIT(18),UNSAFE] 0..262143; $BIT19 = [BIT(19),UNSAFE] 0..524287; $BIT20 = [BIT(20),UNSAFE] 0..1048575; $BIT21 = [BIT(21),UNSAFE] 0..2097151; $BIT22 = [BIT(22),UNSAFE] 0..4194303; $BIT23 = [BIT(23),UNSAFE] 0..8388607; $BIT24 = [BIT(24),UNSAFE] 0..16777215; $BIT25 = [BIT(25),UNSAFE] 0..33554431; $BIT26 = [BIT(26),UNSAFE] 0..67108863; $BIT27 = [BIT(27),UNSAFE] 0..134217727; $BIT28 = [BIT(28),UNSAFE] 0..268435455; $BIT29 = [BIT(29),UNSAFE] 0..536870911; $BIT30 = [BIT(30),UNSAFE] 0..1073741823; $BIT31 = [BIT(31),UNSAFE] 0..2147483647; $BIT32 = [BIT(32),UNSAFE] UNSIGNED; (* MODULE SOR$ROUTINES ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE sor$routines ***) (**************************************************************************** *) (* * *) (* 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. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$BEGIN_MERGE ( %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0; merge_order : $UBYTE := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_input := %IMMED 0; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* 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. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$BEGIN_SORT ( %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0; file_alloc : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0; sort_process : $UBYTE := %IMMED 0; work_files : $UBYTE := %IMMED 0; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$DO_MERGE *) (* *) (* Obsolete (from VMS V3) *) (* *) [ASYNCHRONOUS] FUNCTION SOR$DO_MERGE : INTEGER; EXTERNAL; (* *) (* SOR$END_SORT *) (* *) (* End a Sort Operation *) (* *) (* Does cleanup functions, such as closing files and releasing memory. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$END_SORT ( VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$INIT_MERGE *) (* *) (* Obsolete (from VMS V3) *) (* *) [ASYNCHRONOUS] FUNCTION SOR$INIT_MERGE ( merge_order : $UBYTE := %IMMED 0; %REF key_buffer : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; options : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_equal := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$INIT_SORT *) (* *) (* Obsolete (from VMS V3) *) (* *) [ASYNCHRONOUS] FUNCTION SOR$INIT_SORT ( %REF key_buffer : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0; lrl : $UWORD := %IMMED 0; file_alloc : UNSIGNED := %IMMED 0; work_files : $UBYTE := %IMMED 0; sort_process : $UBYTE := %IMMED 0; key_size : $UBYTE := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE user_compare := %IMMED 0; options : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$PASS_FILES *) (* *) (* Pass File Names *) (* *) (* Passes the names of input and output files and output file *) (* characteristics to SORT or MERGE. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$PASS_FILES ( inp_desc : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; out_desc : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; org : $UBYTE := %IMMED 0; rfm : $UBYTE := %IMMED 0; bks : $UBYTE := %IMMED 0; bls : $UWORD := %IMMED 0; mrs : $UWORD := %IMMED 0; alq : UNSIGNED := %IMMED 0; fop : UNSIGNED := %IMMED 0; fsz : $UBYTE := %IMMED 0; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$RELEASE_REC *) (* *) (* Pass One Record to Sort *) (* *) (* Used with the record interface to pass one input record to SORT or *) (* MERGE. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$RELEASE_REC ( desc : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$RETURN_REC *) (* *) (* Return One Sorted Record *) (* *) (* Used with the record interface to return one sorted or merged *) (* record to a program. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$RETURN_REC ( VAR desc : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR LENGTH : [VOLATILE] $UWORD := %IMMED 0; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$SORT_MERGE *) (* *) (* Sort *) (* *) (* Sorts the input records. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$SORT_MERGE ( VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$SPEC_FILE *) (* *) (* Pass a Specification File Name *) (* *) (* Used to pass a specification file or specification text. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$SPEC_FILE ( spec_file : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; spec_buffer : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* SOR$STAT *) (* *) (* Obtain Sorting Statistics *) (* *) (* Returns one statistic about the sort or merge operation to the user *) (* program. *) (* *) [ASYNCHRONOUS] FUNCTION SOR$STAT ( code : UNSIGNED; VAR result : [VOLATILE] UNSIGNED; VAR context : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* END. *) (* MODULE SORMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SORDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:24:16.24 *) (* *) (* FILE: SORMSG.MSG *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 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. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* *) (* FACILITY: VAX-11 SORT/MERGE *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE DEFINITION FOR THE SORT FACILITY SPECIFIC *) (* ERROR MESSAGES. THE FACILITY CODE FOR SORT/MERGE IS 28. *) (* *) (* ENVIRONMENT: VAX/VMS USER MODE *) (* *) (* AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982 *) (* *) (* MODIFIED BY: *) (* *) (* T03-015 ORIGINAL *) (* T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE. *) (* PDG 16-DEC-1982 *) (* T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982 *) (* T03-020 ADD NEW MESSAGES FOR ERRORS WITH COLLATING SEQUENCES. *) (* PDG 26-JAN-1983 *) (* T03-021 ADDED NEW MESSAGES FOR CDD ERRORS. PDG 11-FEB-1983 *) (* T03-022 ADDED ENDDIAGS. PDG 16-MAR-1983 *) (* T03-023 CHANGE TEXT OF COL_PAD. PDG 20-APR-1983 *) (* T03-024 ADDED OPREPLY. PDG 9-MAY-1983 *) (* T04-001 ADDED ODD_LEN. MH 15-JUL-1985 *) (* V05-001 CHANGED TEST FOR VAR_FIX TO "truncated or padded". *) (* BAB 4-FEB-1993 *) (* CORRECTED SPELLING AND PUNCTUATION ERRORS. *) (* DEE RYAN 29-SEP-1993 *) (* V08-014 ADDED HS_NYI. KRN 23-MAY-2008 *) (*-- *) (* *) (* SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF VAX-11 SORT/MERGE, *) (* BUT ARE NO LONGER BE ISSUED. THESE MUST STILL BE DEFINED. *) (* *) (* SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE, *) (* BUT ARE NOT YET ISSUED BY THE CODE. THESE ARE PREFIXED WITH A "?". *) (* *) CONST SORT$_FACILITY = 28; SOR$_MISS_KEY = 1867780; SOR$_WORK_DEV = 1867786; SOR$_NO_WRK = 1867794; SOR$_VM_FAIL = 1867804; SOR$_WS_FAIL = 1867812; SOR$_SORT_ON = 1867820; SOR$_BAD_KEY = 1867828; SOR$_NUM_KEY = 1867836; SOR$_BAD_LEN = 1867844; SOR$_ONE_IN = 1867852; SOR$_IND_OVR = 1867860; SOR$_INCONSIS = 1867868; SOR$_VAR_FIX = 1867872; SOR$_BAD_TYPE = 1867884; SOR$_LRL_MISS = 1867892; SOR$_BAD_SPEC = 1867900; SOR$_BAD_LRL = 1867906; SOR$_BAD_FILE = 1867916; SOR$_BAD_ADR = 1867924; SOR$_MAP = 1867932; SOR$_EXTEND = 1867940; SOR$_KEY_LEN = 1867946; SOR$_CLEAN_UP = 1867956; SOR$_BAD_MERGE = 1867962; SOR$_BAD_ROUTIN = 1867972; SOR$_INP_FILES = 1867980; SOR$_BAD_ORDER = 1867984; (* *) (* V3B MESSAGES ARE DEFINED BELOW *) (* *) CONST SOR$_DUP_OUTPUT = 1867996; SOR$_MISS_PARAM = 1868004; SOR$_END_SORT = 1868009; SOR$_KEYED = 1868018; SOR$_BAD_SRL = 1868024; SOR$_NODUPEXC = 1868036; SOR$_DELETE1 = 1868041; SOR$_DELETE2 = 1868049; SOR$_DELBOTH = 1868057; SOR$_NYI = 1868066; SOR$_RTNERROR = 1868074; SOR$_KEYAMBINC = 1868084; SOR$_OBS_0 = 1868092; SOR$_ROPRAND = 1868098; SOR$_UNDOPTION = 1868108; SOR$_STABLEEXC = 1868116; SOR$_SRTIWA = 1868124; SOR$_SPCOVR = 1868128; SOR$_SPCMIS = 1868136; SOR$_SPCSIS = 1868144; SOR$_SPCIVP = 1868156; SOR$_SPCIVS = 1868164; SOR$_SPCIVC = 1868172; SOR$_SPCIVF = 1868180; SOR$_SPCIVD = 1868188; SOR$_SPCIVX = 1868196; SOR$_SPCIVK = 1868204; SOR$_SPCIVI = 1868212; SOR$_INCNOKEY = 1868220; SOR$_INCNODATA = 1868228; SOR$_INVFOLD = 1868234; SOR$_OPERFAIL = 1868244; SOR$_REQ_ALT = 1868251; SOR$_USE_ALT = 1868259; SOR$_COL_ADJ = 1868268; SOR$_COL_CMPLX = 1868276; SOR$_COL_CHAR = 1868284; SOR$_COL_PAD = 1868292; SOR$_COL_THREE = 1868300; SOR$_BADDTYPE = 1868306; SOR$_BADLENOFF = 1868314; SOR$_BADOCCURS = 1868324; SOR$_BADOVRLAY = 1868330; SOR$_BADPROTCL = 1868340; SOR$_CDDERROR = 1868348; SOR$_ILLBASE = 1868354; SOR$_ILLLITERL = 1868364; SOR$_ILLSCALE = 1868370; SOR$_INCDIGITS = 1868378; SOR$_MISLENOFF = 1868384; SOR$_MULTIDIM = 1868394; SOR$_NOTRECORD = 1868404; SOR$_SIGNCOMPQ = 1868408; SOR$_UNSUPLEVL = 1868420; SOR$_ENDDIAGS = 1868427; SOR$_OPREPLY = 1868435; SOR$_CHKPNT = 1868441; SOR$_ODD_LEN = 1868452; SOR$_HS_NYI = 1868460; (* END. *) END.