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

RUN;
IF f1_4haltung=4 THEN LLAH4=f2_2leist_a/f1_6anz_ein/7;
IF f1_4haltung=5 THEN LLAH5=f2_2leist_a/f1_6anz_ein/7;
IF f1_4haltung=6 THEN LLAH6=f2_2leist_a/f1_6anz_ein/7;
PROC SORT DATA=tmp1;
BY f0_2lfdnr2 f2_0lw;
RUN;
DATA tmpwrk;
MERGE wrk tmp1;
BY f0_2lfdnr2;
RUN;
DATA tmp2;
SET tmpwrk;
WHERE f1_6anz_ein ne .;
RUN;
PROC MEANS DATA=tmp2 MIN MAX NOPRINT;
VAR f2_0lw;
BY f0_2lfdnr2;
OUTPUT OUT=minMax MIN=EWo MAX=LWo;
RUN;
SAS-Programme
DATA tmp3;
MERGE tmp2 minMax;
BY f0_2lfdnr2;
IF f2_0lw=LWo or f2_0lw=LWo-1 or f2_0lw=LWo-2 or f2_0lw=LWo-3 or
f2_0lw=LWo-4
or f2_0lw=LWo-5 THEN Ende=1;
IF f2_0lw=EWo or f2_0lw=EWo+1 or f2_0lw=EWo+2 or f2_0lw=EWo+3 or
f2_0lw=EWo+4
or f2_0lw=EWo+5 THEN Anfang=1;
IF entnommen=. THEN entnommen=0;
RUN;
DATA Epileg_B_&Datum;
SET tmp3;
BY f0_2lfdnr2;
vsum+(f2_1verlust+entnommen);
IF first.f0_2lfdnr2 THEN vsum=f2_1verlust+entnommen;
behe= f1_6anz_ein-vsum;
LLTH=f2_2leist_a/behe/7;
IF f1_4haltung=1 THEN LLBH1=f2_2leist_a/behe/7;
IF f1_4haltung=2 THEN LLBH2=f2_2leist_a/behe/7;
IF f1_4haltung=3 THEN LLBH3=f2_2leist_a/behe/7;
IF f1_4haltung=4 THEN LLBH4=f2_2leist_a/behe/7;
IF f1_4haltung=5 THEN LLBH5=f2_2leist_a/behe/7;
IF f1_4haltung=6 THEN LLBH6=f2_2leist_a/behe/7;
IF f0_2lfdnr2 in (2315.00 2326.00 1458.00 3119.00 3118.00 1858.00
1910.00 1890.00
1385.00 860.00 514 515 519) THEN DELETE;*werden ausgeschlossen,
da die Betriebe weniger als 3000 Haltungsplätze haben;
FK_ID;
RUN;
DROP ausschluss f0_2lfdnr f0_2lfdnr_zusatz _TYPE_ _FREQ_ Stall WO_ID
**************Teil A****************;
*geben Sie bitte hinter DATABASE= den Pfad und den Namen des aktuellen
Datenbankstandes an;
PROC IMPORT OUT= EPILEG_A
129