![]() |
DCL a CHAR(n); /* 'a' is adjustable */ DCL b (-5:5)CHAR(1); /* 'b' is non-adjustable */
DECLARE A PICTURE '$$$$,$$$.99-';
declares A as a 12-character item consisting of 8 decimal digits,
a "floating" currency-symbol, a trailing sign, and the editing characters
comma and decimal-point. Data will be edited and de-edited automatically
when moved from and to the field.
![]() |