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"
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.