[open-cobol-list] numeric edited, MOVE

[Hans-Martin Rasch]

Hi, 

there are problems with the MOVE of numeric edited fields if the decimal point 
is defined implicitly by "V" or "P":

         05 FIELD1                      PIC  S99V99.
         05 FIELD2                      PIC  -99V99.
         05 FIELD3                      PIC  PPB99.
         05 FIELD4                      PIC  99BPP.
         05 FIELD5                      PIC  9999V9999.
          .
           MOVE -12.34        TO FIELD1.
           MOVE FIELD1      TO FIELD2.
           DISPLAY FIELD1 " " FIELD2.
           MOVE -12.34        TO FIELD2.
           MOVE FIELD2      TO FIELD1.
           DISPLAY FIELD1 " " FIELD2.
           MOVE 0.001         TO FIELD3.
           MOVE FIELD3      TO FIELD5.
           DISPLAY FIELD3 " " FIELD5.
           MOVE 100           TO FIELD4.
           MOVE FIELD4      TO FIELD5.
           DISPLAY  FIELD4 " " FIELD5. 

gives the output

           1234-  -12.3
           1230   -12.3
           4   00040000
           01 00010000

The diff of my attempt to fix move.c is appended.


Hans-Martin Rasch

move.diff
Description: Text Data