Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6
Procedure : AU_AUTOSCRIPT8

AutoScript

{.................parametrized database example...........}

name = Input("Inpuut Form","Give Name","%")

start_sql "*" "KOSMOS"
   SELECT AU_CONTACT, DISP_NAME, FIRSTNAME
   FROM AU_CONTACT
   WHERE (FIRSTNAME LIKE :N & "%")
end_sql
q = QueryByName()
call TSetParam(q,"N",name)
call TExecute(q)

count = TRecordCount(q)

call message("CONTACT ID, DISP_NAME, NAME")

call TFirst(q)
for i = 1 to count
    id    = TGetFld(q,"AU_CONTACT")
    name = TGetFld(q,"DISP_NAME")
    first = TGetFld(q,"FIRSTNAME")

    call message(id,", ",name,", ",first)

    call TNext(q)
next
call FreeEmbSQL(q)