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:
Default: DE-EDIT"2" (DIALECT DIALECT
Phase: Syntax check
$SET: Any
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: