title: COBOL move numeric edited field to another numeric edited field
body: <p>I have following fields:</p>
  
  <pre><code>FLD1   PIC ---.--9,99.
  FLD2   PIC ---.--9,99.
  FLD3   PIC S9(6)V99.
  
  MOVE FLD1 TO FLD2     --&gt; 4038 abend
  MOVE FLD1 TO FLD3     --&gt; 4038 abend
  </code></pre>
  
  <p>When I move FLD1 to FLD2 I get a 4038 abend so I tried to move FLD1 to FLD3 first and then move FLD3 to FLD2 but this also gives a 4038 abend. When FLD1 is spaces there's no problem, but when it's not, there's the 4038 abend.</p>
  
  <p>This is the abend:</p>
  
  <p>ABEND=S000 U4038 REASON=00000001 048</p>
  
  <p>IGZ0063S An invalid sign was detected in a numeric edited sending field in AO6043 on line number 14982. From compile unit AO6043 at entry point AO6043 at compile unit offset +00020024 at entry offset +00020024 at address 1BC20024.</p>
  
  <p>So how can I move FLD1 to FLD3 without abend?</p>