DEFINE _G_WRITE
WRITE : / &1, &2, &3
END-OF-DEFINITION.
_G_WRITE 'DE' 'FI' 'NE'.
DEFINE _G_RANGES.
move : &2 to &1-sign,
&3 to &1-option,
&4 to &1-low,
&5 to &1-high.
append &1.
END-OF-DEFINITION.
_g_ranges lr_dom 'I' 'EQ' :
'low1' 'high1', 'low2' space, 'low3' 'high3'.