Commit | Line | Data |
---|---|---|
c906108c SS |
1 | gch1272: MODULE |
2 | ||
3 | SYNMODE m_array = ARRAY (0:99) INT; | |
4 | DCL foo m_array; | |
5 | ||
6 | SYNMODE m_xxx = ARRAY (1:10) LONG; | |
7 | ||
8 | SYNMODE m_struct = STRUCT (i LONG, b BOOL); | |
9 | SYNMODE m_bar = ARRAY (-10:20) m_struct; | |
10 | DCL bar m_bar; | |
11 | ||
12 | SYNMODE m_ps = POWERSET LONG (0:20); | |
13 | ||
14 | brrr: PROC () | |
15 | END; | |
16 | ||
17 | foo := [ (*): 222 ]; | |
18 | ||
19 | brrr (); | |
20 | ||
21 | END gch1272; |