Funktion AHV_NUMMER in Clipper
Ermittlung der AHV-Nummer aufgrund von Nachname, Geschlecht und Geburtsdatum
FUNCTION AHV_NUMMER(nachname,geschlecht,gebdatum)
LOCAL ahvcodes := AHV_CODES()
LOCAL ahvname := ""
LOCAL ahvmonat := ""
LOCAL ahvnumm := " . . "
LOCAL i := 0
LOCAL j := 0
LOCAL nummer := 0
LOCAL offset := {100,131,162,200,231,262,300,331,362,400,431,462}
LOCAL sanf := 0
LOCAL send := 0
LOCAL txt := ""
ahvnumm=LEFT(ahvnumm,4)+RIGHT(STR(YEAR(gebdatum),4,0),2)+"."
ahvnumm+=STR(offset[MONTH(gebdatum)]+DAY(gebdatum)+IIF(geschlecht$"WwFf",400,0),3,0)
txt=ALLTRIM(UPPER(nachname))
DO WHILE LEN(txt)>0.5
IF LEFT(txt,2)=="AE"
ahvname+="A"
txt=SUBSTR(txt,3)
ELSEIF LEFT(txt,2)=="OE"
ahvname+="O"
txt=SUBSTR(txt,3)
ELSEIF LEFT(txt,2)=="UE"
ahvname+="U"
txt=SUBSTR(txt,3)
ELSEIF LEFT(txt,1)$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
ahvname+=LEFT(txt,1)
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"äÄàÀâÂáÁ"
ahvname+="A"
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"ëËèÈéÉ"
ahvname+="E"
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"ïÏìÌíÍ"
ahvname+="I"
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"öÖòÒõÕóÓ"
ahvname+="O"
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"üÜùÙúÚ"
ahvname+="U"
txt=SUBSTR(txt,2)
ELSEIF LEFT(txt,1)$"ñÑ"
ahvname+="N"
txt=SUBSTR(txt,2)
ELSE
txt=SUBSTR(txt,2)
ENDIF
ENDDO
IF LEFT(ahvname,1)$"ABCDE"
sanf=1
send=227
ELSEIF LEFT(ahvname,1)$"FGHIJ"
sanf=224
send=427
ELSEIF LEFT(ahvname,1)$"KLMNOP"
sanf=424
send=626
ELSEIF LEFT(ahvname,3)=="SCH"
sanf=826
send=875
ELSEIF LEFT(ahvname,2)=="ST"
sanf=876
send=900
ELSE
sanf=623
send=825
ENDIF
FOR i=sanf TO send
j=LEN(ALLTRIM(LEFT(ahvcodes[i],7)))
IF LEFT(ahvname,j)<LEFT(ahvcodes[i],j)
nummer=i-1
EXIT
ENDIF
NEXT i
IF nummer<0.5
j=LEN(ALLTRIM(LEFT(ahvcodes[send],7)))
IF !(LEFT(ahvname,j)<LEFT(ahvcodes[send],j))
nummer=send
ENDIF
ENDIF
ahvnumm=RIGHT(ahvcodes[nummer],3)+SUBSTR(ahvnumm,4)
RETURN(ahvnumm)
FUNCTION AHV_CODES()
LOCAL array := {}
AADD(array,"A 100")
AADD(array,"ABI 101")
AADD(array,"ABL 102")
AADD(array,"AC 103")
AADD(array,"AF 104")
AADD(array,"AG 105")
AADD(array,"AL 106")
AADD(array,"ALD 107")
AADD(array,"ALL 108")
AADD(array,"ALM 109")
AADD(array,"AM 110")
AADD(array,"AMD 111")
AADD(array,"AMM 112")
AADD(array,"AMO 113")
AADD(array,"AMS 114")
AADD(array,"AN 115")
AADD(array,"ANDO 116")
AADD(array,"ANE 117")
AADD(array,"ANN 118")
AADD(array,"AO 119")
AADD(array,"AR 120")
AADD(array,"ARNO 121")
AADD(array,"ARO 122")
AADD(array,"AS 123")
AADD(array,"AU 124")
AADD(array,"B 125")
AADD(array,"BACH 126")
AADD(array,"BACHM 127")
AADD(array,"BAD 128")
AADD(array,"BAG 129")
AADD(array,"BAL 130")
AADD(array,"BALL 131")
AADD(array,"BALM 132")
AADD(array,"BALS 133")
AADD(array,"BAM 134")
AADD(array,"BAN 135")
AADD(array,"BAR 136")
AADD(array,"BARC 137")
AADD(array,"BARM 138")
AADD(array,"BART 139")
AADD(array,"BAS 140")
AADD(array,"BAT 141")
AADD(array,"BAU 142")
AADD(array,"BAUE 143")
AADD(array,"BAUM 144")
AADD(array,"BAUMB 145")
AADD(array,"BAUMG 146")
AADD(array,"BAUN 147")
AADD(array,"BAV 148")
AADD(array,"BAY 149")
AADD(array,"BE 150")
AADD(array,"BED 151")
AADD(array,"BEF 152")
AADD(array,"BEL 153")
AADD(array,"BEN 154")
AADD(array,"BER 155")
AADD(array,"BERG 156")
AADD(array,"BERH 157")
AADD(array,"BERN 158")
AADD(array,"BERNE 159")
AADD(array,"BERO 160")
AADD(array,"BERT 161")
AADD(array,"BES 162")
AADD(array,"BEU 163")
AADD(array,"BF 164")
AADD(array,"BI 165")
AADD(array,"BIE 166")
AADD(array,"BIER 167")
AADD(array,"BIF 168")
AADD(array,"BIL 169")
AADD(array,"BIN 170")
AADD(array,"BIO 171")
AADD(array,"BIS 172")
AADD(array,"BISE 173")
AADD(array,"BIT 174")
AADD(array,"BL 175")
AADD(array,"BLAS 176")
AADD(array,"BLAT 177")
AADD(array,"BLE 178")
AADD(array,"BLU 179")
AADD(array,"BO 180")
AADD(array,"BOD 181")
AADD(array,"BOF 182")
AADD(array,"BOH 183")
AADD(array,"BOI 184")
AADD(array,"BOL 185")
AADD(array,"BOLL 186")
AADD(array,"BOLLI 187")
AADD(array,"BOLM 188")
AADD(array,"BOM 189")
AADD(array,"BON 190")
AADD(array,"BOO 191")
AADD(array,"BOR 192")
AADD(array,"BORG 193")
AADD(array,"BORN 194")
AADD(array,"BOS 195")
AADD(array,"BOSS 196")
AADD(array,"BOSSH 197")
AADD(array,"BOT 198")
AADD(array,"BOV 199")
AADD(array,"BR 200")
AADD(array,"BRAG 201")
AADD(array,"BRAN 202")
AADD(array,"BRAP 203")
AADD(array,"BRAU 204")
AADD(array,"BRE 205")
AADD(array,"BREG 206")
AADD(array,"BREL 207")
AADD(array,"BRES 208")
AADD(array,"BRI 209")
AADD(array,"BRO 210")
AADD(array,"BROF 211")
AADD(array,"BRON 212")
AADD(array,"BRONN 213")
AADD(array,"BROO 214")
AADD(array,"BRU 215")
AADD(array,"BRUD 216")
AADD(array,"BRUG 217")
AADD(array,"BRUH 218")
AADD(array,"BRUL 219")
AADD(array,"BRUN 220")
AADD(array,"BRUND 221")
AADD(array,"BRUNN 222")
AADD(array,"BRUNO 223")
AADD(array,"BRUO 224")
AADD(array,"BU 225")
AADD(array,"BUCH 226")
AADD(array,"BUCHI 227")
AADD(array,"BUCHO 228")
AADD(array,"BUCI 229")
AADD(array,"BUD 230")
AADD(array,"BUH 231")
AADD(array,"BUHLM 232")
AADD(array,"BUHM 233")
AADD(array,"BUI 234")
AADD(array,"BUR 235")
AADD(array,"BURG 236")
AADD(array,"BURGI 237")
AADD(array,"BURH 238")
AADD(array,"BURK 239")
AADD(array,"BURKH 240")
AADD(array,"BURKI 241")
AADD(array,"BURL 242")
AADD(array,"BURR 243")
AADD(array,"BURS 244")
AADD(array,"BUS 245")
AADD(array,"BUSS 246")
AADD(array,"BUT 247")
AADD(array,"BUTT 248")
AADD(array,"BY 249")
AADD(array,"C 250")
AADD(array,"CAL 251")
AADD(array,"CAM 252")
AADD(array,"CAN 253")
AADD(array,"CAR 254")
AADD(array,"CAS 255")
AADD(array,"CAST 256")
AADD(array,"CAT 257")
AADD(array,"CAV 258")
AADD(array,"CE 259")
AADD(array,"CH 260")
AADD(array,"CHAR 261")
AADD(array,"CHE 262")
AADD(array,"CHI 263")
AADD(array,"CHR 264")
AADD(array,"CI 265")
AADD(array,"CL 266")
AADD(array,"CO 267")
AADD(array,"COM 268")
AADD(array,"COR 269")
AADD(array,"CORN 270")
AADD(array,"COS 271")
AADD(array,"CR 272")
AADD(array,"CRI 273")
AADD(array,"CU 274")
AADD(array,"D 275")
AADD(array,"DAM 276")
AADD(array,"DAS 277")
AADD(array,"DE 278")
AADD(array,"DEG 279")
AADD(array,"DEL 280")
AADD(array,"DEM 281")
AADD(array,"DEP 282")
AADD(array,"DES 283")
AADD(array,"DET 284")
AADD(array,"DI 285")
AADD(array,"DIE 286")
AADD(array,"DIG 287")
AADD(array,"DO 288")
AADD(array,"DOR 289")
AADD(array,"DR 290")
AADD(array,"DU 291")
AADD(array,"DUB 292")
AADD(array,"DUC 293")
AADD(array,"DUD 294")
AADD(array,"DUM 295")
AADD(array,"DUP 296")
AADD(array,"DUR 297")
AADD(array,"DUS 298")
AADD(array,"DUV 299")
AADD(array,"E 300")
AADD(array,"EBL 301")
AADD(array,"EC 302")
AADD(array,"EG 303")
AADD(array,"EGGEN 304")
AADD(array,"EGGER 305")
AADD(array,"EGGF 306")
AADD(array,"EGH 307")
AADD(array,"EH 308")
AADD(array,"EHRE 309")
AADD(array,"EI 310")
AADD(array,"EICHF 311")
AADD(array,"EID 312")
AADD(array,"EIN 313")
AADD(array,"EK 314")
AADD(array,"EM 315")
AADD(array,"EN 316")
AADD(array,"ENG 317")
AADD(array,"ENI 318")
AADD(array,"EO 319")
AADD(array,"ER 320")
AADD(array,"ERN 321")
AADD(array,"ES 322")
AADD(array,"ET 323")
AADD(array,"EU 324")
AADD(array,"F 325")
AADD(array,"FAH 326")
AADD(array,"FAI 327")
AADD(array,"FAN 328")
AADD(array,"FAR 329")
AADD(array,"FAS 330")
AADD(array,"FASS 331")
AADD(array,"FAT 332")
AADD(array,"FAV 333")
AADD(array,"FAW 334")
AADD(array,"FE 335")
AADD(array,"FEL 336")
AADD(array,"FELI 337")
AADD(array,"FEM 338")
AADD(array,"FET 339")
AADD(array,"FI 340")
AADD(array,"FIN 341")
AADD(array,"FISCH 342")
AADD(array,"FISD 343")
AADD(array,"FIT 344")
AADD(array,"FL 345")
AADD(array,"FLE 346")
AADD(array,"FLI 347")
AADD(array,"FLU 348")
AADD(array,"FLUD 349")
AADD(array,"FO 350")
AADD(array,"FON 351")
AADD(array,"FOR 352")
AADD(array,"FORR 353")
AADD(array,"FOS 354")
AADD(array,"FR 355")
AADD(array,"FRAN 356")
AADD(array,"FRAP 357")
AADD(array,"FRE 358")
AADD(array,"FREI 359")
AADD(array,"FREK 360")
AADD(array,"FREY 361")
AADD(array,"FRI 362")
AADD(array,"FRIE 363")
AADD(array,"FRIF 364")
AADD(array,"FRIS 365")
AADD(array,"FRIT 366")
AADD(array,"FRO 367")
AADD(array,"FROI 368")
AADD(array,"FRU 369")
AADD(array,"FU 370")
AADD(array,"FUD 371")
AADD(array,"FUI 372")
AADD(array,"FUR 373")
AADD(array,"FUS 374")
AADD(array,"G 375")
AADD(array,"GAF 376")
AADD(array,"GAL 377")
AADD(array,"GAM 378")
AADD(array,"GAN 379")
AADD(array,"GAP 380")
AADD(array,"GAS 381")
AADD(array,"GASS 382")
AADD(array,"GAT 383")
AADD(array,"GAV 384")
AADD(array,"GE 385")
AADD(array,"GEH 386")
AADD(array,"GEI 387")
AADD(array,"GEL 388")
AADD(array,"GEO 389")
AADD(array,"GER 390")
AADD(array,"GERD 391")
AADD(array,"GES 392")
AADD(array,"GF 393")
AADD(array,"GI 394")
AADD(array,"GIG 395")
AADD(array,"GIL 396")
AADD(array,"GIM 397")
AADD(array,"GIR 398")
AADD(array,"GIS 399")
AADD(array,"GL 400")
AADD(array,"GLE 401")
AADD(array,"GM 402")
AADD(array,"GO 403")
AADD(array,"GOM 404")
AADD(array,"GR 405")
AADD(array,"GRAF 406")
AADD(array,"GRAG 407")
AADD(array,"GRE 408")
AADD(array,"GRES 409")
AADD(array,"GRI 410")
AADD(array,"GRIM 411")
AADD(array,"GRO 412")
AADD(array,"GROS 413")
AADD(array,"GROT 414")
AADD(array,"GRU 415")
AADD(array,"GRUP 416")
AADD(array,"GS 417")
AADD(array,"GU 418")
AADD(array,"GUD 419")
AADD(array,"GUG 420")
AADD(array,"GUI 421")
AADD(array,"GUN 422")
AADD(array,"GUT 423")
AADD(array,"GW 424")
AADD(array,"H 425")
AADD(array,"HAB 426")
AADD(array,"HABI 427")
AADD(array,"HAC 428")
AADD(array,"HAD 429")
AADD(array,"HAF 430")
AADD(array,"HAFL 431")
AADD(array,"HAFN 432")
AADD(array,"HAG 433")
AADD(array,"HAH 434")
AADD(array,"HAL 435")
AADD(array,"HALL 436")
AADD(array,"HAM 437")
AADD(array,"HAN 438")
AADD(array,"HANN 439")
AADD(array,"HAO 440")
AADD(array,"HAR 441")
AADD(array,"HART 442")
AADD(array,"HAS 443")
AADD(array,"HAT 444")
AADD(array,"HAU 445")
AADD(array,"HAUS 446")
AADD(array,"HAUSF 447")
AADD(array,"HAUT 448")
AADD(array,"HAV 449")
AADD(array,"HE 450")
AADD(array,"HEE 451")
AADD(array,"HEG 452")
AADD(array,"HEI 453")
AADD(array,"HEIN 454")
AADD(array,"HEL 455")
AADD(array,"HELF 456")
AADD(array,"HELL 457")
AADD(array,"HEM 458")
AADD(array,"HEN 459")
AADD(array,"HENG 460")
AADD(array,"HENO 461")
AADD(array,"HEO 462")
AADD(array,"HER 463")
AADD(array,"HERM 464")
AADD(array,"HERR 465")
AADD(array,"HERS 466")
AADD(array,"HERZ 467")
AADD(array,"HES 468")
AADD(array,"HET 469")
AADD(array,"HI 470")
AADD(array,"HIM 471")
AADD(array,"HIR 472")
AADD(array,"HIRT 473")
AADD(array,"HIS 474")
AADD(array,"HO 475")
AADD(array,"HOF 476")
AADD(array,"HOFF 477")
AADD(array,"HOFM 478")
AADD(array,"HOFN 479")
AADD(array,"HOG 480")
AADD(array,"HOL 481")
AADD(array,"HOM 482")
AADD(array,"HOR 483")
AADD(array,"HOT 484")
AADD(array,"HU 485")
AADD(array,"HUBF 486")
AADD(array,"HUC 487")
AADD(array,"HUG 488")
AADD(array,"HUGI 489")
AADD(array,"HUH 490")
AADD(array,"HUN 491")
AADD(array,"HUNI 492")
AADD(array,"HUNZ 493")
AADD(array,"HUO 494")
AADD(array,"HUR 495")
AADD(array,"HURN 496")
AADD(array,"HUS 497")
AADD(array,"HUT 498")
AADD(array,"HUW 499")
AADD(array,"I 500")
AADD(array,"IM 501")
AADD(array,"IN 502")
AADD(array,"IS 503")
AADD(array,"IT 504")
AADD(array,"J 505")
AADD(array,"JAD 506")
AADD(array,"JAH 507")
AADD(array,"JAN 508")
AADD(array,"JAR 509")
AADD(array,"JE 510")
AADD(array,"JEC 511")
AADD(array,"JEH 512")
AADD(array,"JEN 513")
AADD(array,"JEP 514")
AADD(array,"JO 515")
AADD(array,"JOL 516")
AADD(array,"JOR 517")
AADD(array,"JOS 518")
AADD(array,"JOT 519")
AADD(array,"JU 520")
AADD(array,"JUF 521")
AADD(array,"JUN 522")
AADD(array,"JUNK 523")
AADD(array,"JUO 524")
AADD(array,"K 525")
AADD(array,"KAH 526")
AADD(array,"KAL 527")
AADD(array,"KAM 528")
AADD(array,"KAN 529")
AADD(array,"KAR 530")
AADD(array,"KAS 531")
AADD(array,"KASP 532")
AADD(array,"KAT 533")
AADD(array,"KAU 534")
AADD(array,"KE 535")
AADD(array,"KEL 536")
AADD(array,"KEM 537")
AADD(array,"KES 538")
AADD(array,"KET 539")
AADD(array,"KI 540")
AADD(array,"KIF 541")
AADD(array,"KIM 542")
AADD(array,"KIR 543")
AADD(array,"KIS 544")
AADD(array,"KL 545")
AADD(array,"KLE 546")
AADD(array,"KLI 547")
AADD(array,"KN 548")
AADD(array,"KNO 549")
AADD(array,"KO 550")
AADD(array,"KOC 551")
AADD(array,"KOD 552")
AADD(array,"KOH 553")
AADD(array,"KOL 554")
AADD(array,"KOLL 555")
AADD(array,"KOM 556")
AADD(array,"KOP 557")
AADD(array,"KOR 558")
AADD(array,"KOT 559")
AADD(array,"KR 560")
AADD(array,"KRAP 561")
AADD(array,"KRE 562")
AADD(array,"KRI 563")
AADD(array,"KRU 564")
AADD(array,"KU 565")
AADD(array,"KUC 566")
AADD(array,"KUH 567")
AADD(array,"KUI 568")
AADD(array,"KUN 569")
AADD(array,"KUNZ 570")
AADD(array,"KUNZI 571")
AADD(array,"KUO 572")
AADD(array,"KUR 573")
AADD(array,"KUS 574")
AADD(array,"L 575")
AADD(array,"LAF 576")
AADD(array,"LAN 577")
AADD(array,"LANG 578")
AADD(array,"LANH 579")
AADD(array,"LAO 580")
AADD(array,"LAT 581")
AADD(array,"LAU 582")
AADD(array,"LAUD 583")
AADD(array,"LAV 584")
AADD(array,"LE 585")
AADD(array,"LED 586")
AADD(array,"LEE 587")
AADD(array,"LEH 588")
AADD(array,"LEHN 589")
AADD(array,"LEI 590")
AADD(array,"LEIP 591")
AADD(array,"LEK 592")
AADD(array,"LEO 593")
AADD(array,"LER 594")
AADD(array,"LEU 595")
AADD(array,"LEUE 596")
AADD(array,"LEUF 597")
AADD(array,"LEUT 598")
AADD(array,"LEV 599")
AADD(array,"LI 600")
AADD(array,"LIE 601")
AADD(array,"LIEC 602")
AADD(array,"LIED 603")
AADD(array,"LIF 604")
AADD(array,"LIN 605")
AADD(array,"LIND 606")
AADD(array,"LINE 607")
AADD(array,"LIO 608")
AADD(array,"LIS 609")
AADD(array,"LO 610")
AADD(array,"LOF 611")
AADD(array,"LOO 612")
AADD(array,"LOR 613")
AADD(array,"LOT 614")
AADD(array,"LU 615")
AADD(array,"LUD 616")
AADD(array,"LUG 617")
AADD(array,"LUI 618")
AADD(array,"LUS 619")
AADD(array,"LUT 620")
AADD(array,"LUTH 621")
AADD(array,"LUTI 622")
AADD(array,"LUU 623")
AADD(array,"LY 624")
AADD(array,"M 625")
AADD(array,"MAD 626")
AADD(array,"MAG 627")
AADD(array,"MAI 628")
AADD(array,"MAK 629")
AADD(array,"MAR 630")
AADD(array,"MARG 631")
AADD(array,"MART 632")
AADD(array,"MARTIN 633")
AADD(array,"MARU 634")
AADD(array,"MAS 635")
AADD(array,"MAT 636")
AADD(array,"MATT 637")
AADD(array,"MAU 638")
AADD(array,"MAY 639")
AADD(array,"ME 640")
AADD(array,"MEIER 641")
AADD(array,"MEIF 642")
AADD(array,"MEK 643")
AADD(array,"MER 644")
AADD(array,"MES 645")
AADD(array,"MET 646")
AADD(array,"MEY 647")
AADD(array,"MEYER 648")
AADD(array,"MEYF 649")
AADD(array,"MI 650")
AADD(array,"MIC 651")
AADD(array,"MID 652")
AADD(array,"MIN 653")
AADD(array,"MIR 654")
AADD(array,"MO 655")
AADD(array,"MOI 656")
AADD(array,"MON 657")
AADD(array,"MONN 658")
AADD(array,"MONO 659")
AADD(array,"MOO 660")
AADD(array,"MOR 661")
AADD(array,"MORE 662")
AADD(array,"MORG 663")
AADD(array,"MOS 664")
AADD(array,"MOSE 665")
AADD(array,"MOSI 666")
AADD(array,"MOT 667")
AADD(array,"MU 668")
AADD(array,"MUH 669")
AADD(array,"MUL 670")
AADD(array,"MULL 671")
AADD(array,"MUM 672")
AADD(array,"MUR 673")
AADD(array,"MUS 674")
AADD(array,"N 675")
AADD(array,"NAG 676")
AADD(array,"NE 677")
AADD(array,"NEG 678")
AADD(array,"NEU 679")
AADD(array,"NI 680")
AADD(array,"NIE 681")
AADD(array,"NIEDERG682")
AADD(array,"NIEF 683")
AADD(array,"NIF 684")
AADD(array,"NO 685")
AADD(array,"NOT 686")
AADD(array,"NU 687")
AADD(array,"NY 688")
AADD(array,"NYF 689")
AADD(array,"O 690")
AADD(array,"OBI 691")
AADD(array,"OC 692")
AADD(array,"OD 693")
AADD(array,"OF 694")
AADD(array,"OK 695")
AADD(array,"OP 696")
AADD(array,"OS 697")
AADD(array,"OT 698")
AADD(array,"OU 699")
AADD(array,"P 700")
AADD(array,"PAG 701")
AADD(array,"PAN 702")
AADD(array,"PAR 703")
AADD(array,"PAT 704")
AADD(array,"PE 705")
AADD(array,"PEL 706")
AADD(array,"PER 707")
AADD(array,"PERRI 708")
AADD(array,"PERS 709")
AADD(array,"PES 710")
AADD(array,"PET 711")
AADD(array,"PEU 712")
AADD(array,"PF 713")
AADD(array,"PFI 714")
AADD(array,"PH 715")
AADD(array,"PI 716")
AADD(array,"PIG 717")
AADD(array,"PIR 718")
AADD(array,"PL 719")
AADD(array,"PO 720")
AADD(array,"POR 721")
AADD(array,"PR 722")
AADD(array,"PU 723")
AADD(array,"Q 724")
AADD(array,"R 725")
AADD(array,"RAM 726")
AADD(array,"RAN 727")
AADD(array,"RAS 728")
AADD(array,"RAU 729")
AADD(array,"RE 730")
AADD(array,"REC 731")
AADD(array,"REI 732")
AADD(array,"REIN 733")
AADD(array,"REK 734")
AADD(array,"REN 735")
AADD(array,"RENI 736")
AADD(array,"REO 737")
AADD(array,"REY 738")
AADD(array,"RH 739")
AADD(array,"RI 740")
AADD(array,"RIC 741")
AADD(array,"RID 742")
AADD(array,"RIE 743")
AADD(array,"RIEG 744")
AADD(array,"RIF 745")
AADD(array,"RIN 746")
AADD(array,"RIO 747")
AADD(array,"RIT 748")
AADD(array,"RIV 749")
AADD(array,"RO 750")
AADD(array,"ROC 751")
AADD(array,"ROD 752")
AADD(array,"ROH 753")
AADD(array,"ROHR 754")
AADD(array,"ROI 755")
AADD(array,"ROM 756")
AADD(array,"ROO 757")
AADD(array,"ROS 758")
AADD(array,"ROSS 759")
AADD(array,"ROT 760")
AADD(array,"ROTH 761")
AADD(array,"ROTHA 762")
AADD(array,"ROTI 763")
AADD(array,"ROU 764")
AADD(array,"RU 765")
AADD(array,"RUC 766")
AADD(array,"RUD 767")
AADD(array,"RUF 768")
AADD(array,"RUG 769")
AADD(array,"RUH 770")
AADD(array,"RUP 771")
AADD(array,"RUS 772")
AADD(array,"RUT 773")
AADD(array,"RY 774")
AADD(array,"S 775")
AADD(array,"SAL 776")
AADD(array,"SAM 777")
AADD(array,"SAR 778")
AADD(array,"SAV 779")
AADD(array,"SB 780")
AADD(array,"SE 781")
AADD(array,"SEI 782")
AADD(array,"SEN 783")
AADD(array,"SEO 784")
AADD(array,"SF 785")
AADD(array,"SI 786")
AADD(array,"SIEG 787")
AADD(array,"SIF 788")
AADD(array,"SIM 789")
AADD(array,"SK 790")
AADD(array,"SO 791")
AADD(array,"SOM 792")
AADD(array,"SP 793")
AADD(array,"SPI 794")
AADD(array,"SPO 795")
AADD(array,"SQ 796")
AADD(array,"SU 797")
AADD(array,"SUT 798")
AADD(array,"SV 799")
AADD(array,"T 875")
AADD(array,"TAN 876")
AADD(array,"TAO 877")
AADD(array,"TE 878")
AADD(array,"TER 879")
AADD(array,"TH 880")
AADD(array,"THE 881")
AADD(array,"THO 882")
AADD(array,"THON 883")
AADD(array,"THR 884")
AADD(array,"TI 885")
AADD(array,"TIR 886")
AADD(array,"TO 887")
AADD(array,"TOG 888")
AADD(array,"TOR 889")
AADD(array,"TR 890")
AADD(array,"TRE 891")
AADD(array,"TRI 892")
AADD(array,"TRO 893")
AADD(array,"TRU 894")
AADD(array,"TS 895")
AADD(array,"TSCHA 896")
AADD(array,"TSCHE 897")
AADD(array,"TSCHU 898")
AADD(array,"TU 899")
AADD(array,"U 900")
AADD(array,"UF 901")
AADD(array,"UL 902")
AADD(array,"UM 903")
AADD(array,"UR 904")
AADD(array,"V 905")
AADD(array,"VAL 906")
AADD(array,"VAM 907")
AADD(array,"VAR 908")
AADD(array,"VAU 909")
AADD(array,"VE 910")
AADD(array,"VET 911")
AADD(array,"VI 912")
AADD(array,"VIL 913")
AADD(array,"VIO 914")
AADD(array,"VO 915")
AADD(array,"VOG 916")
AADD(array,"VOGT 917")
AADD(array,"VOH 918")
AADD(array,"VOL 919")
AADD(array,"VON 920")
AADD(array,"VONG 921")
AADD(array,"VONO 922")
AADD(array,"VOO 923")
AADD(array,"VU 924")
AADD(array,"W 925")
AADD(array,"WAG 926")
AADD(array,"WAH 927")
AADD(array,"WAL 928")
AADD(array,"WALD 929")
AADD(array,"WALE 930")
AADD(array,"WALL 931")
AADD(array,"WALT 932")
AADD(array,"WAM 933")
AADD(array,"WAP 934")
AADD(array,"WAS 935")
AADD(array,"WAT 936")
AADD(array,"WE 937")
AADD(array,"WEC 938")
AADD(array,"WEH 939")
AADD(array,"WEI 940")
AADD(array,"WEIF 941")
AADD(array,"WEIS 942")
AADD(array,"WEIT 943")
AADD(array,"WEK 944")
AADD(array,"WEN 945")
AADD(array,"WER 946")
AADD(array,"WERN 947")
AADD(array,"WES 948")
AADD(array,"WEU 949")
AADD(array,"WI 950")
AADD(array,"WID 951")
AADD(array,"WIE 952")
AADD(array,"WIEL 953")
AADD(array,"WIF 954")
AADD(array,"WIL 955")
AADD(array,"WILE 956")
AADD(array,"WIM 957")
AADD(array,"WIP 958")
AADD(array,"WIR 959")
AADD(array,"WIS 960")
AADD(array,"WIT 961")
AADD(array,"WITT 962")
AADD(array,"WO 963")
AADD(array,"WOL 964")
AADD(array,"WU 965")
AADD(array,"WUI 966")
AADD(array,"WUN 967")
AADD(array,"WUR 968")
AADD(array,"WUT 969")
AADD(array,"WY 970")
AADD(array,"WYM 971")
AADD(array,"WYS 972")
AADD(array,"WYSS 973")
AADD(array,"WYT 974")
AADD(array,"X 975")
AADD(array,"Z 976")
AADD(array,"ZAM 977")
AADD(array,"ZAU 978")
AADD(array,"ZB 979")
AADD(array,"ZE 980")
AADD(array,"ZEH 981")
AADD(array,"ZEI 982")
AADD(array,"ZEM 983")
AADD(array,"ZF 984")
AADD(array,"ZI 985")
AADD(array,"ZIM 986")
AADD(array,"ZIN 987")
AADD(array,"ZK 988")
AADD(array,"ZO 989")
AADD(array,"ZU 990")
AADD(array,"ZUC 991")
AADD(array,"ZUL 992")
AADD(array,"ZUM 993")
AADD(array,"ZUN 994")
AADD(array,"ZUR 995")
AADD(array,"ZUS 996")
AADD(array,"ZW 997")
AADD(array,"ZWE 998")
AADD(array,"ZY 999")
* Namen mit Anfangsbuchstaben "SCH"
AADD(array,"SCH 800")
AADD(array,"SCHAD 801")
AADD(array,"SCHAF 802")
AADD(array,"SCHAL 803")
AADD(array,"SCHAR 804")
AADD(array,"SCHARB 805")
AADD(array,"SCHARL 806")
AADD(array,"SCHAS 807")
AADD(array,"SCHAU 808")
AADD(array,"SCHAV 809")
AADD(array,"SCHE 810")
AADD(array,"SCHEL 811")
AADD(array,"SCHEN 812")
AADD(array,"SCHER 813")
AADD(array,"SCHEU 814")
AADD(array,"SCHI 815")
AADD(array,"SCHIL 816")
AADD(array,"SCHL 817")
AADD(array,"SCHLE 818")
AADD(array,"SCHLU 819")
AADD(array,"SCHM 820")
AADD(array,"SCHMID 821")
AADD(array,"SCHMIDA822")
AADD(array,"SCHMIE 823")
AADD(array,"SCHMO 824")
AADD(array,"SCHN 825")
AADD(array,"SCHNEI 826")
AADD(array,"SCHNEK 827")
AADD(array,"SCHNI 828")
AADD(array,"SCHNY 829")
AADD(array,"SCHO 830")
AADD(array,"SCHON 831")
AADD(array,"SCHOO 832")
AADD(array,"SCHOR 833")
AADD(array,"SCHR 834")
AADD(array,"SCHU 835")
AADD(array,"SCHUL 836")
AADD(array,"SCHUM 837")
AADD(array,"SCHUR 838")
AADD(array,"SCHUS 839")
AADD(array,"SCHW 840")
AADD(array,"SCHWAB 841")
AADD(array,"SCHWAC 842")
AADD(array,"SCHWAR 843")
AADD(array,"SCHWARZ844")
AADD(array,"SCHWE 845")
AADD(array,"SCHWEI 846")
AADD(array,"SCHWEIZ847")
AADD(array,"SCHWEK 848")
AADD(array,"SCHWI 849")
* Namen mit Anfangsbuchstaben "ST"
AADD(array,"ST 850")
AADD(array,"STAH 851")
AADD(array,"STAL 852")
AADD(array,"STAM 853")
AADD(array,"STAU 854")
AADD(array,"STE 855")
AADD(array,"STEF 856")
AADD(array,"STEI 857")
AADD(array,"STEIN 858")
AADD(array,"STEK 859")
AADD(array,"STI 860")
AADD(array,"STO 861")
AADD(array,"STOD 862")
AADD(array,"STOL 863")
AADD(array,"STOO 864")
AADD(array,"STR 865")
AADD(array,"STRAU 866")
AADD(array,"STRE 867")
AADD(array,"STRI 868")
AADD(array,"STRU 869")
AADD(array,"STU 870")
AADD(array,"STUC 871")
AADD(array,"STUD 872")
AADD(array,"STUF 873")
AADD(array,"STUS 874")
RETURN(array)