! ******************************************************************************************************************************** ! Created: 12-Mar-2025 17:18:21 by OpenVMS SDL V3.7 ! Source: 12-DEC-2024 18:05:30 CMS$BUILD_ROOT:[SRC]CMS$ROUTINES.SDL;1 ! ******************************************************************************************************************************** !*** MODULE CMS$ROUTINES IDENT V4.8-13 *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! User Argument ! ! ! The user argument is defined as being of undefined type and mechanism. ! CMS passes this on unchanged to the callback routine. For the purposes ! of this SDL file it is necessary to give a type and reference and ! a type of ANY and mechanism of REFERENCE has been selected as most likely ! to be correct. If the actual callback routine uses a different type or ! mechanism this will need changing. ! ! ** INTEGER*4 cms$l_user_arg_type ! ! Control Blocks ! ! ! The contents of a library data block (LDB) are designed to be used only ! by CMS. Except that the "user_parameter" value may be modified by the user. ! Use of an LDB in which any other field has been modified may corrupt your ! library. ! STRUCTURE /ldb_cntrlblk/ INTEGER*4 ldb$l_reserved_for_cms1(1:4) INTEGER*4 ldb$l_user_parameter INTEGER*4 ldb$l_reserved_for_cms2(1:52) END STRUCTURE ! ldb_cntrlblk ! ! The contents of a fetch data block (FDB) are designed to be used only ! by CMS. Use of an FDB in which any field has been modified may corrupt ! your library. ! STRUCTURE /fdb_cntrlblk/ INTEGER*4 fdb$l_reserved_for_cms(1:5) END STRUCTURE ! fdb_cntrlblk ! ! Binary date and Time value. ! ! ** INTEGER*4 cms$q_date_time(2) ! ! Position type for cms$create_library and cms$set_library. Used to ! describe order of libraries within a library library search list. ! ! ** INTEGER*4 position_type PARAMETER CMS$K_SUPERSEDE = '00000000'X PARAMETER CMS$K_AFTER = '00000001'X PARAMETER CMS$K_BEFORE = '00000002'X ! ! Address type passed into callbacks to identify a string. Used with ! cms$get_string for languages not directly supporting the descriptor. ! For some languages can be used directly as an address. ! ! ** INTEGER*4 string_addr ! ! Review action type for cms$review_generation. Used to identify action ! taken on each specified generation. ! ! ** INTEGER*4 review_action_type PARAMETER CMS$K_ACCEPT = '00000000'X PARAMETER CMS$K_CANCEL = '00000001'X PARAMETER CMS$K_MARK = '00000002'X PARAMETER CMS$K_REJECT = '00000003'X PARAMETER CMS$K_REVIEW = '00000004'X ! ! Object type for cms$set_acl and cms$show_acl. Used to identify the type ! of object whose acl is being manipulated. ! ! ** INTEGER*4 object_types PARAMETER CMS$K_ACL_ELEMENT = '00000001'X PARAMETER CMS$K_ACL_CLASS = '00000002'X PARAMETER CMS$K_ACL_GROUP = '00000003'X PARAMETER CMS$K_ACL_LIBRARY = '00000004'X PARAMETER CMS$K_ACL_COMMAND = '00000005'X ! ! Output format for cms$annotate and cms$differences. Defines the type of ! formatting performed on the data before it is put in the output file. ! STRUCTURE /format_type/ PARAMETER CMS$MS_ASCII = 1 PARAMETER CMS$MV_ASCII = 0 PARAMETER CMS$MS_DECIMAL = 1 PARAMETER CMS$MV_DECIMAL = 1 PARAMETER CMS$MS_HEXADECIMAL = 1 PARAMETER CMS$MV_HEXADECIMAL = 2 PARAMETER CMS$MS_OCTAL = 1 PARAMETER CMS$MV_OCTAL = 3 PARAMETER CMS$MS_BYTE = 1 PARAMETER CMS$MV_BYTE = 16 PARAMETER CMS$MS_LONGWORD = 1 PARAMETER CMS$MV_LONGWORD = 17 PARAMETER CMS$MS_RECORDS = 1 PARAMETER CMS$MV_RECORDS = 18 PARAMETER CMS$MS_WORD = 1 PARAMETER CMS$MV_WORD = 19 PARAMETER CMS$MS_GENERATION_DIF = 1 PARAMETER CMS$MV_GENERATION_DIF = 23 BYTE %FILL (2) END STRUCTURE ! format_type ! ! Transaction mask for cms$delete_history and cms$show_history. Defines ! the set of transcation records to be considered. ! STRUCTURE /transaction_mask_type/ PARAMETER CMS$MS_CMD_COPY = 1 PARAMETER CMS$MV_CMD_COPY = 0 PARAMETER CMS$MS_CMD_CREATE = 1 PARAMETER CMS$MV_CMD_CREATE = 1 PARAMETER CMS$MS_CMD_DELETE = 1 PARAMETER CMS$MV_CMD_DELETE = 2 PARAMETER CMS$MS_CMD_FETCH = 1 PARAMETER CMS$MV_CMD_FETCH = 3 PARAMETER CMS$MS_CMD_INSERT = 1 PARAMETER CMS$MV_CMD_INSERT = 4 PARAMETER CMS$MS_CMD_MODIFY = 1 PARAMETER CMS$MV_CMD_MODIFY = 5 PARAMETER CMS$MS_CMD_REMARK = 1 PARAMETER CMS$MV_CMD_REMARK = 6 PARAMETER CMS$MS_CMD_REMOVE = 1 PARAMETER CMS$MV_CMD_REMOVE = 7 PARAMETER CMS$MS_CMD_REPLACE = 1 PARAMETER CMS$MV_CMD_REPLACE = 8 PARAMETER CMS$MS_CMD_RESERVE = 1 PARAMETER CMS$MV_CMD_RESERVE = 9 PARAMETER CMS$MS_CMD_UNRESERVE = 1 PARAMETER CMS$MV_CMD_UNRESERVE = 10 PARAMETER CMS$MS_CMD_VERIFY = 1 PARAMETER CMS$MV_CMD_VERIFY = 11 PARAMETER CMS$MS_CMD_SET = 1 PARAMETER CMS$MV_CMD_SET = 14 PARAMETER CMS$S_spare2 = 1 PARAMETER CMS$V_spare2 = 15 PARAMETER CMS$MS_CMD_ACCEPT = 1 PARAMETER CMS$MV_CMD_ACCEPT = 16 PARAMETER CMS$MS_CMD_CANCEL = 1 PARAMETER CMS$MV_CMD_CANCEL = 17 PARAMETER CMS$MS_CMD_MARK = 1 PARAMETER CMS$MV_CMD_MARK = 18 PARAMETER CMS$MS_CMD_REJECT = 1 PARAMETER CMS$MV_CMD_REJECT = 19 PARAMETER CMS$MS_CMD_REVIEW = 1 PARAMETER CMS$MV_CMD_REVIEW = 20 BYTE %FILL (3) END STRUCTURE ! transaction_mask_type ! ! Ignore mask for cms$differences and cms$differences_class. ! IGNORE_FORM to IGNORE_NOTES are only used for with cms$differences. ! IGNORE_FIRST_VARIANTS is only used with cms$differences_class. ! PARAMETER CMS$M_IGNORE_FORM = '00000001'X PARAMETER CMS$M_IGNORE_LEAD = '00000002'X PARAMETER CMS$M_IGNORE_TRAIL = '00000004'X PARAMETER CMS$M_IGNORE_SPACE = '00000008'X PARAMETER CMS$M_IGNORE_CASE = '00000010'X PARAMETER CMS$M_IGNORE_HISTORY = '00000020'X PARAMETER CMS$M_IGNORE_NOTES = '00000040'X PARAMETER CMS$M_IGNORE_FIRST_VARIANT = '80000000'X STRUCTURE /ignore_mask_type/ PARAMETER CMS$S_IGNORE_FORM = 1 PARAMETER CMS$V_IGNORE_FORM = 0 PARAMETER CMS$S_IGNORE_LEAD = 1 PARAMETER CMS$V_IGNORE_LEAD = 1 PARAMETER CMS$S_IGNORE_TRAIL = 1 PARAMETER CMS$V_IGNORE_TRAIL = 2 PARAMETER CMS$S_IGNORE_SPACE = 1 PARAMETER CMS$V_IGNORE_SPACE = 3 PARAMETER CMS$S_IGNORE_CASE = 1 PARAMETER CMS$V_IGNORE_CASE = 4 PARAMETER CMS$S_IGNORE_HISTORY = 1 PARAMETER CMS$V_IGNORE_HISTORY = 5 PARAMETER CMS$S_IGNORE_NOTES = 1 PARAMETER CMS$V_IGNORE_NOTES = 6 PARAMETER CMS$S_IGNORE_FIRST_VARIANT = 1 PARAMETER CMS$V_IGNORE_FIRST_VARIANT = 31 BYTE %FILL (1) END STRUCTURE ! ignore_mask_type ! ! Show mask for cms$differences_class. ! PARAMETER CMS$M_ELEMENT_DIF = '00000001'X PARAMETER CMS$M_GENERATIONAL_DIF = '00000002'X PARAMETER CMS$M_VARIANT_DIF = '00000004'X STRUCTURE /show_mask_type/ PARAMETER CMS$S_ELEMENT_DIF = 1 PARAMETER CMS$V_ELEMENT_DIF = 0 PARAMETER CMS$S_GENERATIONAL_DIF = 1 PARAMETER CMS$V_GENERATIONAL_DIF = 1 PARAMETER CMS$S_VARIANT_DIF = 1 PARAMETER CMS$V_VARIANT_DIF = 2 BYTE %FILL (1) END STRUCTURE ! show_mask_type ! ! Library statistics provided by cms$show_library. ! STRUCTURE /statistics_type/ INTEGER*4 CMS$L_ELEMENTS_COUNT INTEGER*4 CMS$L_GROUPS_COUNT INTEGER*4 CMS$L_CLASSES_COUNT INTEGER*4 CMS$L_RESERVATIONS_COUNT INTEGER*4 CMS$L_CONCURRENT_REPLACEMENTS_COUN INTEGER*4 CMS$L_REVIEWS_PENDING_COUNT INTEGER*4 CMS$l_reserved_for_CMS(1:4) END STRUCTURE ! statistics_type ! ! Creates an annotated listing file of the specifed element generation and ! places it in your current default directory. ! INTEGER*4 cms$annotate EXTERNAL cms$annotate ! ! Simulates a keyboard CTRL/C (cancel). The CMS$ASYNCH_TERMINATE routine ! allows calling programs to specify to the CMS function currently in ! progress that cancellation has been requested. ! ! Subroutine cms$asynch_terminate ! ! Parse and executes the command line and then returns to the calling program ! INTEGER*4 cms$cms EXTERNAL cms$cms ! ! Copies an existing class to form a new one with a different name and ! populates it with the same set of element generations as the original. ! INTEGER*4 cms$copy_class EXTERNAL cms$copy_class ! ! Copies an existing element to form a new one with a different name. ! INTEGER*4 cms$copy_element EXTERNAL cms$copy_element ! ! Copies an existing group to form a new one with a different name and ! populates it with the same set of elements as the original. ! INTEGER*4 cms$copy_group EXTERNAL cms$copy_group ! ! Creates an empty class with the name specifed by the class_name argument. ! INTEGER*4 cms$create_class EXTERNAL cms$create_class ! ! Creates a new element in a CMS library. ! INTEGER*4 cms$create_element EXTERNAL cms$create_element ! ! Creates an empty group ! INTEGER*4 cms$create_group EXTERNAL cms$create_group ! ! Creates a new CMS library in an existing empty directory. ! INTEGER*4 cms$create_library EXTERNAL cms$create_library ! ! Deletes a class or classes from a CMS library. There cannot be any element ! generations in the class when it is deleted, unless the remove_contents ! is set. ! INTEGER*4 cms$delete_class EXTERNAL cms$delete_class ! ! Deletes an element or elements from a CMS library. The element cannot be ! in any group, and there can be no generations of it in any classes. ! INTEGER*4 cms$delete_element EXTERNAL cms$delete_element ! ! Deletes one or more generations of one or more elements from a CMS ! library. ! INTEGER*4 cms$delete_generation EXTERNAL cms$delete_generation ! ! Deletes a group or group from a CMS library. There can be no elements or ! or groups in the group, unless the remove_contents flag is set. Nor ! can the group be in any other group. ! INTEGER*4 cms$delete_group EXTERNAL cms$delete_group ! ! Deletes all or part of the library History. ! INTEGER*4 cms$delete_history EXTERNAL cms$delete_history ! ! Compares two elements, or two generations of elements, or an element ! and a generation. If the files are different, it creates a file containing ! the lines that differ between the two files. If the files are the same, it ! issues a message to that effect and does not create a differences file. ! INTEGER*4 cms$differences EXTERNAL cms$differences ! ! Compares the contents of two classes. If the contents of the classes are ! different, it creates a file containing the names of the generations ! that differ between the two classes. If the files are the same, it ! issues a message to that effect and does not create a differences file. ! INTEGER*4 cms$differences_class EXTERNAL cms$differences_class ! ! Retrieves a copy of an element from a CMS library. You can also specify an ! argument that directs CMS to establish a reservation for the element. ! INTEGER*4 cms$fetch EXTERNAL cms$fetch ! ! Terminates a fetch transaction initiated by CMS$FETCH_OPEN. ! INTEGER*4 cms$fetch_close EXTERNAL cms$fetch_close ! ! Retrieves one line of data from an element. Use the CMS$FETCH_GET routine ! in combination with the CMS$FETCH_OPEN and CMS$FETCH_CLOSE routines. ! INTEGER*4 cms$fetch_get EXTERNAL cms$fetch_get ! ! Begins a line-by-line fetch transaction. Use the CMS$FETCH_OPEN routine in ! combination with the CMS$FETCH_GET and CMS$FETCH_CLOSE routines. ! INTEGER*4 cms$fetch_open EXTERNAL cms$fetch_open ! ! Translates a string identifier. ! INTEGER*4 cms$get_string EXTERNAL cms$get_string ! ! Places one or more elements in the specified group. ! INTEGER*4 cms$insert_element EXTERNAL cms$insert_element ! ! Places one or more element generations in the specified class or classes. ! INTEGER*4 cms$insert_generation EXTERNAL cms$insert_generation ! ! Places one or more groups in the specifed groups. ! INTEGER*4 cms$insert_group EXTERNAL cms$insert_group ! ! Changes the characteristics of the specified class or classes. ! INTEGER*4 cms$modify_class EXTERNAL cms$modify_class ! ! Changes the characteristices of an existing element. ! INTEGER*4 cms$modify_element EXTERNAL cms$modify_element ! ! Alters information associated with one or more generations of an element. ! INTEGER*4 cms$modify_generation EXTERNAL cms$modify_generation ! ! Changes the characteristics of an existing group. ! INTEGER*4 cms$modify_group EXTERNAL cms$modify_group ! ! Establishes or removes the connection between a CMS library and a reference ! copy directory. ! INTEGER*4 cms$modify_library EXTERNAL cms$modify_library ! ! Alters information associated with one or more reservations of an element. ! INTEGER*4 cms$modify_reservation EXTERNAL cms$modify_reservation ! ! Passes a string from a callback routine to CMS. ! INTEGER*4 cms$put_string EXTERNAL cms$put_string ! ! Places a remark in the library history. ! INTEGER*4 cms$remark EXTERNAL cms$remark ! ! Removes an element from one or more groups. ! INTEGER*4 cms$remove_element EXTERNAL cms$remove_element ! ! Removes an element generation from one or more classes. ! INTEGER*4 cms$remove_generation EXTERNAL cms$remove_generation ! ! Removes one of more groups from another group or groups. ! INTEGER*4 cms$remove_group EXTERNAL cms$remove_group ! ! Returns a reserved element or elements to the library and creates a new ! generation of the element or element to identify the changes. ! INTEGER*4 cms$replace EXTERNAL cms$replace ! ! Retrieves one or more generations from one or more archive files. ! INTEGER*4 cms$retrieve_archive EXTERNAL cms$retrieve_archive ! ! Associates a review comment with each specified element generation that is ! currently under review and allows changing the review status of each ! specified generation. ! INTEGER*4 cms$review_generation EXTERNAL cms$review_generation ! ! Manipulates the access control list (ACL) on various objects in the CMS ! library. ! INTEGER*4 cms$set_acl EXTERNAL cms$set_acl ! ! Enables access to an existing CMS library. This routine initializes a library ! data block for use with other CMS callable routines. ! INTEGER*4 cms$set_library EXTERNAL cms$set_library ! ! Removes one or more libraries from the current library search list. ! INTEGER*4 cms$set_nolibrary EXTERNAL cms$set_nolibrary ! ! Displays the ACL associated with one or more specified objects. ! INTEGER*4 cms$show_acl EXTERNAL cms$show_acl ! ! Displays information about the content of one or more archive files. ! INTEGER*4 cms$show_archive EXTERNAL cms$show_archive ! ! Provides information about one or more classes in a CMS library. ! INTEGER*4 cms$show_class EXTERNAL cms$show_class ! ! Provides information about one or more elements in a CMS library. ! INTEGER*4 cms$show_element EXTERNAL cms$show_element ! ! Displays information about one or more element generations in a CMS library. ! INTEGER*4 cms$show_generation EXTERNAL cms$show_generation ! ! Provides information about one or more groups in a CMS library. ! INTEGER*4 cms$show_group EXTERNAL cms$show_group ! ! Provides (in chronological order) records of transactions performed on a ! CMS library. ! INTEGER*4 cms$show_history EXTERNAL cms$show_history ! ! Provides information about the current library. ! INTEGER*4 cms$show_library EXTERNAL cms$show_library ! ! Provides information about all current reservations and concurrent ! replacements in effect at the time the routine is called. ! INTEGER*4 cms$show_reservations EXTERNAL cms$show_reservations ! ! Displays a list of element generations that currently have review ! pending status. Also shows the associated review remarks. ! INTEGER*4 cms$show_reviews_pending EXTERNAL cms$show_reviews_pending ! ! Provides version identification of the CMS system currently in use. ! INTEGER*4 cms$show_version EXTERNAL cms$show_version ! ! Cancels the reservation for one or more elements. ! The 4th parameter, "reserved", must be provided with the value 0. ! INTEGER*4 cms$unreserve EXTERNAL cms$unreserve ! ! Performs a series of consistency checks on the present library. ! INTEGER*4 cms$verify EXTERNAL cms$verify ! ! Message Definitions ! PARAMETER CMS$_FACILITY = '0000009C'X PARAMETER CMS$_ABSTIM = '009C800A'X PARAMETER CMS$_ACCVIORD = '009C8014'X PARAMETER CMS$_ACCVIOWT = '009C801C'X PARAMETER CMS$_ALL = '009C8021'X PARAMETER CMS$_ALPHACHAR = '009C802A'X PARAMETER CMS$_ALRDYEXISTS = '009C8032'X PARAMETER CMS$_ALRDYINCLS = '009C803A'X PARAMETER CMS$_ALRDYINGRP = '009C8042'X PARAMETER CMS$_ANNOTATED = '009C8049'X PARAMETER CMS$_ANNOTATIONS = '009C8051'X PARAMETER CMS$_ARGCONFLICT = '009C805A'X PARAMETER CMS$_ARGCOUNTERR = '009C8062'X PARAMETER CMS$_BADBUG = '009C806C'X PARAMETER CMS$_BADCALL = '009C8074'X PARAMETER CMS$_BADCRC = '009C8078'X PARAMETER CMS$_BADLIB = '009C8084'X PARAMETER CMS$_BADCRETIME = '009C808A'X PARAMETER CMS$_BADLENSTR = '009C8092'X PARAMETER CMS$_BADLSTSTR = '009C809A'X PARAMETER CMS$_BADORDSTR = '009C80A2'X PARAMETER CMS$_BADPTR = '009C80AA'X PARAMETER CMS$_BADTYPSTR = '009C80B2'X PARAMETER CMS$_BADVERSTR = '009C80BA'X PARAMETER CMS$_BCKPTRSTR = '009C80C2'X PARAMETER CMS$_CNTSTR = '009C80CA'X PARAMETER CMS$_BADSTRING = '009C80D2'X PARAMETER CMS$_BADVERSION = '009C80DA'X PARAMETER CMS$_BUG = '009C80E4'X PARAMETER CMS$_CLASSGENEXP = '009C80EB'X PARAMETER CMS$_CMPSIGNAL = '009C80F3'X PARAMETER CMS$_COMPARED = '009C80F9'X PARAMETER CMS$_CONCLS = '009C8103'X PARAMETER CMS$_CONCURRENT = '009C8109'X PARAMETER CMS$_CONELE = '009C8113'X PARAMETER CMS$_CONFIRM = '009C8119'X PARAMETER CMS$_CONFLICTS = '009C8120'X PARAMETER CMS$_CONGRP = '009C812B'X PARAMETER CMS$_CONHIS = '009C8133'X PARAMETER CMS$_CONRES = '009C813B'X PARAMETER CMS$_CONVERTED = '009C8141'X PARAMETER CMS$_CONVERTLIB = '009C814A'X PARAMETER CMS$_COPIED = '009C8151'X PARAMETER CMS$_COPIES = '009C8159'X PARAMETER CMS$_CREATED = '009C8161'X PARAMETER CMS$_CREATES = '009C8169'X PARAMETER CMS$_DEFAULTDIR = '009C8172'X PARAMETER CMS$_DELETED = '009C8179'X PARAMETER CMS$_DELETIONS = '009C8181'X PARAMETER CMS$_DIFFERENT = '009C818B'X PARAMETER CMS$_DUPEDF = '009C8192'X ! PARAMETER CMS$_EDFMISS = '009C819A'X PARAMETER CMS$_ELEEXISTS = '009C81A2'X PARAMETER CMS$_ELEEXP = '009C81AB'X PARAMETER CMS$_ELEXPIGN = '009C81B0'X PARAMETER CMS$_ENDOFLIST = '009C81BA'X PARAMETER CMS$_ENDPTRSTR = '009C81C2'X PARAMETER CMS$_EOF = '009C81C8'X PARAMETER CMS$_ERRANNOTATIONS = '009C81D2'X PARAMETER CMS$_ERRCLOSE = '009C81DA'X PARAMETER CMS$_ERRCOPIES = '009C81E2'X PARAMETER CMS$_ERRCREATES = '009C81EA'X PARAMETER CMS$_ERRDELETIONS = '009C81F2'X PARAMETER CMS$_ERRFETCHES = '009C81FA'X PARAMETER CMS$_ERRINSERTIONS = '009C8202'X PARAMETER CMS$_ERRMODIFIES = '009C820A'X PARAMETER CMS$_ERREMOVALS = '009C8212'X PARAMETER CMS$_ERREPLACEMENTS = '009C821A'X PARAMETER CMS$_ERRESERVATIONS = '009C8222'X PARAMETER CMS$_ERRELEHIS = '009C822A'X PARAMETER CMS$_ERRUNRESERVES = '009C8232'X PARAMETER CMS$_ERRVER2 = '009C823A'X PARAMETER CMS$_ERRVERARC = '009C8242'X PARAMETER CMS$_ERRVERCLS = '009C824A'X PARAMETER CMS$_ERRVERCON = '009C8252'X PARAMETER CMS$_ERRVEREDFS = '009C825A'X PARAMETER CMS$_ERRVERELE = '009C8262'X PARAMETER CMS$_ERRVERFRE = '009C826A'X PARAMETER CMS$_ERRVERGRP = '009C8272'X PARAMETER CMS$_ERRVERRES = '009C827A'X PARAMETER CMS$_ERRVERSTR = '009C8282'X PARAMETER CMS$_EXCLUDE = '009C8289'X PARAMETER CMS$_EXIT = '009C8292'X PARAMETER CMS$_FETCHED = '009C8299'X PARAMETER CMS$_FETCHES = '009C82A1'X PARAMETER CMS$_FILEXISTS = '009C82AB'X PARAMETER CMS$_FILINUSE = '009C82B3'X PARAMETER CMS$_FIXCRC = '009C82BB'X PARAMETER CMS$_FIXHDR = '009C82C3'X PARAMETER CMS$_GENCREATED = '009C82C9'X PARAMETER CMS$_GENEXISTS = '009C82D2'X PARAMETER CMS$_GENINSERTED = '009C82D9'X PARAMETER CMS$_GENNOINSERT = '009C82E2'X PARAMETER CMS$_GENNOREMOVE = '009C82EA'X PARAMETER CMS$_GENNOTFOUND = '009C82F2'X PARAMETER CMS$_GENREMOVED = '009C82F9'X PARAMETER CMS$_GROUPEXP = '009C8303'X PARAMETER CMS$_HASFILES = '009C830A'X PARAMETER CMS$_HASMEMBERS = '009C8312'X PARAMETER CMS$_HISNOTSTM = '009C831A'X PARAMETER CMS$_HISTDEL = '009C8321'X PARAMETER CMS$_IDENTICAL = '009C8329'X PARAMETER CMS$_ILLCHAR = '009C8332'X PARAMETER CMS$_ILLCLSNAM = '009C833A'X PARAMETER CMS$_ILLCONREC = '009C8344'X PARAMETER CMS$_ILLDATREC = '009C834C'X PARAMETER CMS$_ILLEGALDEV = '009C8352'X PARAMETER CMS$_ILLELENAM = '009C835A'X PARAMETER CMS$_ILLELEXP = '009C8362'X PARAMETER CMS$_ILLFORMAT = '009C836A'X PARAMETER CMS$_ILLGEN = '009C8372'X PARAMETER CMS$_ILLGRPNAM = '009C837A'X PARAMETER CMS$_ILLHIST = '009C8384'X PARAMETER CMS$_ILLNAME = '009C838A'X PARAMETER CMS$_ILLNOTE = '009C8394'X PARAMETER CMS$_ILLPAR = '009C839A'X PARAMETER CMS$_ILLPOSVAL = '009C83A2'X PARAMETER CMS$_ILLREFDIR = '009C83AA'X PARAMETER CMS$_ILLRMK = '009C83B2'X PARAMETER CMS$_ILLSEQ = '009C83BC'X PARAMETER CMS$_ILLVAR = '009C83C2'X PARAMETER CMS$_INSERTED = '009C83C9'X PARAMETER CMS$_INSERTIONS = '009C83D1'X PARAMETER CMS$_INUSE = '009C83DB'X PARAMETER CMS$_INVFETDB = '009C83E2'X PARAMETER CMS$_INVLENGTH = '009C83EC'X PARAMETER CMS$_INVLIBDB = '009C83F2'X PARAMETER CMS$_INVOKERBK = '009C83FB'X PARAMETER CMS$_INVSTRDES = '009C8404'X PARAMETER CMS$_ISMEMBER = '009C840A'X PARAMETER CMS$_ISRESERVED = '009C8412'X PARAMETER CMS$_LIBIS = '009C841B'X PARAMETER CMS$_LIBSET = '009C8421'X PARAMETER CMS$_MAXARG = '009C842C'X PARAMETER CMS$_MERGECONFLICT = '009C8430'X PARAMETER CMS$_MERGECOUNT = '009C843B'X PARAMETER CMS$_MERGED = '009C8443'X PARAMETER CMS$_MINARG = '009C844C'X PARAMETER CMS$_MISBLKSTR = '009C8452'X PARAMETER CMS$_MISMATCON = '009C845C'X PARAMETER CMS$_MODIFIED = '009C8461'X PARAMETER CMS$_MODIFICATIONS = '009C8469'X PARAMETER CMS$_MSGBUILD = '009C8473'X PARAMETER CMS$_MSGCANCEL = '009C847B'X PARAMETER CMS$_MSGCONTINUE = '009C8483'X PARAMETER CMS$_MSGPOST = '009C848B'X PARAMETER CMS$_MSSBLKSTR = '009C8492'X PARAMETER CMS$_MULTCALL = '009C8498'X PARAMETER CMS$_MULTPAR = '009C84A2'X PARAMETER CMS$_MUSTBEDIR = '009C84AA'X PARAMETER CMS$_MUSTBEFIL = '009C84B2'X PARAMETER CMS$_MUSTBEPOS = '009C84BA'X PARAMETER CMS$_MUTEXC = '009C84C2'X PARAMETER CMS$_NEEDNUMBER = '009C84CA'X PARAMETER CMS$_NEEDPERIOD = '009C84D2'X PARAMETER CMS$_NETNOTALL = '009C84DA'X PARAMETER CMS$_NOALTDELETE = '009C84E2'X PARAMETER CMS$_NOANNOTATE = '009C84EA'X PARAMETER CMS$_NOBACKUP = '009C84F4'X PARAMETER CMS$_NOCHANGES = '009C84FB'X PARAMETER CMS$_NOCLOSE = '009C8504'X PARAMETER CMS$_NOCLS = '009C8508'X PARAMETER CMS$_NOCOMPARE = '009C8512'X PARAMETER CMS$_NOCONCUR = '009C851A'X PARAMETER CMS$_NOCONFIRM = '009C8520'X PARAMETER CMS$_NOCONRES = '009C852A'X PARAMETER CMS$_NOCONVERT = '009C8532'X PARAMETER CMS$_NOCOPY = '009C853A'X PARAMETER CMS$_NOCREATE = '009C8542'X PARAMETER CMS$_NODELETE = '009C854A'X PARAMETER CMS$_NODELFUTURE = '009C8552'X PARAMETER CMS$_NOELE = '009C8558'X PARAMETER CMS$_NOELEENT = '009C8562'X ! PARAMETER CMS$_NOERRLOG = '009C856A'X PARAMETER CMS$_NOFETCH = '009C8572'X PARAMETER CMS$_NOFILE = '009C857A'X PARAMETER CMS$_NOGRP = '009C8580'X PARAMETER CMS$_NOHIS = '009C8588'X PARAMETER CMS$_NOHISPAR = '009C8592'X PARAMETER CMS$_NOINSERT = '009C859A'X PARAMETER CMS$_NOINPUT = '009C85A2'X PARAMETER CMS$_NOMATCH = '009C85AA'X PARAMETER CMS$_NOMODARG = '009C85B2'X PARAMETER CMS$_NOMODIFY = '009C85BA'X PARAMETER CMS$_NOMOREPARAM = '009C85C2'X PARAMETER CMS$_NORECOVER = '009C85CA'X PARAMETER CMS$_NOREF = '009C85D2'X PARAMETER CMS$_NOREMARK = '009C85DA'X PARAMETER CMS$_NOREMOVAL = '009C85E2'X PARAMETER CMS$_NOREPAIR = '009C85EA'X PARAMETER CMS$_NOREPEDF = '009C85F2'X PARAMETER CMS$_NOREPLACE = '009C85FA'X PARAMETER CMS$_NOREPRO = '009C8602'X PARAMETER CMS$_NORES = '009C8608'X PARAMETER CMS$_NORESERVATION = '009C8612'X PARAMETER CMS$_NORESNOCON = '009C861A'X PARAMETER CMS$_NORESRO = '009C8622'X PARAMETER CMS$_NORMAL = '009C8629'X PARAMETER CMS$_NOSINCE = '009C8632'X PARAMETER CMS$_NOSRCHLST = '009C863A'X PARAMETER CMS$_NOSUPERSEDE = '009C8642'X PARAMETER CMS$_NOTBYCMS = '009C864A'X PARAMETER CMS$_NOTCOMPLETED = '009C8652'X PARAMETER CMS$_NOTCMSLIB = '009C865A'X PARAMETER CMS$_NOTCRELIB = '009C8660'X PARAMETER CMS$_NOTESVALREQ = '009C8668'X PARAMETER CMS$_NOTFOUND = '009C8672'X PARAMETER CMS$_NOTLOGGED = '009C867B'X PARAMETER CMS$_NOTRESBYOU = '009C8682'X PARAMETER CMS$_NOTSET = '009C868A'X PARAMETER CMS$_NOTTHERE = '009C8692'X PARAMETER CMS$_NOTWILD = '009C8699'X PARAMETER CMS$_NOUNRESERVE = '009C86A2'X PARAMETER CMS$_NOVERIFY = '009C86AA'X PARAMETER CMS$_NOWLDCARD = '009C86B2'X PARAMETER CMS$_NULLARG = '009C86BC'X PARAMETER CMS$_NULLSTR = '009C86C2'X PARAMETER CMS$_NUMGENEXP = '009C86CB'X PARAMETER CMS$_OLDSYNTAX = '009C86D3'X PARAMETER CMS$_ONEPERIOD = '009C86DA'X PARAMETER CMS$_OPENIN = '009C86E2'X PARAMETER CMS$_OPENIN1 = '009C86EA'X PARAMETER CMS$_OPENIN2 = '009C86F2'X PARAMETER CMS$_OPENOUT = '009C86FA'X PARAMETER CMS$_OVERDRAFT = '009C8703'X PARAMETER CMS$_POSVALREQ = '009C870A'X PARAMETER CMS$_PROCEEDING = '009C8713'X PARAMETER CMS$_QUALCONFLICT = '009C871A'X PARAMETER CMS$_READERR = '009C8722'X PARAMETER CMS$_READIN = '009C872A'X PARAMETER CMS$_READONLY = '009C8732'X PARAMETER CMS$_RECGRP = '009C873A'X PARAMETER CMS$_RECNOTNEC = '009C8742'X PARAMETER CMS$_RECOVERED = '009C8749'X PARAMETER CMS$_REMARK = '009C8751'X PARAMETER CMS$_REMOVALS = '009C8759'X PARAMETER CMS$_REMOVED = '009C8761'X PARAMETER CMS$_REPAIRED = '009C8769'X PARAMETER CMS$_REPDEL = '009C8773'X PARAMETER CMS$_REPEDF = '009C877B'X PARAMETER CMS$_REPLACEMENTS = '009C8781'X PARAMETER CMS$_RESERVATIONS = '009C8789'X PARAMETER CMS$_RESERVED = '009C8791'X PARAMETER CMS$_RESERVEDBYYOU = '009C879A'X PARAMETER CMS$_SAMELINE = '009C87A2'X PARAMETER CMS$_SEQFAIL = '009C87AC'X PARAMETER CMS$_SEQUENCED = '009C87B1'X PARAMETER CMS$_STARTHIS = '009C87BA'X PARAMETER CMS$_STOPPED = '009C87C1'X PARAMETER CMS$_SYSTIMERR = '009C87CA'X PARAMETER CMS$_SYSTIMDIF = '009C87D2'X PARAMETER CMS$_TIMEORDER = '009C87DA'X PARAMETER CMS$_TOOLONG = '009C87E2'X PARAMETER CMS$_TRYAGNLAT = '009C87EA'X PARAMETER CMS$_UNDEFLIB = '009C87F0'X PARAMETER CMS$_UNFOUT = '009C87FA'X PARAMETER CMS$_UNRECTYPE = '009C8804'X PARAMETER CMS$_UNRESERVED = '009C8809'X PARAMETER CMS$_UNRESERVES = '009C8811'X PARAMETER CMS$_UNSUPFRMT = '009C881A'X PARAMETER CMS$_USERECOVER = '009C8822'X PARAMETER CMS$_USEREPAIR = '009C882A'X PARAMETER CMS$_USERERR = '009C8832'X PARAMETER CMS$_USESETLIB = '009C883A'X PARAMETER CMS$_VARLETTER = '009C8842'X PARAMETER CMS$_VER2 = '009C884B'X PARAMETER CMS$_VERARC = '009C8853'X PARAMETER CMS$_VERCLS = '009C885B'X PARAMETER CMS$_VERCON = '009C8863'X PARAMETER CMS$_VEREDF = '009C886B'X PARAMETER CMS$_VEREDFERR = '009C8872'X PARAMETER CMS$_VEREDFS = '009C887B'X PARAMETER CMS$_VERELE = '009C8883'X PARAMETER CMS$_VERFRE = '009C888B'X PARAMETER CMS$_VERGRP = '009C8893'X PARAMETER CMS$_VERIFIED = '009C8899'X PARAMETER CMS$_VERLMTERR = '009C88A2'X PARAMETER CMS$_VERRES = '009C88AB'X PARAMETER CMS$_VERSTR = '009C88B3'X PARAMETER CMS$_WAITING = '009C88BB'X PARAMETER CMS$_WILDCONFLICT = '009C88C2'X PARAMETER CMS$_WILDMATCH = '009C88CB'X PARAMETER CMS$_WILDNOMATCH = '009C88D2'X PARAMETER CMS$_WILDVER = '009C88DA'X PARAMETER CMS$_WRITEERR = '009C88E2'X PARAMETER CMS$_ZEROADD = '009C88EA'X PARAMETER CMS$_ZLENBLK = '009C88F2'X PARAMETER CMS$_ERRHISLINE = '009C88FA'X PARAMETER CMS$_GENRECSIZE = '009C8902'X PARAMETER CMS$_NOHISNOTES = '009C890B'X PARAMETER CMS$_SIZEMISMAT = '009C8912'X PARAMETER CMS$_CONTROLC = '009C8918'X PARAMETER CMS$_INVFIXMRS = '009C8922'X PARAMETER CMS$_REPGENMRS = '009C892B'X PARAMETER CMS$_NOREPGENMRS = '009C8932'X PARAMETER CMS$_GENNOTANC = '009C893A'X PARAMETER CMS$_ERRPAREXP = '009C8942'X PARAMETER CMS$_LIBALRINLIS = '009C894A'X PARAMETER CMS$_LIBINSLIS = '009C8953'X PARAMETER CMS$_LIBLISMOD = '009C895B'X PARAMETER CMS$_LIBLISNOTMOD = '009C8962'X PARAMETER CMS$_LIBNOTINLIS = '009C896A'X PARAMETER CMS$_LIBREMLIS = '009C8973'X PARAMETER CMS$_MSGUPDATE = '009C897B'X PARAMETER CMS$_NOCOMMALIST = '009C8982'X PARAMETER CMS$_NODELETIONS = '009C898A'X PARAMETER CMS$_TOOMANYLIBS = '009C8992'X PARAMETER CMS$_WILDNEEDED = '009C899A'X PARAMETER CMS$_NOACCESS = '009C89A2'X PARAMETER CMS$_CONVNOTNEC = '009C89AA'X PARAMETER CMS$_MODACL = '009C89B1'X PARAMETER CMS$_NOMODACL = '009C89BA'X PARAMETER CMS$_MODACLS = '009C89C1'X PARAMETER CMS$_ERRMODACLS = '009C89CA'X PARAMETER CMS$_ILLSUBTYP = '009C89D2'X PARAMETER CMS$_ILLOBJTYP = '009C89DA'X PARAMETER CMS$_NOOBJTYP = '009C89E2'X PARAMETER CMS$_NODEFACL = '009C89EA'X PARAMETER CMS$_NOACE = '009C89F0'X PARAMETER CMS$_NOCMD = '009C89F8'X PARAMETER CMS$_ERRVERCMD = '009C8A02'X PARAMETER CMS$_VERCMD = '009C8A0B'X PARAMETER CMS$_NOOBJ = '009C8A10'X PARAMETER CMS$_GENMULTRES = '009C8A1A'X PARAMETER CMS$_ELEMULTRES = '009C8A22'X PARAMETER CMS$_IDENTNOTRES = '009C8A2A'X PARAMETER CMS$_GENNOTRES = '009C8A32'X PARAMETER CMS$_REVPENDING = '009C8A3A'X PARAMETER CMS$_NOREV = '009C8A40'X PARAMETER CMS$_ACCEPTED = '009C8A49'X PARAMETER CMS$_CANCELED = '009C8A51'X PARAMETER CMS$_MARKED = '009C8A59'X PARAMETER CMS$_REJECTED = '009C8A61'X PARAMETER CMS$_REVIEWED = '009C8A69'X PARAMETER CMS$_ACCEPTANCES = '009C8A71'X PARAMETER CMS$_CANCELATIONS = '009C8A79'X PARAMETER CMS$_MARKS = '009C8A81'X PARAMETER CMS$_REJECTIONS = '009C8A89'X PARAMETER CMS$_REVIEWS = '009C8A91'X PARAMETER CMS$_NOACCEPT = '009C8A9A'X PARAMETER CMS$_NOCANCEL = '009C8AA2'X PARAMETER CMS$_NOMARK = '009C8AAA'X PARAMETER CMS$_NOREJECT = '009C8AB2'X PARAMETER CMS$_NOREVIEW = '009C8ABA'X PARAMETER CMS$_ERRACCEPTANCES = '009C8AC2'X PARAMETER CMS$_ERRCANCELATIONS = '009C8ACA'X PARAMETER CMS$_ERRMARKS = '009C8AD2'X PARAMETER CMS$_ERRREJECTIONS = '009C8ADA'X PARAMETER CMS$_ERRREVIEWS = '009C8AE2'X PARAMETER CMS$_ALRDYMARKED = '009C8AEA'X PARAMETER CMS$_NOREVPEND = '009C8AF2'X PARAMETER CMS$_NOREVSPEND = '009C8AFA'X PARAMETER CMS$_ILLACT = '009C8B02'X PARAMETER CMS$_AUTOREC = '009C8B0B'X PARAMETER CMS$_AUTORECSUC = '009C8B13'X PARAMETER CMS$_GENDELETED = '009C8B19'X PARAMETER CMS$_NOGENDELETED = '009C8B22'X PARAMETER CMS$_GENDELETIONS = '009C8B29'X PARAMETER CMS$_ERRGENDELETIONS = '009C8B32'X PARAMETER CMS$_NOTDIRDES = '009C8B3A'X PARAMETER CMS$_VARINRANGE = '009C8B42'X PARAMETER CMS$_GENRESREV = '009C8B4A'X PARAMETER CMS$_INCRANGSPEC = '009C8B52'X PARAMETER CMS$_NODELGEN1 = '009C8B5A'X PARAMETER CMS$_NOGENS = '009C8B62'X PARAMETER CMS$_BADFORMAT = '009C8B6A'X PARAMETER CMS$_OPENARC = '009C8B72'X PARAMETER CMS$_NORETRIEVE = '009C8B7A'X PARAMETER CMS$_RETRIEVALS = '009C8B81'X PARAMETER CMS$_RETRIEVED = '009C8B89'X PARAMETER CMS$_ILLARCREC = '009C8B92'X PARAMETER CMS$_ERRETRIEVALS = '009C8B9A'X PARAMETER CMS$_NOREFDIR = '009C8BA2'X PARAMETER CMS$_DUPREF = '009C8BAA'X PARAMETER CMS$_REFMISS = '009C8BB2'X PARAMETER CMS$_NOREFELE = '009C8BBA'X PARAMETER CMS$_REPREF = '009C8BC3'X PARAMETER CMS$_NOREPREF = '009C8BCA'X PARAMETER CMS$_VERREF = '009C8BD3'X PARAMETER CMS$_VERREFERR = '009C8BDA'X PARAMETER CMS$_VERREFS = '009C8BE3'X PARAMETER CMS$_ERRVERREFS = '009C8BEA'X PARAMETER CMS$_BADREF = '009C8BF2'X PARAMETER CMS$_REFREPAIR = '009C8BF8'X PARAMETER CMS$_NOTNOREF = '009C8C02'X PARAMETER CMS$_VERREFERRW = '009C8C08'X PARAMETER CMS$_REPCMD = '009C8C13'X PARAMETER CMS$_NOREPCMD = '009C8C1A'X PARAMETER CMS$_REFMISMAT = '009C8C22'X PARAMETER CMS$_SUPERSEDE = '009C8C2B'X PARAMETER CMS$_TOODEEP = '009C8C32'X ! PARAMETER CMS$_EDFINWRONGDIR = '009C8C3A'X PARAMETER CMS$_INVGENLRL = '009C8C42'X PARAMETER CMS$_NOEDFIWDREPAIR = '009C8C4A'X PARAMETER CMS$_NOREPGENLRL = '009C8C52'X PARAMETER CMS$_REPGENLRL = '009C8C5B'X PARAMETER CMS$_GENTOODEEP = '009C8C62'X PARAMETER CMS$_ANNSIGNAL = '009C8C6B'X PARAMETER CMS$_VERILLDATREC = '009C8C72'X PARAMETER CMS$_REPILLDATREC = '009C8C7B'X PARAMETER CMS$_SEQMISMAT = '009C8C82'X PARAMETER CMS$_NOREPSEQDATA = '009C8C88'X PARAMETER CMS$_MANCONLIB = '009C8C92'X PARAMETER CMS$_EXTFOUND = '009C8C9A'X PARAMETER CMS$_EXTENDEDLIB = '009C8CA2'X PARAMETER CMS$_NOEXTENDED = '009C8CAA'X PARAMETER CMS$_NOEXTENDEDREF = '009C8CB2'X PARAMETER CMS$_BADLST = '009C8CBA'X PARAMETER CMS$_BADREFHDR = '009C8CC2'X PARAMETER CMS$_DIFFCLASS = '009C8CCB'X PARAMETER CMS$_ERRVERGEN = '009C8CD2'X PARAMETER CMS$_FREBLKCON = '009C8CDB'X PARAMETER CMS$_IDENTCLASS = '009C8CE1'X PARAMETER CMS$_INCLIBVER = '009C8CEA'X PARAMETER CMS$_LONGVARFOUND = '009C8CF2'X PARAMETER CMS$_NOBCKPTR = '009C8CFA'X PARAMETER CMS$_NODELACCESS = '009C8D02'X PARAMETER CMS$_NOGENBEFORE = '009C8D0A'X PARAMETER CMS$_NOREPBCKPTR = '009C8D12'X PARAMETER CMS$_REPBADLST = '009C8D1B'X PARAMETER CMS$_REPBADTYP = '009C8D23'X PARAMETER CMS$_REPBCKPTR = '009C8D2B'X PARAMETER CMS$_REPCNTSTR = '009C8D33'X PARAMETER CMS$_REPENDPTR = '009C8D3B'X PARAMETER CMS$_REPMISBLK = '009C8D43'X PARAMETER CMS$_TRUNCLST = '009C8D4A'X !DEC$ END OPTIONS