LPARAMETERS tcTagName, tcAlias *-- Receives a tag name and an alias (which is optional) as *-- parameters and returns .T. if the tag name exists in the *-- alias. If no alias is passed, the current alias is assumed. LOCAL llIsTag, ; lcTagFound IF PARAMETERS() < 2 tcAlias = ALIAS() ENDIF IF EMPTY(tcAlias) RETURN .F. ENDIF llIsTag = .F. tcTagName = UPPER(ALLTRIM(tcTagName)) lnTagNum = 1 lcTagFound = TAG(lnTagNum, tcAlias) DO WHILE !EMPTY(lcTagFound) IF UPPER(ALLTRIM(lcTagFound)) == tcTagName llIsTag = .T. EXIT ENDIF lnTagNum = lnTagNum + 1 lcTagFound = TAG(lnTagNum, tcAlias) ENDDO RETURN llIsTag