Re: 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




<Geir.Kildal@xxxxxxxxxxxxxxx> 
Sent by: cobol400-l-bounces@xxxxxxxxxxxx
16.10.2006 14:02
Please respond to
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>


To
<cobol400-l@xxxxxxxxxxxx>
cc

Subject
Re: [COBOL400-L] Moving SPACES in numerical fields






Miklos:

May be you need the INITIALIZE instruction.  It moves space to alfa-fields 
an zero to numeric fields.


                 01 Test-item.
                                 05 alphafield pic x.
                                 05 Numfield pic 9.

                 'INITIALIZE Test-item' gives space in alphafield , and 
zero in Numfield.

Regards
Geir