blob: a9b25312d6e760bbc434b44c60c7c3d304bc4950 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
emptybit: MODULE
SYNMODE b8 = BOOLS(8);
SYN bit8 b8 = B'00000000';
SYNMODE char_m = CHARS(40) VARYING;
SYNMODE stru_m = STRUCT (c char_m, b b8, boo BOOL);
DCL xx stru_m;
SYNMODE m_stru = STRUCT (c char_m, i LONG, boo BOOL);
DCL yy m_stru;
SYNMODE m_arr = ARRAY (1:10) LONG;
DCL zz m_arr;
WRITETEXT (stdout, "%C%/", bit8);
END emptybit;
|
