I am trying to debug following code, but it keeps giving an error at runtime on line "Define BAR ...". What's wrong with it ?
Thanks in advance.

Local nX, nY, nI

nY = ThisForm.txtSite.Top
nX = ThisForm.txtSite.Left
nI = 1
Define POPUP mnuSites SHORTCUT RELATIVE FROM nY, nX

Select cifsites
Scan All
DEFINE BAR &nI of mnuSites PROMPT &(cifsites.site)
nI=nI+1
Endscan

Select DISTRIB