/* Beispiele aus der Vorlesung */
 LIBNAME lib  "~/SASPraktikum/Vorlesung/Termin 05";

 DATA vorlesung1;
 INPUT Name$ Benotung Punkte1 Punkte2 Gesamtpunkte M;
 CARDS;
 Gunter 5 4 6 10 5
 Erika 5 10 3 13 6.5
 ;
 RUN;

 PROC PRINT; RUN;
 PROC PRINT data=vorlesung1; RUN;

 DATA vorlesung_d;
 INFILE  "~/SASPraktikum/Vorlesung/Termin 05/lehre.dat" FIRSTOBS=2 DLM="09"x;
 INPUT Name$ Benotung Punkte1 Punkte2;
 RUN;

 DATA lib.vorlesung2;
 SET vorlesung_d;
 Gesamtpunkte = Punkte1+Punkte2;
 M = MEAN(Punkte1, Punkte2);
 M2 = MAX(Punkte1, Punkte2);
 M3 = MIN(OF Punkte1-Punkte2);
 RUN;

 PROC PRINT; RUN;

 DATA lib.vorlesung4(KEEP=W);
 A="Gast";
 B="Haus";
 W=A || B;
 RUN;

 PROC PRINT data=lib.vorlesung4; RUN;

 DATA Tiere;
 INPUT Tier1$ Tier2$ Tier3$;
 CARDS;
 Hund Katze Maus
 ;
 RUN;

 DATA Haustiere;
 SET Tiere;
 ARRAY Tierliste (*) Tier1-Tier3;
 RUN;

 PROC PRINT; RUN;

 DATA lib.vorlesung5(DROP = I);
 SET lib.vorlesung2(DROP = M2 M3)lib.vorlesung3;
 Bestanden = 1;
 ARRAY P (*) Punkte1-Punkte2 Gesamtpunkte;
 G=P(3);
 DO I = 1 TO DIM(P);
 IF P(I) < 10 THEN
 Bestanden = 0;
 END;
 SELECT (Benotung);
 WHEN(1) Kommentar = 'Sehr gut';
 WHEN(2) Kommentar = 'Gut';
 WHEN(3) Kommentar = 'Befriedigend';
 WHEN(4) ;
 OTHERWISE Kommentar = 'Durchgefallen';
 END;
 IF Bestanden = 1;
 /*KEEP Name Kommentar;*/
 RUN;

 DATA lib.vorlesung3;
 SET Vorlesung1;
 M2=MAX(Punkte1,Punkte2);
 M3=MIN(Punkte1, Punkte2);
 KEEP Name M2 M3;
 RUN;

 PROC PRINT; RUN;

 DATA Vorlesung4;
 MERGE Vorlesung1 lib.vorlesung3;
 RUN;

 PROC PRINT; RUN;

 DATA vorlesung5;
 SET vorlesung4 lib.vorlesung2;
 RUN;

 PROC PRINT; RUN;

 DATA lib.vorlesung6(KEEP=k w x);
 n = 10;
 p = 0.5;
 k = 0;
 DO WHILE (k LE 10);
 w = PDF('BINOM',k,p,n);
 OUTPUT;
 k = k+1;
 END;
 i=0;
 DO UNTIL (i > 20);
 x = RANUNI(0)*10;
 i = i+1;
 OUTPUT;
 END;
 RUN;

 PROC PRINT DATA=lib.vorlesung5 NOOBS;
 RUN;