>procedure GetFormDSID
>*
>lparameter tcFormName
>if vartype(tcFormName) <> "C"
>   return .null.
>endif
>local i, oForm, lnDSID, lcForm
>lnDSID = .null.
>lcForm = upper(alltrim(tcFormName))
>for i = 1 to _screen.formcount
>    if upper(_screen.forms(i).name) = lcForm
>       oForm = _screen.forms(i)
>       exit
>    endif
>next
>if vartype(oForm) = "O" and NOT isnull(oForm)
>   lnDSID = oForm.DataSessionID
>endif
>return lnDSID