Link - Frau Prof. Dr. rer. nat. Kira Klenke - Hochschule Hannover

SAS-Programme
DATATABLE= "Q_Export_A"
DBMS=ACCESS2000 REPLACE;
DATABASE="F:\Dokumente und Einstellungen\jschael\Eigene Dateien\Epileg\Datenbank\EPILEG_DB.mdb";
RUN;
DATA tmp;
SET EPILEG_A;
WHERE ausschluss =.;
IF f0_2lfdnr_Zusatz ne . THEN
f0_2lfdnr2=f0_2lfdnr+(f0_2lfdnr_Zusatz/100);
ELSE f0_2lfdnr2=f0_2lfdnr;
RUN;
***********Verbindung mit der Betriebsinfo******************;
PROC SORT DATA=tmp;
BY f0_2lfdnr2;
RUN;
DATA tmpwrk;
MERGE tmp wrk;
BY f0_2lfdnr2;
RUN;
DATA tmp2;
SET tmpwrk;
WHERE ID ne .;
RUN;
************Berechnung der Größenklasse des Betriebes/d. Betriebsstätte*************;
PROC SORT DATA=tmp2;
BY Betriebs_Nr_3;
RUN;
PROC MEANS DATA=tmp2 MAX NOPRINT;
BY Betriebs_Nr_2 Betriebs_Nr_3;
VAR f1_6anz_ein;
OUTPUT OUT=MaxAH MAX=MaxAH;
RUN;
PROC MEANS DATA=MaxAH SUM NOPRINT;
BY Betriebs_Nr_2;
VAR MaxAH;
OUTPUT OUT=BetrGr SUM=Betr_Gr;
RUN;
DATA tmp3;
MERGE tmp2 BetrGr;
BY Betriebs_Nr_2;
RUN;
***********Berechnung der durchschnittlichen Legeleistung***********;
PROC MEANS DATA=Epileg_B_&Datum MEAN NOPRINT;
WHERE f2_3maus ne 1 and Anfang ne 1 and Ende ne 1;
BY f0_2lfdnr2;
VAR LLTH;
OUTPUT OUT=dsLLBHT MEAN=dsLLBHT;
RUN;
DATA dsLLBHT;
SET dsLLBHT;
LL1000BHwo=dsLLBHT*1000*7;
130