| 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; |