>I want to call...
>set order to tag sorttemp...
>I will not know if there is a sorttemp out there.
>How do I check if the TAG exist?

Select Yourtable
lResult=.f.
nTags=tagcount()
IF nTags=0
    =messagebox("No Tags at All")
    return
ENDIF
For nLoop=1 to nTags
    IF TAG(nLoop)=="SORTTEMP"
        lResult=.t.
        EXIT
    ENDIF
Endfor
IF lResult=.f.
    =messagebox("Tag not found")
ELSE
    =messagebox("Tag found")
ENDIF