/* EX 1 */

DATA souris;
	INPUT nom $ date DATE9.;
CARDS;
Grignote 12JAN2020
Rex 05DEC2019
Oscar 24DEC2019
Toto 10NOV2019a
Gugu 23OCT2019
;RUN;

DATA anniv (DROP=date anniv2 test);
	SET souris;
	anniv1=INTNX('day',date,+100);
	anniv2=INTNX('week',date,10);
	pot=INTNX('week',date,10,'e')+1;
	test=WEEKDAY(pot);
	FORMAT anniv1 DATE9. anniv2 DATE9. pot DATE9.;
;RUN;
	


/* EX 2 */

DATA bebetes (DROP=espece cle i annee note);
	INPUT cle @;
	IF cle=0 THEN INPUT nom $ espece $;
	ELSE DO;
		s_note=0;
		DO i=1 TO cle;
			INPUT @(3+9*(i-1)) annee note @;
			s_note=s_note+note/cle;
		END;
	END;
CARDS;
0 Gérard Canard 
3 2010   9 2011 8.5 2012 8
0 Colomba Carpe
2 2011   5 2010 4
0 Roger Canard 
2 2010   7 2009 8 
;RUN;