]>
Commit | Line | Data |
---|---|---|
605f94ba PB |
1 | |
2 | PR_5020: MODULE | |
3 | dummy_pr_5020: PROC (); | |
4 | END; | |
5 | NEWMODE x = STRUCT (l LONG, b BOOL); | |
6 | NEWMODE aset = SET (aa, bb); | |
7 | ||
8 | DCL y ARRAY ('a':'b') x; | |
9 | DCL setarr ARRAY (aset) x; | |
10 | DCL intarr ARRAY(10:11) x; | |
11 | DCL boolarr ARRAY (BOOL) x; | |
12 | ||
13 | y('a').l, setarr(aa).l, intarr(10).l, boolarr(FALSE).l := 10; | |
14 | y('a').b, setarr(aa).b, intarr(10).b, boolarr(FALSE).b := TRUE; | |
15 | y('b').l, setarr(bb).l, intarr(11).l, boolarr(TRUE).l := 111; | |
16 | y('b').b, setarr(bb).b, intarr(11).b, boolarr(TRUE).b := FALSE; | |
17 | ||
18 | dummy_pr_5020 (); | |
19 | END; |