=SQLSetProp(0,"Displogin",3)
    *lcDSNLess="DRIVER={SQL Server};SERVER=CTNTS3B;UID=misuser;PWD=misapp"
    lcDSNLess="DRIVER={SQL Server};SERVER=MSL1607\T;UID=misuser;PWD="+dyn_passwd
    handle=SQLSTRINGCONNECT(lcDSNLess)

    STR="select name_c from common_area..employees where employee_id='"+THIS.VALUE+"'"
    ret=SQLEXEC(handle,STR,"einspect")
    =sqldisconnect(handle)