XProfan

declare split%, pos%, satz$, text$
text$ = Hugo was here. Hugo was here.
print instr(Hugo, text$)      In XProfan und Prf2Cpp gleich: 1 - 1
print instr(Hugo, text$,1)    In XProfan und Prf2Cpp gleich: 1 - 1
print instr(Hugo, text$,16)   In XProfan und Prf2Cpp gleich: 16 - 16
print instr(Hugo, text$,17)   In XProfan und 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