Numeric Edited and VALUE/MOVE
- From: "Roger While" <simrw@xxxxxxxxxxxx>
- Date: Fri, 14 Dec 2007 16:41:39 +0100
In W/S (Assuming no DECIMAL-POINT IS COMMA) -
<level wahtever> MYFLD PIC ZZZ,Z VALUE ALL '9'.
Equivalent in PROCEDURE -
MOVE ALL '9' TO MYFLD.
AFAIK, num-edits are class alphanumeric and as such current
compilers (tested MF/ACU) produce a value of
99999 in MYFLD. (Which, if I am reading the past/current standards
is correct). This seems to me to me to
be non-intuitive. In fact, OC produces 999,9.