* 
* Add 0 to 13.4 to make 13.40 , 13 to 13.00





SET TALK OFF
SET CONFIRM ON
SET SAFETY OFF

MRACEDATE = CTOD('  /  /  ')


SELE 1
use temp_res



SELE 1
do while .not. eof()
   
   mtfa = tfa   
   if mtfa <> ' '
      mcontfa1 = substr(mtfa,5,1)
      mcontfa2 = substr(mtfa,1,4)
      mcontfa3 = substr(mtfa,3,1)   
      mcontfa4 = substr(mtfa,1,2)

      if mcontfa1 =' ' .and. mcontfa3 = '.'
         repl tfa with mcontfa2+'0'
      endif
      if mcontfa1 =' ' .and. mcontfa3 = ' '
         repl tfa with mcontfa4+'.00'
      endif
    
    endif

   mt1a = t1a
   if mtfa <> ' '
      mcont1a1 = substr(mt1a,5,1)
      mcont1a2 = substr(mt1a,1,4)
      mcont1a3 = substr(mt1a,3,1)   
      mcont1a4 = substr(mt1a,1,2)

      if mcont1a1 =' ' .and. mcont1a3 = '.'
         repl t1a with mcont1a2+'0'
      endif
      if mcont1a1 =' ' .and. mcont1a3 = ' '
         repl t1a with mcont1a4+'.00'
      endif
    
    endif


   mt2a = t2a
   if mt2a <> ' '
      mcont2a1 = substr(mt2a,5,1)
      mcont2a2 = substr(mt2a,1,4)
      mcont2a3 = substr(mt2a,3,1)   
      mcont2a4 = substr(mt2a,1,2)

      if mcont2a1 =' ' .and. mcont2a3 = '.'
         repl t2a with mcont2a2+'0'
      endif
      if mcont2a1 =' ' .and. mcont2a3 = ' '
         repl t2a with mcont2a4+'.00'
      endif
    
    endif


   mt3a = t3a
   if mt3a <> ' '
      mcont3a1 = substr(mt3a,5,1)
      mcont3a2 = substr(mt3a,1,4)
      mcont3a3 = substr(mt3a,3,1)   
      mcont3a4 = substr(mt3a,1,2)

      if mcont3a1 =' ' .and. mcont3a3 = '.'
         repl t3a with mcont3a2+'0'
      endif
      if mcont3a1 =' ' .and. mcont3a3 = ' '
         repl t3a with mcont3a4+'.00'
      endif
    
    endif


   mt4a = t4a
   if mt4a <> ' '
      mcont4a1 = substr(mt4a,5,1)
      mcont4a2 = substr(mt4a,1,4)
      mcont4a3 = substr(mt4a,3,1)   
      mcont4a4 = substr(mt4a,1,2)

      if mcont4a1 =' ' .and. mcont4a3 = '.'
         repl t4a with mcont4a2+'0'
      endif
      if mcont4a1 =' ' .and. mcont4a3 = ' '
         repl t4a with mcont4a4+'.00'
      endif
    
    endif


   mtla = tla   
   mcontla = substr(mtla,2,5)
   repl tla with mcontla



   skip

Enddo