accept "data=" to wdata
input "curs=" to wcurs
replace curs with wcurs for alltrim(valuta)=alltrim(wvaluta) and data=wdata

use
 
 
 
set talk off
set safety off
use banca
 
accept "data=" to wdata
sum valuta * cant for data=wdata to suma
?suma
use
 
 
set talk off
set safety off
use banca
 
accept "data=" to wdata
sort on valuta to sortat for data=wdata
use sortat
do while no eof()
    wvaluta=valuta
    wval=0
    do while alltrim(valuta)=alltrim(wvaluta) and not eof()
      wval=wval+cantitate*curs
      skip
   enddo
   ?wvaluta,wval
enddo
 
use
 

use