blob: ef12c839b90d2adad79f8dc3835c477f8bde5b53 (
plain)
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
|
xx: MODULE
DCL v_bool BOOL INIT := FALSE;
DCL v_char CHAR INIT := 'X';
DCL v_byte BYTE INIT := -30;
DCL v_ubyte UBYTE INIT := 30;
DCL v_int INT INIT := -333;
DCL v_uint UINT INIT := 333;
DCL v_long LONG INIT := -4444;
DCL v_ulong ULONG INIT := 4444;
DCL v_ptr PTR;
SYNMODE m_set = SET (e1, e2, e3, e4, e5, e6);
DCL v_set m_set INIT := e3;
SYNMODE m_set_range = m_set(e2:e5);
DCL v_set_range m_set_range INIT := e3;
SYNMODE m_numbered_set = SET (n1 = 25, n2 = 22, n3 = 35, n4 = 33,
n5 = 45, n6 = 43);
DCL v_numbered_set m_numbered_set INIT := n3;
SYNMODE m_char_range = CHAR('A':'Z');
DCL v_char_range m_char_range INIT := 'G';
SYNMODE m_bool_range = BOOL(FALSE:FALSE);
DCL v_bool_range m_bool_range;
SYNMODE m_long_range = LONG(255:3211);
DCL v_long_range m_long_range INIT := 1000;
SYNMODE m_range = RANGE(12:28);
DCL v_range m_range INIT := 23;
SYNMODE m_chars = CHARS(20);
SYNMODE m_chars_v = CHARS(20) VARYING;
DCL v_chars CHARS(20);
DCL v_chars_v CHARS(20) VARYING INIT := "foo bar";
SYNMODE m_bits = BOOLS(10);
DCL v_bits BOOLS(10);
SYNMODE m_arr = ARRAY(1:10) BYTE;
DCL v_arr ARRAY(1:10) BYTE;
SYNMODE m_char_arr = ARRAY (CHAR) BYTE;
DCL v_char_arr ARRAY(CHAR) BYTE;
SYNMODE m_bool_arr = ARRAY (BOOL) BYTE;
DCL v_bool_arr ARRAY (BOOL) BYTE;
SYNMODE m_int_arr = ARRAY (INT) BYTE;
DCL v_int_arr ARRAY (INT) BYTE;
SYNMODE m_set_arr = ARRAY (m_set) BYTE;
DCL v_set_arr ARRAY (m_set) BYTE;
SYNMODE m_numbered_set_arr = ARRAY (m_numbered_set) BYTE;
DCL v_numbered_set_arr ARRAY (m_numbered_set) BYTE;
SYNMODE m_char_range_arr = ARRAY (m_char_range) BYTE;
DCL v_char_range_arr ARRAY (m_char_range) BYTE;
SYNMODE m_set_range_arr = ARRAY (m_set_range) BYTE;
DCL v_set_range_arr ARRAY (m_set_range) BYTE;
SYNMODE m_bool_range_arr = ARRAY (m_bool_range) BYTE;
DCL v_bool_range_arr ARRAY (m_bool_range) BYTE;
SYNMODE m_long_range_arr = ARRAY (m_long_range) BYTE;
DCL v_long_range_arr ARRAY (m_long_range) BYTE;
SYNMODE m_range_arr = ARRAY (m_range) BYTE;
DCL v_range_arr ARRAY (m_range) BYTE;
SYNMODE m_struct = STRUCT (i LONG,
c CHAR,
s CHARS(30));
DCL v_struct m_struct;
v_bool := TRUE;
END xx;
|
