Monstercode of Monsters

|***ROUTINE zum Auslesen des Alias***|
|Der letzte Eintrag des letzten Feldes wird immer mit angehängt
|Dieses ist entweder leer oder birgt den ersten Teil eines
|unvollständigen Namens.

|Im IF - Fall werden Fälle abgefangen, bei denen sich folgende Situation ergibt:
|SOME Fancy Companyname, Inc.
|Statt nur bis zum Komma, wird der Inc. - Name IN den gleichen Aliasnamen mit
|implementiert und dementsprechend auch aus dem Aliasarray entfernt.
solved = (FALSE)
kommaposition = 0

IF TRIM$(s_class) <> "Individual" AND NOT isspace(TRIM$(s_class)) AND pos(s_alias(1,i),",") <> 0 THEN
        kommaposition = pos(s_alias(1,i), ",")

        IF pos(s_alias(kommaposition,i), "Inc.") <= 5 AND (pos(s_alias(kommaposition,i), "Inc.") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "."))
            s_alias(1,i) = s_alias(pos(s_alias(1,i), ".")+2,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "INC.") <= 5 AND (pos(s_alias(kommaposition,i), "INC.") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), ".")-1)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), ".")+2,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "INC") <= 5 AND (pos(s_alias(kommaposition,i), "INC") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "INC")+2)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), "INC")+4,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "Inc") <= 5 AND (pos(s_alias(kommaposition,i), "Inc") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "Inc")+2)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), "Inc")+4,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "LLC,") <= 7 AND (pos(s_alias(kommaposition,i), "LLC") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "LLC")+2)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), "LLC")+4,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "Co., Ltd.") <= 7 AND (pos(s_alias(kommaposition,i), "Co., Ltd.") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "Co., Ltd.")+8)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), "Co., Ltd.")+10,i)
            solved = (TRUE)
        ENDIF
        IF pos(s_alias(kommaposition,i), "CO., LTD.") <= 7 AND (pos(s_alias(kommaposition,i), "CO., LTD.") > 0) AND solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), "CO., LTD.")+8)
            s_alias(1,i) = s_alias(pos(s_alias(1,i), "CO., LTD.")+10,i)
            solved = (TRUE)
        ENDIF

        IF solved = (FALSE) THEN
            zpsam100.cref = lastentry & s_alias(1,i;kommaposition-1)
            |s_alias wird gesetzt ab der Stelle des letzten Kommas + 1 mit der Länge len(s_alias) - den abgeschnittenen Teil
            s_alias(1,i) = s_alias(kommaposition+1,i;(len(s_alias(1,i))-kommaposition))
            solved = (TRUE)
        ENDIF

ELSE
    zpsam100.cref = lastentry & s_alias(1,i;pos(s_alias(1,i), ",")-1)
    |s_alias wird gesetzt ab der Stelle des letzten Kommas + 1 mit der Länge len(s_alias) - den abgeschnittenen Teil
    s_alias(1,i) = s_alias(pos(s_alias(1,i), ",")+1,i;(len(s_alias(1,i))-pos(s_alias(1,i), ",")))
    solved = (TRUE)
ENDIF
|***Ende ROUTINE***|