Re: Moving SPACES in numerical fields

Roman,

Geir showed the reason why.  The compiler prevents moving spaces to a 
numeric field.  You can't move spaces to the numeric field to show spaces 
for the screen fields.  What you can do is define the field with one of 
the proper edit codes in the display file:

EDTCDE(2)  Includes separators for thousands, decimals, no sign and blanks 
when zero;
EDTCDE(4) As EDTCDE(2) but no thousands separator;
EDTCDE(B) Like EDTCDE(2) but with CR for negative numbers;
EDTCDE(D) Like EDTCDE(4) but with CR for negative numbers;
EDTCDE(K) Like EDTCDE(B) using '-' for negative numbers;
 etc.  (Also M, O, and Q will blank when zero.)

Michael Quigley
AS/400 Programming Section
The Way International
www.TheWay.org

cobol400-l-bounces@xxxxxxxxxxxx wrote on 10/16/2006 01:00:02 PM:

date: Mon, 16 Oct 2006 14:19:41 +0200
from: Roman Miklos <RMiklos@xxxxxx>
subject: Re: [COBOL400-L] Moving SPACES in numerical fields

Geir,

I know about INITIALIZE. But these fields are originaly for screen. 

Their 

behaviour should be as is, i.e
    IF PSSDPO-KONTROLOR = ZERO 
       MOVE SPACE TO PSSDPO-KONTROLOR-INPT.
so on the screen spaces are dispalyed instead of zeroes.

...it works fine as is, I only would know why :-)))
thanks