SAS calcul itératif

Version imprimable

1 pièce(s) jointe(s)

SAS calcul itératif

Bonjour,

Je voudrais reproduire sous SAS un calcul très simple sous Excel, mais que je n'arrive pas à coder en SAS:

A B C D E F G H I

F640013 31/12/2019 251 522 1 251 522

F640013 08/06/2020 RDES -5 688 250 338 2 -5 714 245 807

F640013 10/07/2020 246 654 RDES -5 686 246 654 3 -5 667 240 141

F640013 14/09/2020 RDES -11 393 248 570 4 -11 007 229 134

F640013 31/12/2020 251 770 5 0 229 134

Les colonnes A à G sont déjà présentes dans ma base. Mon but est de calculer H et I.
Ce qui me pose problème est que H dépend de I de le ligne précédente , et que I dépend de H et I (-1).
Autrement dit, il faut calculer I(1), puis H(2), puis I(2), puis H(3), puis I(3) ,etc ...

Les formules exactes sont les suivantes :

H5=SI(G5=1;"";SI(E5="";0;SI(E5>0;E5;I4*(E5/F5))))
I5=SI(G5=1;SI(D5="";C5;F5);I4+H5)

C'est simplissime sous Excel, mais je n'arrive pas à trouver de solution SIMPLE sous SAS.
Auriez vous une idée ?

A	B	C	D	E	F	G	H	I
F640013	31/12/2019	251 522				1		251 522
F640013	08/06/2020		RDES	-5 688	250 338	2	-5 714	245 807
F640013	10/07/2020	246 654	RDES	-5 686	246 654	3	-5 667	240 141
F640013	14/09/2020		RDES	-11 393	248 570	4	-11 007	229 134
F640013	31/12/2020	251 770				5	0	229 134

Bonjour Bénédicte.
Voilà un code qui fonctionne. La clé est RETAIN.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
DATA work.benedicte ;
  INFILE DATALINES DSD DLM=";" MISSOVER ;
  INPUT A :$10. B :$10. 
        C D $ E F G ;
DATALINES4 ;
F640013 ;31/12/2019 ;251522 ;;;;1 ;;251522
F640013 ;08/06/2020 ;;RDES ;-5688 ;250338 ;2 ;-5714 ;245807
F640013 ;10/07/2020 ;246654 ;RDES ;-5686 ;246654 ;3 ;-5667 ;240141
F640013 ;14/09/2020 ;;RDES ;-11393 ;248570 ;4 ;-11007 ;229134
F640013 ;31/12/2020 ;251770 ;;;;5 ;0 ;229 134
;;;;
RUN ;
 
DATA work.benedicte ;
  SET work.benedicte ;
  FORMAT h i NLNUM15. ;
  RETAIN i ;
  IF g=1 THEN DO ;
           h = . ;
           i = COALESCE(C,F) ;
  END ;
  ELSE DO ;
     IF MISSING(e) THEN h = 0 ;
     ELSE IF e > 0 THEN h = 0 ;
     ELSE               h = i*e/f ;
     i = i+h ;
  END ;
RUN ;

PS : c'est plus simple pour répondre quand la personne qui pose la question poste de quoi créer les données plutôt qu'une image des données.

11/03/2021, 17h53
Bénédicte666

Merci !
Vous avez fait en quelques lignes ce que j'ai codé en une page avec des macros qui prennent un temps fou !