!******************************************************************************************************************************** ! 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 !******************************************************************************************************************************** ! *** PREDECLARED TYPES %IF %DECLARED(%BASIC$QUADWORD_DECLARED) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL(2) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$OCTAWORD_DECLARED) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL(4) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$HFLOAT_AXP_DECLARED) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL(4) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$F_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$D_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$G_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$H_FLOAT_AXP_CMPLX_DCL) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF !*** MODULE CMS$ROUTINES IDENT V4.8-13 *** ! ! 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. ! record cms$l_user_arg_type LONG ITEM end record 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. ! DECLARE LONG CONSTANT ldb$s_ldb_cntrlblk = 228 record ldb_cntrlblk LONG ldb$l_reserved_for_cms1(1 to 4) LONG ldb$l_user_parameter LONG ldb$l_reserved_for_cms2(1 to 52) end record 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. ! DECLARE LONG CONSTANT fdb$s_fdb_cntrlblk = 20 record fdb_cntrlblk LONG fdb$l_reserved_for_cms(1 to 5) end record fdb_cntrlblk ! ! Binary date and Time value. ! record cms$q_date_time BASIC$QUADWORD ITEM end record cms$q_date_time ! ! Position type for cms$create_library and cms$set_library. Used to ! describe order of libraries within a library library search list. ! record position_type LONG ITEM end record position_type DECLARE LONG CONSTANT CMS$K_SUPERSEDE = 0 DECLARE LONG CONSTANT CMS$K_AFTER = 1 DECLARE LONG CONSTANT CMS$K_BEFORE = 2 ! ! 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. ! record string_addr LONG ITEM end record string_addr ! ! Review action type for cms$review_generation. Used to identify action ! taken on each specified generation. ! record review_action_type LONG ITEM end record review_action_type DECLARE LONG CONSTANT CMS$K_ACCEPT = 0 DECLARE LONG CONSTANT CMS$K_CANCEL = 1 DECLARE LONG CONSTANT CMS$K_MARK = 2 DECLARE LONG CONSTANT CMS$K_REJECT = 3 DECLARE LONG CONSTANT CMS$K_REVIEW = 4 ! ! Object type for cms$set_acl and cms$show_acl. Used to identify the type ! of object whose acl is being manipulated. ! record object_types LONG ITEM end record object_types DECLARE LONG CONSTANT CMS$K_ACL_ELEMENT = 1 DECLARE LONG CONSTANT CMS$K_ACL_CLASS = 2 DECLARE LONG CONSTANT CMS$K_ACL_GROUP = 3 DECLARE LONG CONSTANT CMS$K_ACL_LIBRARY = 4 DECLARE LONG CONSTANT CMS$K_ACL_COMMAND = 5 ! ! 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. ! DECLARE LONG CONSTANT CMS$s_format_type = 4 record format_type LONG ASCII_bits ! COMMENT ADDED BY SDL - ASCII_bits contains bits ASCII through spare3 end record format_type ! ! Transaction mask for cms$delete_history and cms$show_history. Defines ! the set of transcation records to be considered. ! DECLARE LONG CONSTANT CMS$s_transaction_mask_type = 4 record transaction_mask_type LONG CMD_COPY_bits ! COMMENT ADDED BY SDL - CMD_COPY_bits contains bits CMD_COPY through spare3 end record 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. ! DECLARE LONG CONSTANT CMS$M_IGNORE_FORM = x'00000001' DECLARE LONG CONSTANT CMS$M_IGNORE_LEAD = x'00000002' DECLARE LONG CONSTANT CMS$M_IGNORE_TRAIL = x'00000004' DECLARE LONG CONSTANT CMS$M_IGNORE_SPACE = x'00000008' DECLARE LONG CONSTANT CMS$M_IGNORE_CASE = x'00000010' DECLARE LONG CONSTANT CMS$M_IGNORE_HISTORY = x'00000020' DECLARE LONG CONSTANT CMS$M_IGNORE_NOTES = x'00000040' DECLARE LONG CONSTANT CMS$M_IGNORE_FIRST_VARIANT = x'80000000' DECLARE LONG CONSTANT CMS$s_ignore_mask_type = 4 record ignore_mask_type LONG IGNORE_FORM_bits ! COMMENT ADDED BY SDL - IGNORE_FORM_bits contains bits IGNORE_FORM through IGNORE_FIRST_VARIANT end record ignore_mask_type ! ! Show mask for cms$differences_class. ! DECLARE LONG CONSTANT CMS$M_ELEMENT_DIF = x'00000001' DECLARE LONG CONSTANT CMS$M_GENERATIONAL_DIF = x'00000002' DECLARE LONG CONSTANT CMS$M_VARIANT_DIF = x'00000004' DECLARE LONG CONSTANT CMS$s_show_mask_type = 4 record show_mask_type LONG ELEMENT_DIF_bits ! COMMENT ADDED BY SDL - ELEMENT_DIF_bits contains bits ELEMENT_DIF through spare end record show_mask_type ! ! Library statistics provided by cms$show_library. ! DECLARE LONG CONSTANT CMS$s_statistics_type = 40 record statistics_type LONG CMS$L_ELEMENTS_COUNT LONG CMS$L_GROUPS_COUNT LONG CMS$L_CLASSES_COUNT LONG CMS$L_RESERVATIONS_COUNT LONG CMS$L_CONCURRENT_REPLACEMENTS_COUN LONG CMS$L_REVIEWS_PENDING_COUNT LONG CMS$l_reserved_for_CMS(1 to 4) end record statistics_type ! ! Creates an annotated listing file of the specifed element generation and ! places it in your current default directory. ! EXTERNAL LONG FUNCTION cms$annotate & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF, & cms$l_user_arg_type BY REF, & LONG BY REF, & format_type BY REF & ) ! ! 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. ! EXTERNAL SUB cms$asynch_terminate ! ! Parse and executes the command line and then returns to the calling program ! EXTERNAL LONG FUNCTION cms$cms & ( & OPTIONAL STRING BY DESC, & LONG BY REF, & LONG BY REF, & LONG BY REF, & LONG BY REF, & LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$copy_class & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & ldb_cntrlblk BY REF, & LONG BY REF & ) ! ! Copies an existing element to form a new one with a different name. ! EXTERNAL LONG FUNCTION cms$copy_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & ldb_cntrlblk BY REF, & LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$copy_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & ldb_cntrlblk BY REF, & LONG BY REF & ) ! ! Creates an empty class with the name specifed by the class_name argument. ! EXTERNAL LONG FUNCTION cms$create_class & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF, & BYTE BY REF & ) ! ! Creates a new element in a CMS library. ! EXTERNAL LONG FUNCTION cms$create_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF, & cms$l_user_arg_type BY REF, & LONG BY REF, & BYTE BY REF & ) ! ! Creates an empty group ! EXTERNAL LONG FUNCTION cms$create_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF & ) ! ! Creates a new CMS library in an existing empty directory. ! EXTERNAL LONG FUNCTION cms$create_library & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & LONG BY REF, & LONG BY REF, & LONG BY REF, & LONG BY REF, & position_type BY REF, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & LONG BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$delete_class & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF, & BYTE BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$delete_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF & ) ! ! Deletes one or more generations of one or more elements from a CMS ! library. ! EXTERNAL LONG FUNCTION cms$delete_generation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$delete_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF, & BYTE BY REF & ) ! ! Deletes all or part of the library History. ! EXTERNAL LONG FUNCTION cms$delete_history & ( & ldb_cntrlblk BY REF, & OPTIONAL STRING BY DESC, & cms$q_date_time BY REF, & transaction_mask_type BY REF, & LONG BY REF, & cms$l_user_arg_type BY REF, & LONG BY REF, & STRING BY DESC, & STRING BY DESC & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$differences & ( & ldb_cntrlblk BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & LONG BY REF, & STRING BY DESC, & STRING BY DESC, & LONG BY REF, & STRING BY DESC, & STRING BY DESC, & LONG BY REF, & BYTE BY REF, & ignore_mask_type BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & format_type BY REF, & LONG BY REF, & LONG BY REF, & BYTE BY REF, & LONG BY REF, & STRING BY DESC, & STRING BY DESC & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$differences_class & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL BYTE BY REF, & format_type BY REF, & BYTE BY REF, & ignore_mask_type BY REF, & BYTE BY REF, & BYTE BY REF, & show_mask_type BY REF, & LONG BY REF, & STRING BY DESC, & LONG BY REF, & cms$l_user_arg_type BY REF, & LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$fetch & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF, & BYTE BY REF, & STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Terminates a fetch transaction initiated by CMS$FETCH_OPEN. ! EXTERNAL LONG FUNCTION cms$fetch_close & ( & fdb_cntrlblk BY REF, & OPTIONAL LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$fetch_get & ( & fdb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF, & STRING BY DESC, & LONG BY REF & ) ! ! 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. ! EXTERNAL LONG FUNCTION cms$fetch_open & ( & fdb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF & ) ! ! Translates a string identifier. ! EXTERNAL LONG FUNCTION cms$get_string & ( & string_addr BY REF, & STRING BY DESC & ) ! ! Places one or more elements in the specified group. ! EXTERNAL LONG FUNCTION cms$insert_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Places one or more element generations in the specified class or classes. ! EXTERNAL LONG FUNCTION cms$insert_generation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & LONG BY REF, & cms$q_date_time BY REF & ) ! ! Places one or more groups in the specifed groups. ! EXTERNAL LONG FUNCTION cms$insert_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Changes the characteristics of the specified class or classes. ! EXTERNAL LONG FUNCTION cms$modify_class & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Changes the characteristices of an existing element. ! EXTERNAL LONG FUNCTION cms$modify_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF, & BYTE BY REF, & BYTE BY REF, & LONG BY REF, & BYTE BY REF & ) ! ! Alters information associated with one or more generations of an element. ! EXTERNAL LONG FUNCTION cms$modify_generation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Changes the characteristics of an existing group. ! EXTERNAL LONG FUNCTION cms$modify_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Establishes or removes the connection between a CMS library and a reference ! copy directory. ! EXTERNAL LONG FUNCTION cms$modify_library & ( & ldb_cntrlblk BY REF, & OPTIONAL STRING BY DESC, & STRING BY DESC, & LONG BY REF, & BYTE BY REF, & BYTE BY REF, & LONG BY REF, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF & ) ! ! Alters information associated with one or more reservations of an element. ! EXTERNAL LONG FUNCTION cms$modify_reservation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF, & STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Passes a string from a callback routine to CMS. ! EXTERNAL LONG FUNCTION cms$put_string & ( & STRING BY DESC & ) ! ! Places a remark in the library history. ! EXTERNAL LONG FUNCTION cms$remark & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & LONG BY REF, & OPTIONAL BYTE BY REF & ) ! ! Removes an element from one or more groups. ! EXTERNAL LONG FUNCTION cms$remove_element & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Removes an element generation from one or more classes. ! EXTERNAL LONG FUNCTION cms$remove_generation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & LONG BY REF, & STRING BY DESC & ) ! ! Removes one of more groups from another group or groups. ! EXTERNAL LONG FUNCTION cms$remove_group & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & OPTIONAL STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Returns a reserved element or elements to the library and creates a new ! generation of the element or element to identify the changes. ! EXTERNAL LONG FUNCTION cms$replace & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF, & cms$l_user_arg_type BY REF, & LONG BY REF, & BYTE BY REF, & STRING BY DESC, & LONG BY REF, & STRING BY DESC & ) ! ! Retrieves one or more generations from one or more archive files. ! EXTERNAL LONG FUNCTION cms$retrieve_archive & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Associates a review comment with each specified element generation that is ! currently under review and allows changing the review status of each ! specified generation. ! EXTERNAL LONG FUNCTION cms$review_generation & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & review_action_type BY REF, & OPTIONAL STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Manipulates the access control list (ACL) on various objects in the CMS ! library. ! EXTERNAL LONG FUNCTION cms$set_acl & ( & ldb_cntrlblk BY REF, & object_types BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & STRING BY DESC, & BYTE BY REF, & STRING BY DESC, & LONG BY REF & ) ! ! Enables access to an existing CMS library. This routine initializes a library ! data block for use with other CMS callable routines. ! EXTERNAL LONG FUNCTION cms$set_library & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF, & BYTE BY REF, & LONG BY REF, & LONG BY REF, & LONG BY REF, & position_type BY REF, & STRING BY DESC & ) ! ! Removes one or more libraries from the current library search list. ! EXTERNAL LONG FUNCTION cms$set_nolibrary & ( & ldb_cntrlblk BY REF, & OPTIONAL STRING BY DESC & ) ! ! Displays the ACL associated with one or more specified objects. ! EXTERNAL LONG FUNCTION cms$show_acl & ( & ldb_cntrlblk BY REF, & LONG BY REF, & object_types BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & LONG BY REF & ) ! ! Displays information about the content of one or more archive files. ! EXTERNAL LONG FUNCTION cms$show_archive & ( & STRING BY DESC, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & LONG BY REF & ) ! ! Provides information about one or more classes in a CMS library. ! EXTERNAL LONG FUNCTION cms$show_class & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & LONG BY REF & ) ! ! Provides information about one or more elements in a CMS library. ! EXTERNAL LONG FUNCTION cms$show_element & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & BYTE BY REF, & LONG BY REF & ) ! ! Displays information about one or more element generations in a CMS library. ! EXTERNAL LONG FUNCTION cms$show_generation & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & BYTE BY REF, & LONG BY REF, & cms$q_date_time BY REF, & cms$q_date_time BY REF & ) ! ! Provides information about one or more groups in a CMS library. ! EXTERNAL LONG FUNCTION cms$show_group & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & LONG BY REF, & BYTE BY REF & ) ! ! Provides (in chronological order) records of transactions performed on a ! CMS library. ! EXTERNAL LONG FUNCTION cms$show_history & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & STRING BY DESC, & cms$q_date_time BY REF, & cms$q_date_time BY REF, & transaction_mask_type BY REF, & LONG BY REF & ) ! ! Provides information about the current library. ! EXTERNAL LONG FUNCTION cms$show_library & ( & ldb_cntrlblk BY REF, & OPTIONAL STRING BY DESC, & statistics_type BY REF, & LONG BY REF, & BYTE BY REF, & LONG BY REF, & cms$l_user_arg_type BY REF & ) ! ! Provides information about all current reservations and concurrent ! replacements in effect at the time the routine is called. ! EXTERNAL LONG FUNCTION cms$show_reservations & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF, & LONG BY REF & ) ! ! Displays a list of element generations that currently have review ! pending status. Also shows the associated review remarks. ! EXTERNAL LONG FUNCTION cms$show_reviews_pending & ( & ldb_cntrlblk BY REF, & LONG BY REF, & OPTIONAL cms$l_user_arg_type BY REF, & STRING BY DESC, & STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Provides version identification of the CMS system currently in use. ! EXTERNAL LONG FUNCTION cms$show_version & ( & OPTIONAL STRING BY DESC, & STRING BY DESC, & LONG BY REF & ) ! ! Cancels the reservation for one or more elements. ! The 4th parameter, "reserved", must be provided with the value 0. ! EXTERNAL LONG FUNCTION cms$unreserve & ( & ldb_cntrlblk BY REF, & STRING BY DESC, & STRING BY DESC, & LONG BY VALUE, & OPTIONAL BYTE BY REF, & LONG BY REF, & STRING BY DESC, & LONG BY REF, & STRING BY DESC & ) ! ! Performs a series of consistency checks on the present library. ! EXTERNAL LONG FUNCTION cms$verify & ( & ldb_cntrlblk BY REF, & OPTIONAL STRING BY DESC, & STRING BY DESC, & BYTE BY REF, & BYTE BY REF, & LONG BY REF & ) ! ! Message Definitions ! DECLARE LONG CONSTANT CMS$_FACILITY = 156 DECLARE LONG CONSTANT CMS$_ABSTIM = 10256394 DECLARE LONG CONSTANT CMS$_ACCVIORD = 10256404 DECLARE LONG CONSTANT CMS$_ACCVIOWT = 10256412 DECLARE LONG CONSTANT CMS$_ALL = 10256417 DECLARE LONG CONSTANT CMS$_ALPHACHAR = 10256426 DECLARE LONG CONSTANT CMS$_ALRDYEXISTS = 10256434 DECLARE LONG CONSTANT CMS$_ALRDYINCLS = 10256442 DECLARE LONG CONSTANT CMS$_ALRDYINGRP = 10256450 DECLARE LONG CONSTANT CMS$_ANNOTATED = 10256457 DECLARE LONG CONSTANT CMS$_ANNOTATIONS = 10256465 DECLARE LONG CONSTANT CMS$_ARGCONFLICT = 10256474 DECLARE LONG CONSTANT CMS$_ARGCOUNTERR = 10256482 DECLARE LONG CONSTANT CMS$_BADBUG = 10256492 DECLARE LONG CONSTANT CMS$_BADCALL = 10256500 DECLARE LONG CONSTANT CMS$_BADCRC = 10256504 DECLARE LONG CONSTANT CMS$_BADLIB = 10256516 DECLARE LONG CONSTANT CMS$_BADCRETIME = 10256522 DECLARE LONG CONSTANT CMS$_BADLENSTR = 10256530 DECLARE LONG CONSTANT CMS$_BADLSTSTR = 10256538 DECLARE LONG CONSTANT CMS$_BADORDSTR = 10256546 DECLARE LONG CONSTANT CMS$_BADPTR = 10256554 DECLARE LONG CONSTANT CMS$_BADTYPSTR = 10256562 DECLARE LONG CONSTANT CMS$_BADVERSTR = 10256570 DECLARE LONG CONSTANT CMS$_BCKPTRSTR = 10256578 DECLARE LONG CONSTANT CMS$_CNTSTR = 10256586 DECLARE LONG CONSTANT CMS$_BADSTRING = 10256594 DECLARE LONG CONSTANT CMS$_BADVERSION = 10256602 DECLARE LONG CONSTANT CMS$_BUG = 10256612 DECLARE LONG CONSTANT CMS$_CLASSGENEXP = 10256619 DECLARE LONG CONSTANT CMS$_CMPSIGNAL = 10256627 DECLARE LONG CONSTANT CMS$_COMPARED = 10256633 DECLARE LONG CONSTANT CMS$_CONCLS = 10256643 DECLARE LONG CONSTANT CMS$_CONCURRENT = 10256649 DECLARE LONG CONSTANT CMS$_CONELE = 10256659 DECLARE LONG CONSTANT CMS$_CONFIRM = 10256665 DECLARE LONG CONSTANT CMS$_CONFLICTS = 10256672 DECLARE LONG CONSTANT CMS$_CONGRP = 10256683 DECLARE LONG CONSTANT CMS$_CONHIS = 10256691 DECLARE LONG CONSTANT CMS$_CONRES = 10256699 DECLARE LONG CONSTANT CMS$_CONVERTED = 10256705 DECLARE LONG CONSTANT CMS$_CONVERTLIB = 10256714 DECLARE LONG CONSTANT CMS$_COPIED = 10256721 DECLARE LONG CONSTANT CMS$_COPIES = 10256729 DECLARE LONG CONSTANT CMS$_CREATED = 10256737 DECLARE LONG CONSTANT CMS$_CREATES = 10256745 DECLARE LONG CONSTANT CMS$_DEFAULTDIR = 10256754 DECLARE LONG CONSTANT CMS$_DELETED = 10256761 DECLARE LONG CONSTANT CMS$_DELETIONS = 10256769 DECLARE LONG CONSTANT CMS$_DIFFERENT = 10256779 DECLARE LONG CONSTANT CMS$_DUPEDF = 10256786 ! DECLARE LONG CONSTANT CMS$_EDFMISS = 10256794 DECLARE LONG CONSTANT CMS$_ELEEXISTS = 10256802 DECLARE LONG CONSTANT CMS$_ELEEXP = 10256811 DECLARE LONG CONSTANT CMS$_ELEXPIGN = 10256816 DECLARE LONG CONSTANT CMS$_ENDOFLIST = 10256826 DECLARE LONG CONSTANT CMS$_ENDPTRSTR = 10256834 DECLARE LONG CONSTANT CMS$_EOF = 10256840 DECLARE LONG CONSTANT CMS$_ERRANNOTATIONS = 10256850 DECLARE LONG CONSTANT CMS$_ERRCLOSE = 10256858 DECLARE LONG CONSTANT CMS$_ERRCOPIES = 10256866 DECLARE LONG CONSTANT CMS$_ERRCREATES = 10256874 DECLARE LONG CONSTANT CMS$_ERRDELETIONS = 10256882 DECLARE LONG CONSTANT CMS$_ERRFETCHES = 10256890 DECLARE LONG CONSTANT CMS$_ERRINSERTIONS = 10256898 DECLARE LONG CONSTANT CMS$_ERRMODIFIES = 10256906 DECLARE LONG CONSTANT CMS$_ERREMOVALS = 10256914 DECLARE LONG CONSTANT CMS$_ERREPLACEMENTS = 10256922 DECLARE LONG CONSTANT CMS$_ERRESERVATIONS = 10256930 DECLARE LONG CONSTANT CMS$_ERRELEHIS = 10256938 DECLARE LONG CONSTANT CMS$_ERRUNRESERVES = 10256946 DECLARE LONG CONSTANT CMS$_ERRVER2 = 10256954 DECLARE LONG CONSTANT CMS$_ERRVERARC = 10256962 DECLARE LONG CONSTANT CMS$_ERRVERCLS = 10256970 DECLARE LONG CONSTANT CMS$_ERRVERCON = 10256978 DECLARE LONG CONSTANT CMS$_ERRVEREDFS = 10256986 DECLARE LONG CONSTANT CMS$_ERRVERELE = 10256994 DECLARE LONG CONSTANT CMS$_ERRVERFRE = 10257002 DECLARE LONG CONSTANT CMS$_ERRVERGRP = 10257010 DECLARE LONG CONSTANT CMS$_ERRVERRES = 10257018 DECLARE LONG CONSTANT CMS$_ERRVERSTR = 10257026 DECLARE LONG CONSTANT CMS$_EXCLUDE = 10257033 DECLARE LONG CONSTANT CMS$_EXIT = 10257042 DECLARE LONG CONSTANT CMS$_FETCHED = 10257049 DECLARE LONG CONSTANT CMS$_FETCHES = 10257057 DECLARE LONG CONSTANT CMS$_FILEXISTS = 10257067 DECLARE LONG CONSTANT CMS$_FILINUSE = 10257075 DECLARE LONG CONSTANT CMS$_FIXCRC = 10257083 DECLARE LONG CONSTANT CMS$_FIXHDR = 10257091 DECLARE LONG CONSTANT CMS$_GENCREATED = 10257097 DECLARE LONG CONSTANT CMS$_GENEXISTS = 10257106 DECLARE LONG CONSTANT CMS$_GENINSERTED = 10257113 DECLARE LONG CONSTANT CMS$_GENNOINSERT = 10257122 DECLARE LONG CONSTANT CMS$_GENNOREMOVE = 10257130 DECLARE LONG CONSTANT CMS$_GENNOTFOUND = 10257138 DECLARE LONG CONSTANT CMS$_GENREMOVED = 10257145 DECLARE LONG CONSTANT CMS$_GROUPEXP = 10257155 DECLARE LONG CONSTANT CMS$_HASFILES = 10257162 DECLARE LONG CONSTANT CMS$_HASMEMBERS = 10257170 DECLARE LONG CONSTANT CMS$_HISNOTSTM = 10257178 DECLARE LONG CONSTANT CMS$_HISTDEL = 10257185 DECLARE LONG CONSTANT CMS$_IDENTICAL = 10257193 DECLARE LONG CONSTANT CMS$_ILLCHAR = 10257202 DECLARE LONG CONSTANT CMS$_ILLCLSNAM = 10257210 DECLARE LONG CONSTANT CMS$_ILLCONREC = 10257220 DECLARE LONG CONSTANT CMS$_ILLDATREC = 10257228 DECLARE LONG CONSTANT CMS$_ILLEGALDEV = 10257234 DECLARE LONG CONSTANT CMS$_ILLELENAM = 10257242 DECLARE LONG CONSTANT CMS$_ILLELEXP = 10257250 DECLARE LONG CONSTANT CMS$_ILLFORMAT = 10257258 DECLARE LONG CONSTANT CMS$_ILLGEN = 10257266 DECLARE LONG CONSTANT CMS$_ILLGRPNAM = 10257274 DECLARE LONG CONSTANT CMS$_ILLHIST = 10257284 DECLARE LONG CONSTANT CMS$_ILLNAME = 10257290 DECLARE LONG CONSTANT CMS$_ILLNOTE = 10257300 DECLARE LONG CONSTANT CMS$_ILLPAR = 10257306 DECLARE LONG CONSTANT CMS$_ILLPOSVAL = 10257314 DECLARE LONG CONSTANT CMS$_ILLREFDIR = 10257322 DECLARE LONG CONSTANT CMS$_ILLRMK = 10257330 DECLARE LONG CONSTANT CMS$_ILLSEQ = 10257340 DECLARE LONG CONSTANT CMS$_ILLVAR = 10257346 DECLARE LONG CONSTANT CMS$_INSERTED = 10257353 DECLARE LONG CONSTANT CMS$_INSERTIONS = 10257361 DECLARE LONG CONSTANT CMS$_INUSE = 10257371 DECLARE LONG CONSTANT CMS$_INVFETDB = 10257378 DECLARE LONG CONSTANT CMS$_INVLENGTH = 10257388 DECLARE LONG CONSTANT CMS$_INVLIBDB = 10257394 DECLARE LONG CONSTANT CMS$_INVOKERBK = 10257403 DECLARE LONG CONSTANT CMS$_INVSTRDES = 10257412 DECLARE LONG CONSTANT CMS$_ISMEMBER = 10257418 DECLARE LONG CONSTANT CMS$_ISRESERVED = 10257426 DECLARE LONG CONSTANT CMS$_LIBIS = 10257435 DECLARE LONG CONSTANT CMS$_LIBSET = 10257441 DECLARE LONG CONSTANT CMS$_MAXARG = 10257452 DECLARE LONG CONSTANT CMS$_MERGECONFLICT = 10257456 DECLARE LONG CONSTANT CMS$_MERGECOUNT = 10257467 DECLARE LONG CONSTANT CMS$_MERGED = 10257475 DECLARE LONG CONSTANT CMS$_MINARG = 10257484 DECLARE LONG CONSTANT CMS$_MISBLKSTR = 10257490 DECLARE LONG CONSTANT CMS$_MISMATCON = 10257500 DECLARE LONG CONSTANT CMS$_MODIFIED = 10257505 DECLARE LONG CONSTANT CMS$_MODIFICATIONS = 10257513 DECLARE LONG CONSTANT CMS$_MSGBUILD = 10257523 DECLARE LONG CONSTANT CMS$_MSGCANCEL = 10257531 DECLARE LONG CONSTANT CMS$_MSGCONTINUE = 10257539 DECLARE LONG CONSTANT CMS$_MSGPOST = 10257547 DECLARE LONG CONSTANT CMS$_MSSBLKSTR = 10257554 DECLARE LONG CONSTANT CMS$_MULTCALL = 10257560 DECLARE LONG CONSTANT CMS$_MULTPAR = 10257570 DECLARE LONG CONSTANT CMS$_MUSTBEDIR = 10257578 DECLARE LONG CONSTANT CMS$_MUSTBEFIL = 10257586 DECLARE LONG CONSTANT CMS$_MUSTBEPOS = 10257594 DECLARE LONG CONSTANT CMS$_MUTEXC = 10257602 DECLARE LONG CONSTANT CMS$_NEEDNUMBER = 10257610 DECLARE LONG CONSTANT CMS$_NEEDPERIOD = 10257618 DECLARE LONG CONSTANT CMS$_NETNOTALL = 10257626 DECLARE LONG CONSTANT CMS$_NOALTDELETE = 10257634 DECLARE LONG CONSTANT CMS$_NOANNOTATE = 10257642 DECLARE LONG CONSTANT CMS$_NOBACKUP = 10257652 DECLARE LONG CONSTANT CMS$_NOCHANGES = 10257659 DECLARE LONG CONSTANT CMS$_NOCLOSE = 10257668 DECLARE LONG CONSTANT CMS$_NOCLS = 10257672 DECLARE LONG CONSTANT CMS$_NOCOMPARE = 10257682 DECLARE LONG CONSTANT CMS$_NOCONCUR = 10257690 DECLARE LONG CONSTANT CMS$_NOCONFIRM = 10257696 DECLARE LONG CONSTANT CMS$_NOCONRES = 10257706 DECLARE LONG CONSTANT CMS$_NOCONVERT = 10257714 DECLARE LONG CONSTANT CMS$_NOCOPY = 10257722 DECLARE LONG CONSTANT CMS$_NOCREATE = 10257730 DECLARE LONG CONSTANT CMS$_NODELETE = 10257738 DECLARE LONG CONSTANT CMS$_NODELFUTURE = 10257746 DECLARE LONG CONSTANT CMS$_NOELE = 10257752 DECLARE LONG CONSTANT CMS$_NOELEENT = 10257762 ! DECLARE LONG CONSTANT CMS$_NOERRLOG = 10257770 DECLARE LONG CONSTANT CMS$_NOFETCH = 10257778 DECLARE LONG CONSTANT CMS$_NOFILE = 10257786 DECLARE LONG CONSTANT CMS$_NOGRP = 10257792 DECLARE LONG CONSTANT CMS$_NOHIS = 10257800 DECLARE LONG CONSTANT CMS$_NOHISPAR = 10257810 DECLARE LONG CONSTANT CMS$_NOINSERT = 10257818 DECLARE LONG CONSTANT CMS$_NOINPUT = 10257826 DECLARE LONG CONSTANT CMS$_NOMATCH = 10257834 DECLARE LONG CONSTANT CMS$_NOMODARG = 10257842 DECLARE LONG CONSTANT CMS$_NOMODIFY = 10257850 DECLARE LONG CONSTANT CMS$_NOMOREPARAM = 10257858 DECLARE LONG CONSTANT CMS$_NORECOVER = 10257866 DECLARE LONG CONSTANT CMS$_NOREF = 10257874 DECLARE LONG CONSTANT CMS$_NOREMARK = 10257882 DECLARE LONG CONSTANT CMS$_NOREMOVAL = 10257890 DECLARE LONG CONSTANT CMS$_NOREPAIR = 10257898 DECLARE LONG CONSTANT CMS$_NOREPEDF = 10257906 DECLARE LONG CONSTANT CMS$_NOREPLACE = 10257914 DECLARE LONG CONSTANT CMS$_NOREPRO = 10257922 DECLARE LONG CONSTANT CMS$_NORES = 10257928 DECLARE LONG CONSTANT CMS$_NORESERVATION = 10257938 DECLARE LONG CONSTANT CMS$_NORESNOCON = 10257946 DECLARE LONG CONSTANT CMS$_NORESRO = 10257954 DECLARE LONG CONSTANT CMS$_NORMAL = 10257961 DECLARE LONG CONSTANT CMS$_NOSINCE = 10257970 DECLARE LONG CONSTANT CMS$_NOSRCHLST = 10257978 DECLARE LONG CONSTANT CMS$_NOSUPERSEDE = 10257986 DECLARE LONG CONSTANT CMS$_NOTBYCMS = 10257994 DECLARE LONG CONSTANT CMS$_NOTCOMPLETED = 10258002 DECLARE LONG CONSTANT CMS$_NOTCMSLIB = 10258010 DECLARE LONG CONSTANT CMS$_NOTCRELIB = 10258016 DECLARE LONG CONSTANT CMS$_NOTESVALREQ = 10258024 DECLARE LONG CONSTANT CMS$_NOTFOUND = 10258034 DECLARE LONG CONSTANT CMS$_NOTLOGGED = 10258043 DECLARE LONG CONSTANT CMS$_NOTRESBYOU = 10258050 DECLARE LONG CONSTANT CMS$_NOTSET = 10258058 DECLARE LONG CONSTANT CMS$_NOTTHERE = 10258066 DECLARE LONG CONSTANT CMS$_NOTWILD = 10258073 DECLARE LONG CONSTANT CMS$_NOUNRESERVE = 10258082 DECLARE LONG CONSTANT CMS$_NOVERIFY = 10258090 DECLARE LONG CONSTANT CMS$_NOWLDCARD = 10258098 DECLARE LONG CONSTANT CMS$_NULLARG = 10258108 DECLARE LONG CONSTANT CMS$_NULLSTR = 10258114 DECLARE LONG CONSTANT CMS$_NUMGENEXP = 10258123 DECLARE LONG CONSTANT CMS$_OLDSYNTAX = 10258131 DECLARE LONG CONSTANT CMS$_ONEPERIOD = 10258138 DECLARE LONG CONSTANT CMS$_OPENIN = 10258146 DECLARE LONG CONSTANT CMS$_OPENIN1 = 10258154 DECLARE LONG CONSTANT CMS$_OPENIN2 = 10258162 DECLARE LONG CONSTANT CMS$_OPENOUT = 10258170 DECLARE LONG CONSTANT CMS$_OVERDRAFT = 10258179 DECLARE LONG CONSTANT CMS$_POSVALREQ = 10258186 DECLARE LONG CONSTANT CMS$_PROCEEDING = 10258195 DECLARE LONG CONSTANT CMS$_QUALCONFLICT = 10258202 DECLARE LONG CONSTANT CMS$_READERR = 10258210 DECLARE LONG CONSTANT CMS$_READIN = 10258218 DECLARE LONG CONSTANT CMS$_READONLY = 10258226 DECLARE LONG CONSTANT CMS$_RECGRP = 10258234 DECLARE LONG CONSTANT CMS$_RECNOTNEC = 10258242 DECLARE LONG CONSTANT CMS$_RECOVERED = 10258249 DECLARE LONG CONSTANT CMS$_REMARK = 10258257 DECLARE LONG CONSTANT CMS$_REMOVALS = 10258265 DECLARE LONG CONSTANT CMS$_REMOVED = 10258273 DECLARE LONG CONSTANT CMS$_REPAIRED = 10258281 DECLARE LONG CONSTANT CMS$_REPDEL = 10258291 DECLARE LONG CONSTANT CMS$_REPEDF = 10258299 DECLARE LONG CONSTANT CMS$_REPLACEMENTS = 10258305 DECLARE LONG CONSTANT CMS$_RESERVATIONS = 10258313 DECLARE LONG CONSTANT CMS$_RESERVED = 10258321 DECLARE LONG CONSTANT CMS$_RESERVEDBYYOU = 10258330 DECLARE LONG CONSTANT CMS$_SAMELINE = 10258338 DECLARE LONG CONSTANT CMS$_SEQFAIL = 10258348 DECLARE LONG CONSTANT CMS$_SEQUENCED = 10258353 DECLARE LONG CONSTANT CMS$_STARTHIS = 10258362 DECLARE LONG CONSTANT CMS$_STOPPED = 10258369 DECLARE LONG CONSTANT CMS$_SYSTIMERR = 10258378 DECLARE LONG CONSTANT CMS$_SYSTIMDIF = 10258386 DECLARE LONG CONSTANT CMS$_TIMEORDER = 10258394 DECLARE LONG CONSTANT CMS$_TOOLONG = 10258402 DECLARE LONG CONSTANT CMS$_TRYAGNLAT = 10258410 DECLARE LONG CONSTANT CMS$_UNDEFLIB = 10258416 DECLARE LONG CONSTANT CMS$_UNFOUT = 10258426 DECLARE LONG CONSTANT CMS$_UNRECTYPE = 10258436 DECLARE LONG CONSTANT CMS$_UNRESERVED = 10258441 DECLARE LONG CONSTANT CMS$_UNRESERVES = 10258449 DECLARE LONG CONSTANT CMS$_UNSUPFRMT = 10258458 DECLARE LONG CONSTANT CMS$_USERECOVER = 10258466 DECLARE LONG CONSTANT CMS$_USEREPAIR = 10258474 DECLARE LONG CONSTANT CMS$_USERERR = 10258482 DECLARE LONG CONSTANT CMS$_USESETLIB = 10258490 DECLARE LONG CONSTANT CMS$_VARLETTER = 10258498 DECLARE LONG CONSTANT CMS$_VER2 = 10258507 DECLARE LONG CONSTANT CMS$_VERARC = 10258515 DECLARE LONG CONSTANT CMS$_VERCLS = 10258523 DECLARE LONG CONSTANT CMS$_VERCON = 10258531 DECLARE LONG CONSTANT CMS$_VEREDF = 10258539 DECLARE LONG CONSTANT CMS$_VEREDFERR = 10258546 DECLARE LONG CONSTANT CMS$_VEREDFS = 10258555 DECLARE LONG CONSTANT CMS$_VERELE = 10258563 DECLARE LONG CONSTANT CMS$_VERFRE = 10258571 DECLARE LONG CONSTANT CMS$_VERGRP = 10258579 DECLARE LONG CONSTANT CMS$_VERIFIED = 10258585 DECLARE LONG CONSTANT CMS$_VERLMTERR = 10258594 DECLARE LONG CONSTANT CMS$_VERRES = 10258603 DECLARE LONG CONSTANT CMS$_VERSTR = 10258611 DECLARE LONG CONSTANT CMS$_WAITING = 10258619 DECLARE LONG CONSTANT CMS$_WILDCONFLICT = 10258626 DECLARE LONG CONSTANT CMS$_WILDMATCH = 10258635 DECLARE LONG CONSTANT CMS$_WILDNOMATCH = 10258642 DECLARE LONG CONSTANT CMS$_WILDVER = 10258650 DECLARE LONG CONSTANT CMS$_WRITEERR = 10258658 DECLARE LONG CONSTANT CMS$_ZEROADD = 10258666 DECLARE LONG CONSTANT CMS$_ZLENBLK = 10258674 DECLARE LONG CONSTANT CMS$_ERRHISLINE = 10258682 DECLARE LONG CONSTANT CMS$_GENRECSIZE = 10258690 DECLARE LONG CONSTANT CMS$_NOHISNOTES = 10258699 DECLARE LONG CONSTANT CMS$_SIZEMISMAT = 10258706 DECLARE LONG CONSTANT CMS$_CONTROLC = 10258712 DECLARE LONG CONSTANT CMS$_INVFIXMRS = 10258722 DECLARE LONG CONSTANT CMS$_REPGENMRS = 10258731 DECLARE LONG CONSTANT CMS$_NOREPGENMRS = 10258738 DECLARE LONG CONSTANT CMS$_GENNOTANC = 10258746 DECLARE LONG CONSTANT CMS$_ERRPAREXP = 10258754 DECLARE LONG CONSTANT CMS$_LIBALRINLIS = 10258762 DECLARE LONG CONSTANT CMS$_LIBINSLIS = 10258771 DECLARE LONG CONSTANT CMS$_LIBLISMOD = 10258779 DECLARE LONG CONSTANT CMS$_LIBLISNOTMOD = 10258786 DECLARE LONG CONSTANT CMS$_LIBNOTINLIS = 10258794 DECLARE LONG CONSTANT CMS$_LIBREMLIS = 10258803 DECLARE LONG CONSTANT CMS$_MSGUPDATE = 10258811 DECLARE LONG CONSTANT CMS$_NOCOMMALIST = 10258818 DECLARE LONG CONSTANT CMS$_NODELETIONS = 10258826 DECLARE LONG CONSTANT CMS$_TOOMANYLIBS = 10258834 DECLARE LONG CONSTANT CMS$_WILDNEEDED = 10258842 DECLARE LONG CONSTANT CMS$_NOACCESS = 10258850 DECLARE LONG CONSTANT CMS$_CONVNOTNEC = 10258858 DECLARE LONG CONSTANT CMS$_MODACL = 10258865 DECLARE LONG CONSTANT CMS$_NOMODACL = 10258874 DECLARE LONG CONSTANT CMS$_MODACLS = 10258881 DECLARE LONG CONSTANT CMS$_ERRMODACLS = 10258890 DECLARE LONG CONSTANT CMS$_ILLSUBTYP = 10258898 DECLARE LONG CONSTANT CMS$_ILLOBJTYP = 10258906 DECLARE LONG CONSTANT CMS$_NOOBJTYP = 10258914 DECLARE LONG CONSTANT CMS$_NODEFACL = 10258922 DECLARE LONG CONSTANT CMS$_NOACE = 10258928 DECLARE LONG CONSTANT CMS$_NOCMD = 10258936 DECLARE LONG CONSTANT CMS$_ERRVERCMD = 10258946 DECLARE LONG CONSTANT CMS$_VERCMD = 10258955 DECLARE LONG CONSTANT CMS$_NOOBJ = 10258960 DECLARE LONG CONSTANT CMS$_GENMULTRES = 10258970 DECLARE LONG CONSTANT CMS$_ELEMULTRES = 10258978 DECLARE LONG CONSTANT CMS$_IDENTNOTRES = 10258986 DECLARE LONG CONSTANT CMS$_GENNOTRES = 10258994 DECLARE LONG CONSTANT CMS$_REVPENDING = 10259002 DECLARE LONG CONSTANT CMS$_NOREV = 10259008 DECLARE LONG CONSTANT CMS$_ACCEPTED = 10259017 DECLARE LONG CONSTANT CMS$_CANCELED = 10259025 DECLARE LONG CONSTANT CMS$_MARKED = 10259033 DECLARE LONG CONSTANT CMS$_REJECTED = 10259041 DECLARE LONG CONSTANT CMS$_REVIEWED = 10259049 DECLARE LONG CONSTANT CMS$_ACCEPTANCES = 10259057 DECLARE LONG CONSTANT CMS$_CANCELATIONS = 10259065 DECLARE LONG CONSTANT CMS$_MARKS = 10259073 DECLARE LONG CONSTANT CMS$_REJECTIONS = 10259081 DECLARE LONG CONSTANT CMS$_REVIEWS = 10259089 DECLARE LONG CONSTANT CMS$_NOACCEPT = 10259098 DECLARE LONG CONSTANT CMS$_NOCANCEL = 10259106 DECLARE LONG CONSTANT CMS$_NOMARK = 10259114 DECLARE LONG CONSTANT CMS$_NOREJECT = 10259122 DECLARE LONG CONSTANT CMS$_NOREVIEW = 10259130 DECLARE LONG CONSTANT CMS$_ERRACCEPTANCES = 10259138 DECLARE LONG CONSTANT CMS$_ERRCANCELATIONS = 10259146 DECLARE LONG CONSTANT CMS$_ERRMARKS = 10259154 DECLARE LONG CONSTANT CMS$_ERRREJECTIONS = 10259162 DECLARE LONG CONSTANT CMS$_ERRREVIEWS = 10259170 DECLARE LONG CONSTANT CMS$_ALRDYMARKED = 10259178 DECLARE LONG CONSTANT CMS$_NOREVPEND = 10259186 DECLARE LONG CONSTANT CMS$_NOREVSPEND = 10259194 DECLARE LONG CONSTANT CMS$_ILLACT = 10259202 DECLARE LONG CONSTANT CMS$_AUTOREC = 10259211 DECLARE LONG CONSTANT CMS$_AUTORECSUC = 10259219 DECLARE LONG CONSTANT CMS$_GENDELETED = 10259225 DECLARE LONG CONSTANT CMS$_NOGENDELETED = 10259234 DECLARE LONG CONSTANT CMS$_GENDELETIONS = 10259241 DECLARE LONG CONSTANT CMS$_ERRGENDELETIONS = 10259250 DECLARE LONG CONSTANT CMS$_NOTDIRDES = 10259258 DECLARE LONG CONSTANT CMS$_VARINRANGE = 10259266 DECLARE LONG CONSTANT CMS$_GENRESREV = 10259274 DECLARE LONG CONSTANT CMS$_INCRANGSPEC = 10259282 DECLARE LONG CONSTANT CMS$_NODELGEN1 = 10259290 DECLARE LONG CONSTANT CMS$_NOGENS = 10259298 DECLARE LONG CONSTANT CMS$_BADFORMAT = 10259306 DECLARE LONG CONSTANT CMS$_OPENARC = 10259314 DECLARE LONG CONSTANT CMS$_NORETRIEVE = 10259322 DECLARE LONG CONSTANT CMS$_RETRIEVALS = 10259329 DECLARE LONG CONSTANT CMS$_RETRIEVED = 10259337 DECLARE LONG CONSTANT CMS$_ILLARCREC = 10259346 DECLARE LONG CONSTANT CMS$_ERRETRIEVALS = 10259354 DECLARE LONG CONSTANT CMS$_NOREFDIR = 10259362 DECLARE LONG CONSTANT CMS$_DUPREF = 10259370 DECLARE LONG CONSTANT CMS$_REFMISS = 10259378 DECLARE LONG CONSTANT CMS$_NOREFELE = 10259386 DECLARE LONG CONSTANT CMS$_REPREF = 10259395 DECLARE LONG CONSTANT CMS$_NOREPREF = 10259402 DECLARE LONG CONSTANT CMS$_VERREF = 10259411 DECLARE LONG CONSTANT CMS$_VERREFERR = 10259418 DECLARE LONG CONSTANT CMS$_VERREFS = 10259427 DECLARE LONG CONSTANT CMS$_ERRVERREFS = 10259434 DECLARE LONG CONSTANT CMS$_BADREF = 10259442 DECLARE LONG CONSTANT CMS$_REFREPAIR = 10259448 DECLARE LONG CONSTANT CMS$_NOTNOREF = 10259458 DECLARE LONG CONSTANT CMS$_VERREFERRW = 10259464 DECLARE LONG CONSTANT CMS$_REPCMD = 10259475 DECLARE LONG CONSTANT CMS$_NOREPCMD = 10259482 DECLARE LONG CONSTANT CMS$_REFMISMAT = 10259490 DECLARE LONG CONSTANT CMS$_SUPERSEDE = 10259499 DECLARE LONG CONSTANT CMS$_TOODEEP = 10259506 ! DECLARE LONG CONSTANT CMS$_EDFINWRONGDIR = 10259514 DECLARE LONG CONSTANT CMS$_INVGENLRL = 10259522 DECLARE LONG CONSTANT CMS$_NOEDFIWDREPAIR = 10259530 DECLARE LONG CONSTANT CMS$_NOREPGENLRL = 10259538 DECLARE LONG CONSTANT CMS$_REPGENLRL = 10259547 DECLARE LONG CONSTANT CMS$_GENTOODEEP = 10259554 DECLARE LONG CONSTANT CMS$_ANNSIGNAL = 10259563 DECLARE LONG CONSTANT CMS$_VERILLDATREC = 10259570 DECLARE LONG CONSTANT CMS$_REPILLDATREC = 10259579 DECLARE LONG CONSTANT CMS$_SEQMISMAT = 10259586 DECLARE LONG CONSTANT CMS$_NOREPSEQDATA = 10259592 DECLARE LONG CONSTANT CMS$_MANCONLIB = 10259602 DECLARE LONG CONSTANT CMS$_EXTFOUND = 10259610 DECLARE LONG CONSTANT CMS$_EXTENDEDLIB = 10259618 DECLARE LONG CONSTANT CMS$_NOEXTENDED = 10259626 DECLARE LONG CONSTANT CMS$_NOEXTENDEDREF = 10259634 DECLARE LONG CONSTANT CMS$_BADLST = 10259642 DECLARE LONG CONSTANT CMS$_BADREFHDR = 10259650 DECLARE LONG CONSTANT CMS$_DIFFCLASS = 10259659 DECLARE LONG CONSTANT CMS$_ERRVERGEN = 10259666 DECLARE LONG CONSTANT CMS$_FREBLKCON = 10259675 DECLARE LONG CONSTANT CMS$_IDENTCLASS = 10259681 DECLARE LONG CONSTANT CMS$_INCLIBVER = 10259690 DECLARE LONG CONSTANT CMS$_LONGVARFOUND = 10259698 DECLARE LONG CONSTANT CMS$_NOBCKPTR = 10259706 DECLARE LONG CONSTANT CMS$_NODELACCESS = 10259714 DECLARE LONG CONSTANT CMS$_NOGENBEFORE = 10259722 DECLARE LONG CONSTANT CMS$_NOREPBCKPTR = 10259730 DECLARE LONG CONSTANT CMS$_REPBADLST = 10259739 DECLARE LONG CONSTANT CMS$_REPBADTYP = 10259747 DECLARE LONG CONSTANT CMS$_REPBCKPTR = 10259755 DECLARE LONG CONSTANT CMS$_REPCNTSTR = 10259763 DECLARE LONG CONSTANT CMS$_REPENDPTR = 10259771 DECLARE LONG CONSTANT CMS$_REPMISBLK = 10259779 DECLARE LONG CONSTANT CMS$_TRUNCLST = 10259786