1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
MMSExtendedBodyPartTypes {iso(1) identified-organization(3) nato(26)
stanags(0) mmhs(4406) object-identifiers(0) module(0)
extended-body-part-types(7)} DEFINITIONS IMPLICIT TAGS ::=
BEGIN
-- Prologue
-- Exports Everything
IMPORTS
-- IPMS information objects
EXTENDED-BODY-PART-TYPE
--=
FROM IPMSInformationObjects {joint-iso-ccitt mhs-motis(6) ipms(1)
modules(0) information-objects(2)}
-- MMS information objects
MM
--=
FROM MMSInformationObjects {iso(1) identified-organization(3) nato(26)
stanags(0) mmhs(4406) object-identifiers(0) module(0) mms(1)}
-- MMS upper lower bounds
ub-data-size
--=
FROM MMSUpperBounds {iso(1) identified-organization(3) nato(26) stanags(0)
mmhs(4406) object-identifiers(0) module(0) upper-bounds(0)}
-- MTS Abstract Service
MessageDeliveryTime, OtherMessageDeliveryFields
--=
FROM MTSAbstractService {joint-iso-ccitt mhs-motis(6) mts(3) modules(0)
mts-abstract-service(1)}
-- MMS object identifiers
--=
id-nato-mmhs-et-adatp3, id-nato-mmhs-et-adatp3-parameters,
id-nato-mmhs-et-acp127data, id-nato-mmhs-et-acp127data-parameters,
id-nato-mmhs-et-corrections, id-nato-mmhs-et-corrections-parameters,
id-nato-mmhs-et-forwarded-encrypted,
id-nato-mmhs-et-forwarded-encrypted-parameters, id-nato-mmhs-et-mm-message,
id-nato-mmhs-et-mm-message-parameters
--=
FROM MMSObjectIdentifiers {iso(1) identified-organization(3) nato(26)
stanags(0) mmhs(4406) object-identifiers(0)};
-- extended adatp3 bodypart
--adatp3-body-part EXTENDED-BODY-PART-TYPE ::= {
-- PARAMETERS {ADatP3Parameters
-- IDENTIFIED BY id-nato-mmhs-et-adatp3-parameters},
-- DATA {ADatP3Data
-- IDENTIFIED BY id-nato-mmhs-et-adatp3}}
ADatP3Parameters ::= INTEGER -- DEFAULT (0)
ADatP3Data ::= CHOICE {
lineOriented [0] IMPLICIT IA5String,
setOriented [1] IMPLICIT SEQUENCE OF IA5String}
-- extended corrections body part
--corrections-body-part EXTENDED-BODY-PART-TYPE ::= {
-- PARAMETERS {CorrectionsParameters
-- IDENTIFIED BY id-nato-mmhs-et-corrections-parameters},
-- DATA {CorrectionsData
-- IDENTIFIED BY id-nato-mmhs-et-corrections}}
CorrectionsParameters ::= INTEGER
CorrectionsData ::= IA5String
-- extended forwarded encrypted body part
--forwarded-encrypted-body-part EXTENDED-BODY-PART-TYPE ::= {
-- PARAMETERS
-- {ForwardedEncryptedParameters
-- IDENTIFIED BY id-nato-mmhs-et-forwarded-encrypted-parameters},
-- DATA
-- {ForwardedEncryptedData
-- IDENTIFIED BY id-nato-mmhs-et-forwarded-encrypted}}
-- A forwarded-encrypted-body must contain the delivery information,
-- containing the content type which will indicate whether the forwarded
-- encrypted message is an MM or IPM. All security related information
-- (i.e., token) of the original message must be forwarded.
ForwardedEncryptedParameters ::= SET {
delivery-time [0] MessageDeliveryTime OPTIONAL,
delivery-envelope [1] OtherMessageDeliveryFields}
-- 2/X.411, part 9 of 26.
ForwardedEncryptedData ::= BIT STRING
-- extended MM message body part
--mm-message-body-part EXTENDED-BODY-PART-TYPE ::= {
-- PARAMETERS
-- {MMMessageParameters
-- IDENTIFIED BY id-nato-mmhs-et-mm-message-parameters},
-- DATA {MMMessageData
-- IDENTIFIED BY id-nato-mmhs-et-mm-message}}
-- An mm-message-body-part can either carry a forwarded M1M or a forwarded
-- IPM. In the case of a message-body-part, as defined in X.420,
-- it can only carry an IPM.
MMMessageParameters ::= SET {
delivery-time [0] MessageDeliveryTime OPTIONAL,
delivery-envelope [1] OtherMessageDeliveryFields}
MMMessageData ::= IPM
-- extended acp127data body part
--acp127data-body-part EXTENDED-BODY-PART-TYPE ::= {
-- PARAMETERS
-- {ACP127DataParameters
-- IDENTIFIED BY id-nato-mmhs-et-acp127data-parameters},
-- DATA {ACP127DataData
-- IDENTIFIED BY id-nato-mmhs-et-acp127data}}
ACP127DataParameters ::= INTEGER
ACP127DataData ::= IA5String(SIZE (1..ub-data-size))
END -- of MMS ExtendedBodyPartTypes
|
