/* Datenauswertung_01: Häufigkeitsverteilung der Fehler D-Zwei Tests
/* Makro_Proz_Fehler
/*   SET PRINTBACK=ON MPRINT=ON .

CD 'N:\Daten\D_Zwei'  .  

ERASE FILE = 'SPEICHER02.sav'  .
ERASE FILE = 'SPEICHER03.sav'  .

DEFINE !DZWO2 (LISTE1 = !CHAREND ('/')/ LISTE2 = !CHAREND ('/') ) .

!DO !Zeile !IN (!LISTE2) .
!DO !Spalte !IN (!LISTE1) .

GET
 FILE='SPEICHER01.sav'
  /KEEP= Zeile, !Spalte, Id  .
EXECUTE .

SELECT IF  ( (Zeile = !Zeile) & (ID NE 7777777) & (ID NE 0) ) .
EXECUTE . 

COUNT
 F_S  =  !Spalte    (2)  .
EXECUTE .
COUNT
 R_S  = !Spalte     (1)  .
EXECUTE .
COUNT
 O_S  = !Spalte     (0)  .
EXECUTE .

RECODE
 F_S   R_S  O_S  (MISSING=0)  .
EXECUTE .

COMPUTE Fall = 1 .
CREATE    Fall = CSUM(Fall) .
CREATE F_S  = CSUM(F_S) .
CREATE R_S = CSUM(R_S) .
CREATE O_S = CSUM(O_S) .
EXECUTE .

SORT CASES BY Fall (D) .
SELECT IF ($casenum = 1) .
EXECUTE .

COMPUTE Proz_F = (100 * F_S) / (F_S + R_S) .
EXECUTE .

RENAME VARIABLES (Proz_F = !CONCAT(ProzF_, !Spalte))  .
EXECUTE .

MATCH FILES /FILE=*						
/FILE='SPEICHER02.sav'
 /DROP =  Id, Fall, R_S, O_S, F_S, !Spalte .
EXECUTE .
SAVE OUTFILE='SPEICHER02.sav'  .             
EXECUTE .

!DOEND .

ADD FILES /FILE=*						
/FILE='SPEICHER03.sav'   .
EXECUTE .
SAVE OUTFILE='SPEICHER03.sav'  .             
EXECUTE .

!DOEND .

!ENDDEFINE .

!DZWO2 
 LISTE1 = S_47 S_46 S_45 S_44 S_43 S_42 S_41 S_40 S_39 S_38 
                  S_37  S_36 S_35 S_34 S_33 S_32 S_31 S_30 S_29 S_28
                   S_27 S_26 S_25 S_24 S_23 S_22 S_21 S_20 S_19 S_18
                   S_17 S_16 S_15 S_14 S_13 S_12 S_11 S_10 S_09 S_08
                  S_07 S_06 S_05 S_04 S_03 S_02  S_01 /
 LISTE2 = 14 13 12 11 10 9 8 7 6 5 4 3 2 1 / .