TITEL   'PVKINDER PV Kinder prüfen              '
AUSWAHL PERSNR
        FIRMA EQ 88801
*/$PARAM START                                                        /*
*/$PARAM 21,10,D      Stichtag                                        /*
*/$PARAM 31,01,C      A = Alle, sonst nur unklare                     /*
*/$PARAM ENDE                                                         /*
        AUSDATUM EQ 0 OR GT PARAM(21 30)
        VERSAB EQ 00.00.0000
        ABRSCHL NE 0
 RECHNE SOZ-REL FORMAT(D) = SUMME(SOZGUEAB (SOZGUEAB LE PARAM(21 30)
                            AND (SOZGUEBIS EQ 0 OR GE PARAM(21 30))))
 RECHNE ANZ-AKT FORMAT(1 C) = PFLEGEKDX VON SOZGUEAB = SOZ-REL
 RECHNE ANZ-AKT = '1' (ANZ-AKT = 'J')
 RECHNE ANZ-AKT = '0' (ANZ-AKT = 'N')
 RECHNE ANZ-AKT = '0' (ANZ-AKT = ' ')
 RECHNE ANZ-NUM FORMAT(2 0) = 0 (ANZ-AKT = '0')
 RECHNE ANZ-NUM FORMAT(2 0) = 1 (ANZ-AKT = '1')
 RECHNE ANZ-NUM FORMAT(2 0) = 2 (ANZ-AKT = '2')
 RECHNE ANZ-NUM FORMAT(2 0) = 3 (ANZ-AKT = '3')
 RECHNE ANZ-NUM FORMAT(2 0) = 4 (ANZ-AKT = '4')
 RECHNE ANZ-NUM FORMAT(2 0) = 5 (ANZ-AKT = '5')
 
 RECHNE KI-PR FORMAT(1 C) = PVKINDPRUEF
 
 RECHNE ST-REL FORMAT(D) = SUMME(GUELTABX (GUELTABX LE PARAM(21 30)
                            AND (GUELTBISX EQ 0 OR GE PARAM(21 30))))
 RECHNE KI-FR FORMAT(3 1) = KINDERFREIBX VON GUELTABX = ST-REL
 
 RECHNE ANZ-AB25 FORMAT(2 0) = 0
 RECHNE ANZ-BI25 FORMAT(2 0) = 0
 
 RECHNE SATZN-01 FORMAT(3 0) = KINDFOLGE(01)
 RECHNE NNAME-01 FORMAT(30 C) = KINDNN(01)
 RECHNE VNAME-01 FORMAT(30 C) = KINDVN(01)
 RECHNE GEBDA-01 FORMAT(D 2) = KINDGEBDAT(01)
 RECHNE ALTER-01 FORMAT(2 0) = (PARAM(21 30) - GEBDA-01) * 0,0001
 RECHNE ALTER-01 = 0 (GEBDA-01 EQ 0)
 RECHNE ANZ-AB25 = ANZ-AB25 + 1 (ALTER-01 GE 25)
 RECHNE ANZ-BI25 = ANZ-BI25 + 1 (ALTER-01 LT 25 AND GEBDA-01 NE 0)
 RECHNE KI-NR FORMAT(2 0) = 0
 RECHNE KI-NR = 1 (GEBDA-01 NE 0)
 
 RECHNE SATZN-02 FORMAT(3 0) = KINDFOLGE(02)
 RECHNE NNAME-02 FORMAT(30 C) = KINDNN(02)
 RECHNE VNAME-02 FORMAT(30 C) = KINDVN(02)
 RECHNE GEBDA-02 FORMAT(D 2) = KINDGEBDAT(02)
 RECHNE ALTER-02 FORMAT(2 0) = (PARAM(21 30) - GEBDA-02) * 0,0001
 RECHNE ALTER-02 = 0 (GEBDA-02 EQ 0)
 RECHNE ANZ-AB25 = ANZ-AB25 + 1 (ALTER-02 GE 25)
 RECHNE ANZ-BI25 = ANZ-BI25 + 1 (ALTER-02 LT 25 AND GEBDA-02 NE 0)
 RECHNE S02 FORMAT(1 C) = 'X'
 RECHNE S02 = ' ' (GEBDA-02 NE 0)
 
 RECHNE SATZN-03 FORMAT(3 0) = KINDFOLGE(03)
 RECHNE NNAME-03 FORMAT(30 C) = KINDNN(03)
 RECHNE VNAME-03 FORMAT(30 C) = KINDVN(03)
 RECHNE GEBDA-03 FORMAT(D 2) = KINDGEBDAT(03)
 RECHNE ALTER-03 FORMAT(2 0) = (PARAM(21 30) - GEBDA-03) * 0,0001
 RECHNE ALTER-03 = 0 (GEBDA-03 EQ 0)
 RECHNE ANZ-AB25 = ANZ-AB25 + 1 (ALTER-03 GE 25)
 RECHNE ANZ-BI25 = ANZ-BI25 + 1 (ALTER-03 LT 25 AND GEBDA-03 NE 0)
 RECHNE S03 FORMAT(1 C) = 'X'
 RECHNE S03 = ' ' (GEBDA-03 NE 0)
 
 RECHNE SATZN-04 FORMAT(3 0) = KINDFOLGE(04)
 RECHNE NNAME-04 FORMAT(30 C) = KINDNN(04)
 RECHNE VNAME-04 FORMAT(30 C) = KINDVN(04)
 RECHNE GEBDA-04 FORMAT(D 2) = KINDGEBDAT(04)
 RECHNE ALTER-04 FORMAT(2 0) = (PARAM(21 30) - GEBDA-04) * 0,0001
 RECHNE ALTER-04 = 0 (GEBDA-04 EQ 0)
 RECHNE ANZ-AB25 = ANZ-AB25 + 1 (ALTER-04 GE 25)
 RECHNE ANZ-BI25 = ANZ-BI25 + 1 (ALTER-04 LT 25 AND GEBDA-04 NE 0)
 RECHNE S04 FORMAT(1 C) = 'X'
 RECHNE S04 = ' ' (GEBDA-04 NE 0)
 
 RECHNE SATZN-05 FORMAT(3 0) = KINDFOLGE(05)
 RECHNE NNAME-05 FORMAT(30 C) = KINDNN(05)
 RECHNE VNAME-05 FORMAT(30 C) = KINDVN(05)
 RECHNE GEBDA-05 FORMAT(D 2) = KINDGEBDAT(05)
 RECHNE ALTER-05 FORMAT(2 0) = (PARAM(21 30) - GEBDA-05) * 0,0001
 RECHNE ALTER-05 = 0 (GEBDA-05 EQ 0)
 RECHNE ANZ-AB25 = ANZ-AB25 + 1 (ALTER-05 GE 25)
 RECHNE ANZ-BI25 = ANZ-BI25 + 1 (ALTER-05 LT 25 AND GEBDA-05 NE 0)
 RECHNE S05 FORMAT(1 C) = 'X'
 RECHNE S05 = ' ' (GEBDA-05 NE 0)
 
 RECHNE OKAY FORMAT(4 C) = 'nein'
 RECHNE ANZ-GES FORMAT(2 0) = ANZ-AB25 + ANZ-BI25
 RECHNE ANZ-AKTU25 FORMAT(2 0) = ANZ-NUM - 1
 RECHNE OKAY = 'okay' (ANZ-NUM = 0 AND ANZ-GES EQ 0)
 RECHNE OKAY = 'okay' (ANZ-NUM = 1 AND ANZ-GES EQ 0)
 RECHNE OKAY = 'okay' (ANZ-NUM = ANZ-BI25 AND ANZ-AB25 = 0)
 RECHNE OKAY = 'okay' (ANZ-AKTU25 EQ ANZ-BI25 AND ANZ-AB25 GT 0)
 RECHNE OKAY = 'okay' (ANZ-NUM = 1 AND ANZ-BI25 EQ 0 AND ANZ-AB25 GT 0)
 
 AUSWAHL PARAM(31 31) EQ 'A' OR OKAY EQ 'nein'
 
AUSGABE DATEI(G8 ';')
        LAENGE = 750
KOPF 'Firma;Persnr;Name;Anzahl akt;Anz <25;Anz > 24;KiFrei;PV prüf;'
     'okay;Satz;Kind-Nr.;'
     'Nachname;Vorname;Geb.Datum;Alter;'
 
SATZ FIRMA PERSNR NAME ANZ-AKT ANZ-BI25 ANZ-AB25 KI-FR KI-PR
     OKAY SATZN-01 KI-NR NNAME-01 VNAME-01 GEBDA-01 ALTER-01
 
SATZ(S02) ';;;;;;;;;'
     SATZN-02 '2;' NNAME-02 VNAME-02 GEBDA-02 ALTER-02
SATZ(S03) ';;;;;;;;;'
     SATZN-03 '3;' NNAME-03 VNAME-03 GEBDA-03 ALTER-03
SATZ(S04) ';;;;;;;;;'
     SATZN-04 '4;' NNAME-04 VNAME-04 GEBDA-04 ALTER-04
SATZ(S05) ';;;;;;;;;'
     SATZN-05 '5;' NNAME-05 VNAME-05 GEBDA-05 ALTER-05