XProfan

declare split%, pos%, set$, Text$
text$ = Hugo what hier. Hugo what hier.
print instr(Hugo, Text$)      In XProfan and Prf2Cpp same: 1 - 1
print instr(Hugo, Text$,1)    In XProfan and Prf2Cpp same: 1 - 1
print instr(Hugo, Text$,16)   In XProfan and Prf2Cpp same: 16 - 16
print instr(Hugo, Text$,17)   In XProfan and Prf2Cpp UNgleich: 0 - 16
waitinput
end

int compare(const p_string& s)

{

    if (!s.m_pBuffer || !m_pBuffer) return 1;

        if (m_nLength > s.m_nLength) return 1;

            else if (m_nLength < s.m_nLength) return -1;
            else return memcmp(m_pBuffer, s.m_pBuffer, m_nLength);

        }

if prav_db% = 1

    sql$ = insert into prav values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&)
    sqlexec sql$, 2

else

    sql$ = insert into fim values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&)
    sqlexec sql$, 2

endif

if prav_db% = 1

    sqlexec insert into prav values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&), 2

else

    sqlexec insert into fim values (:id_db$,:timestamp_db$,:datum_db$,:berater_db$,:kunde_db$,:sek_db$,:modul_db$,:aktion_db$,:online_db$,:dauer_db&,:moddauer_db&,:berdauer_db&), 2

endif