projects / deliverable / titan.core.git / blame
| Commit | Line | Data |
|---|---|---|
| 970ed795 | 1 | --///////////////////////////////////////////////////////////////////////////// |
| 3abe9331 | 2 | -- Copyright (c) 2000-2015 Ericsson Telecom AB |
| 970ed795 EL |
3 | -- All rights reserved. This program and the accompanying materials |
| 4 | -- are made available under the terms of the Eclipse Public License v1.0 | |
| 5 | -- which accompanies this distribution, and is available at | |
| 6 | -- http://www.eclipse.org/legal/epl-v10.html | |
| 7 | --///////////////////////////////////////////////////////////////////////////// | |
| 8 | Test87 | |
| 9 | ||
| 10 | DEFINITIONS | |
| 11 | ||
| 12 | AUTOMATIC TAGS | |
| 13 | ||
| 14 | ::= | |
| 15 | ||
| 16 | BEGIN | |
| 17 | ||
| 18 | IMPORTS ; -- nothing | |
| 19 | ||
| 20 | MySetType1 ::= SET { | |
| 21 | field1 INTEGER, | |
| 22 | field2 BOOLEAN DEFAULT TRUE, | |
| 23 | field3 NULL, | |
| 24 | field4 OCTET STRING, | |
| 25 | field5 BIT STRING, | |
| 26 | field6 ENUMERATED {a,b,c}, | |
| 27 | field7 REAL DEFAULT 5.2 -- {mantissa 10,base 2, exponent 2} | |
| 28 | ||
| 29 | } | |
| 30 | ||
| 31 | mySetValue1 MySetType1 ::= { | |
| 32 | ||
| 33 | field3 NULL, | |
| 34 | field4 'FF00'H, -- OCTET STRING, | |
| 35 | field5 '01010'B, -- BIT STRING, | |
| 36 | field6 a , --ENUMERATED {a,b,c), | |
| 37 | field1 555 -- INTEGER, | |
| 38 | } | |
| 39 | ||
| 40 | END |