Most beautiful Code ever

            IF pos(s_alias(pos(s_alias(1,i), ","),i), "Inc.") <= 5 OR pos(s_alias(pos(s_alias(1,i), ","),i), "INC.") <= 5 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), ".")+1,i;(len(s_alias(1,i))-pos(s_alias(1,i), ".")))
            ELSE
                IF pos(s_alias(pos(s_alias(1,i), ","),i), "INC") <= 5 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;(len(s_alias(1,i))-(pos(s_alias(1,i), "INC"))+3))
                ELSE
                    IF pos(s_alias(pos(s_alias(1,i), ","),i), "Inc") <= 5 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;(len(s_alias(1,i))-(pos(s_alias(1,i), "Inc"))+3))
                    ELSE

                        IF pos(s_alias(pos(s_alias(1,i), ","),i), "LLC") <= 7 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;(len(s_alias(1,i))-(pos(s_alias(1,i), "LLC"))+3))
                        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), ",")))
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF