DE-EDIT
Specifies the behavior of de-editing moves from numeric-edited items to other
numeric-edited items or to numeric items.
Syntax:
>>-.---.--DE-EDIT--"integer"---------------><
+-/-+
Parameters:
integer |
Indicates which compatibility required.
1 |
Behavior as in earlier versions of this Compiler. Ignores the PICTURE clause
of the sending field. |
2 |
De-edits according to the PICTURE clause of the sending field. This provides
ANSI'85 conformance. | |
Properties:
Example:
01 a pic 909V99 value "30456".
01 b pic 9(5).
...
move a to b
With DE-EDIT"1", b contains 30456. With DE-EDIT"2", b contains 00034; the
0 after the 3 is dropped because it corresponds to the insertion character
0 in the picture-string of a, and the .56 is dropped because B has no decimal
places.
See Also: