1 " ***********************************************************
2 " * *
3 " * Copyright, C Honeywell Information Systems Inc., 1981 *
4 " * *
5 " * Copyright c 1972 by Massachusetts Institute of *
6 " * Technology and Honeywell Information Systems, Inc. *
7 " * *
8 " ***********************************************************
9
10 " HISTORY COMMENTS:
11 " 1) change86-06-13Dupuis, approve86-08-05MCR7491,
12 " audit86-08-08Blair, install86-08-15MR12.0-1127:
13 " Made available so that an unbound version of mrds could be created
14 " easily. phx20405 mrds #157
15 " END HISTORY COMMENTS
16
17 "
18 " NOTES:
19 "
20 " This is the transfer vector for the unbound version of dsmd_
21 "
22 "
23 " History:
24 "
25 " 81-01-05 Davids written.
26 "
27 " 81-02-06 Davids: removed the entries force_close_dsm
28 " get_mode
29 " get_submodel_pn
30 " validate_rel
31 " validate_rel_close
32 " changed mrds_dsm_dsmd_ to mrds_dsm_dsmd
33
34
35 name dsmd_
36
37 entry close_dsm
38 close_dsm:
39 tra <mrds_dsm_dsmd>|close_dsm
40
41
42 entry get_dsm_header
43 get_dsm_header:
44 tra <mrds_dsm_dsmd>|get_dsm_header
45
46
47
48
49 entry get_dsm_relations
50 get_dsm_relations:
51 tra <mrds_dsm_dsmd>|get_dsm_relations
52
53
54 entry get_relation
55 get_relation:
56 tra <mrds_dsm_dsmd>|get_relation
57
58
59 entry open_dsm_read
60 open_dsm_read:
61 tra <mrds_dsm_dsmd>|open_dsm_read
62
63
64 end
65