title: not able to add decimals in the loop after reading it from the file
body: <p>I am not able to add two decimal numbers after reading it from a file, inside the file the number's are defined as 1234.10 and so on, I am looping in the program to add these numbers, but getting SOC7 while using a third variable to add the details from the file, i have defined all the numeric variables as 9(4)v99 and tried using s9(4)v99 comp-3, but still not adding. </p>
  
  <p>the program works only if the decimals inside the file is defines as 123410 instead of 1234.10 inside the file.</p>
  
  <p>this is how i coded,</p>
  
  <pre><code>READ-PARA1.                                               
  READ FILEX                                            
    AT END                                              
       MOVE 'Y' TO WS-EOF-IND.                          
  READ FILEY                                            
    AT END                                              
       MOVE 'Y' TO WS-EOF-IND.                          
  DISPLAY SPACE                                         
  DISPLAY OCODE1,'    'ACODE1,'    'POLNO1,' 'EDATE1,   
            ' 'PHOLD1,' 'LOCATION1,' ',LICNO1,' 'VMAKE1,
  ' 'VMODEL,' 'YEAR,' 'PREM'  '.                        
  ADD 1 TO R1.                                          
  MOVE PREM TO PRESUM1.                                 
  ADD PRESUM1 TO PRESUM.                                
  </code></pre>
  
  <p>in working storage section including file descriptor above it,</p>
  
  <pre><code>  05 PREM PIC S9(4)V99 COMP-3.                
    05 FILLER PIC X(34).                        
    WORKING-STORAGE SECTION.                        
    77  R1 PIC 9(2) VALUE 0.                        
    77  PRESUM PIC S9(4)V99 COMP-3 VALUE 0.         
    77  PRESUM1 PIC S9(4)V99 COMP-3 VALUE 0.        
    77  PRESUM2 PIC S9(4)V99 COMP-3 VALUE 0.        
  </code></pre>