lib

proc Form_Start()

     tname = __params[6]
     recid = __params[7]

     f = TopForm()
     p = PByName(f,"AU_CATEGORY_ENT")
     t = TByName(p,"AU_CATEGORY_ENT")

     call TEdit(t)
     call TSetFld(t,"TNAME",tname)
     call TSetFld(t,"RID",recid)
     call TPost(t)

    start_sql "TITLE_SEL" "KOSMOS"
       SELECT AU_CATEGORY_ITEM.TITLE, AU_CATEGORY_ITEM.CCODE, AU_CATEGORY_ITEM.AU_CATEGORY_ITEM
       FROM AU_CATEGORY_ITEM
       WHERE (AU_CATEGORY_ITEM.CCODE LIKE :C & '%')
       AND (AU_CATEGORY_ITEM.TITLE LIKE :E & '%')
       ORDER BY AU_CATEGORY_ITEM.TITLE
     end_sql

    start_sql "CCODE_SEL" "KOSMOS"
       SELECT AU_CATEGORY_ITEM.CCODE, AU_CATEGORY_ITEM.TITLE, AU_CATEGORY_ITEM.AU_CATEGORY_ITEM
       FROM AU_CATEGORY_ITEM
       WHERE (AU_CATEGORY_ITEM.CCODE LIKE :C & '%')
       AND (AU_CATEGORY_ITEM.CCODE LIKE :E & '%')
       ORDER BY AU_CATEGORY_ITEM.CCODE
     end_sql
end

{============================== Query Parameters ===================}

proc Select_TITLE_SEL_Params()

   s = GetEditedText()
   c = TGetFld(t,"AU_CATEGORY")
   call ParamsEmbSQL("TITLE_SEL",c,s)

end

proc Select_CCODE_SEL_Params()

   s = GetEditedText()
   c = TGetFld(t,"AU_CATEGORY")
   call ParamsEmbSQL("CCODE_SEL",c,s)

end