I hope this can help you. My idea is create a new table and insert line by line.
Sorry, i dont know how to explain all in english. and I hope I understand your question correctly
*-------------------------------;
* - 1 - Préparation ;
*-------------------------------;
data have ;
input date trade holding price ;
cards ;
0 100 100 20
1 100 200 23.2
2 120 -80 22
3 20 100 23
4 -90 10 24
;
run ;
*---------------------------------------------------------------;
* - 2 - Macro ;
*---------------------------------------------------------------;
%macro stock(date,trade,price) ;
%if &trade > 0 %then %do ; /* si c'est l'achat*/
data tem_last_transaction ;
set stock end=eof; if eof then do ; /* récupérer la dernière ligne de la table stock pour les infos suivantes*/
call symputx('lhold',holding); call symputx('lcost',cost) ; /* &lhold: quantité dans le stock, &lcost: prix moyen */
output; end; run ;
%let holding=%sysevalf(&lhold+&trade) ; /* calculer holding*/
%let cost=%sysevalf((&lcost*&lhold+&trade*&price)/&holding) ; /* calculer cost*/
%put &holding &cost ;
proc sql;
insert into suivi values(&date,&trade,&holding,&price,&cost); /* insérer les résultats dans la table suivi*/
insert into stock values(&date,&trade,&holding,&price,&cost); /* et stock*/
quit ;
%end ;
%else %do ; /* si c'est vente */
data stock ;
set stock(where=(holding>abs(&trade))) ; /* récuperer seulement les lignes ou holding > quantité vente(abs(trade)), parceque si holding < trade >>> il sera soldé*/
holding=holding+&trade ; /* màj holding*/
cost1=lag(cost) ; /* cost de la ligne n-1*/
holding1=lag(holding) ; /* holding de la ligne n-1*/
if _n_=1 then do ; /* si c'est la première ligne _n_=1*/
trade=holding ; /* >>> trade= holding*/
cost=price ; /* >>> code= price*/
end ;
else do ; /* si _n_ > 1, les autres lignes */
cost=(cost1*holding1+trade*price)/holding; end ; /* >>> cost=(cost1*holding1+trade*price)/holding */
drop cost1 holding1 ; /* supprimer les varibles intermédiaires*/
run ;
data tem_last_transaction ;
set stock end=eof ; /* comme achat, récuperer les infos nécessaires pour calculer holding et cost*/
if eof then do ;
call symputx('lhold',holding) ;
call symputx('lcost',cost) ;
output ;
end ;
run ;
%let holding=&lhold ; /* cette fois ci, holding = &lhosd */
%let cost=&lcost ; /* cost = &lcost */
proc sql ;
insert into suivi values(&date,&trade,&holding,&price,&cost); /* inserer valeur dans la table suivi, pas dans stock, car c'est fait au dessus et c'est une vente*/
quit ;
%end ;
proc datasets nolist lib=work; delete tem: ; quit ; /* supprimer les tables temporaires */
%mend;
%macro fifo(table=have) ;
data suivi stock; set &table(obs=1) ;
cost=price ; /* préparation des tables intermédiaires*/
run ;
data _null_; set have ;
key=compress(catx(",",date,trade,price));
call symputx(compress("key"||_N_),key) ; /* récuperer des valeurs pour utiliser %stock*/
run ;
%let nbobs= &sysnobs. ;
%do i=2 %to &nbobs. ;
%stock(&&key&i) ; /* %stock(&key2)=%stock(1,100,23.2) ;*/
%end ;
data want; set suivi; run ; /* Table resultat: WANT*/
%mend ;
*-------------------;
* - 3 - RUN ;
*-------------------;
%fifo(table=have) ;
*%stock(1,100,23.2) ; /* exemple d'utilisation macro %stock*/
*%stock(2,-120,22) ;
*%stock(3,20,23) ;
*%stock(4,-90,24) ;
Please give me a like if you find it useful.
