Problem:
The "DE-EDIT" directive specifies the results how a de-editing move from one numeric-edited data-item to another numeric-edited item or to a numeric item.
Resolution:
The syntax for the "DE-EDIT" directive is:
DE-EDIT "[1 or 2]"
Specifying integer 1 - will behave as in earlier versions of this compiler. It ignores the Picture clause of the sending field.
Specifying integer 2 - will de-edit according to the Picture clause of the sending field. This provides ANSI '85' conformance.
The default is 2.
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.
