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