pr-8405.ch   [plain text]

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;