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

B.2 Datenimport
SAS-Programme
/****************************************************************************
Programmdatei: Epileg_Daten-Import
Benötigte Programm-Datei (vorher einlesen):
autoexec.sas
Autor: Jan Schäl
Importiert die aktuellen Daten aus der Access Datenbank (befindet sich
generell unter Q:\bioepi\Projekte_Forschung\Legehennenhaltung\ Datenbank\aktueller
Datenstand') und definiert neue Variablen. Außerdem verbindet
es die einzelnen Durchgänge mit der dazugehörigen Betriebsnummer
aus der Datei Epileg.Betriebe_BRD (für Teile A und B)
****************************************************************************/
*WICHTIG! Geben Sie bitte zunächst hier das aktuelle Datum in der Form
JJJJ_MM_TT an;
%LET Datum=2004_02_19;
**************Betriebsinfos****************;
PROC IMPORT OUT= Betriebe_BRD
DATATABLE= "Tab_Betriebsnr"
DBMS=ACCESS2000 REPLACE;
DATABASE="F:\Dokumente und Einstellungen\jschael\Eigene Dateien\Epileg\Datenbank\EPILEG_DB.mdb";
RUN;
DATA wrk;
SET Betriebe_BRD;
RUN;
PROC SORT DATA=wrk;
BY f0_2lfdnr2;
RUN;
**************Teil B****************;
PROC IMPORT OUT= EPILEG_B
DATATABLE= "Q_Export_B"
DBMS=ACCESS2000 REPLACE;
DATABASE="F:\Dokumente und Einstellungen\jschael\Eigene Dateien\Epileg\Datenbank\EPILEG_DB.mdb";
RUN;
DATA tmp1;
SET EPILEG_B;
WHERE ausschluss=.;
IF f0_2lfdnr_Zusatz ne . THEN
f0_2lfdnr2=f0_2lfdnr+(f0_2lfdnr_Zusatz/100);
ELSE f0_2lfdnr2=f0_2lfdnr;
IF f1_4haltung=1 THEN LLAH1=f2_2leist_a/f1_6anz_ein/7;
IF f1_4haltung=2 THEN LLAH2=f2_2leist_a/f1_6anz_ein/7;
IF f1_4haltung=3 THEN LLAH3=f2_2leist_a/f1_6anz_ein/7;
128