Click above to get retro games delivered to your door ever month!

lookupudf()


Syntax:     dbedit(6,6,12,28,aFlds,"lookUpUdf","",aName,chr(196))

Purpose:    User defined function for dbedit()

Arguments:  None

Returns:    Functionality of dbedit()

Note:       This function is available only if setenv() has previously
            called.  It makes "as you type lookup" possible when in dbedit().

Library:    TC_SYS.LIB

----------------------------------- Example ----------------------------------
   if( readvar() == "CBAG_STATE")
       cBoxTitle := "[ STATE CODES ]"
       cColor := setcolor(cWinColor)
       cScreen := savescreen(5,5,15,31)
       dbselectarea("tc_sta")
       sx_SetTagOrder(2)
       dbgotop()
       clear typeahesd
       aadd(aFlds, "spac(1)+sta_code+spac(3)+sta_name+spac(1)" )
       aadd(aName, "Code  State Name  ")
       b_showbox(5,5,13,29)
       @ 7,5 say "|"
       @7,29 say "|"
       @5,10 say cBoxtitle
       dbedit(6,6,12,28,aFlds,"lookUpUdf","",aName,chr(196))
       if( lastkey() == K_ENTER )
           cBag_state := sta_code
           keyboard chr(13)
       endi
       restscreen(5,5,15,31,cScreen)
   endi