CANDIDATE([nIndexNumber] [, nWorkArea | cTableAlias])>I've been using that code since a while to have an overnight process to always build a PRG file just in case we would have to recreate all the tags:
>FOR lnTag = 1 to tagcount() > lcProgram = lcProgram + ' index on ' + sys(14, lnTag) + ' tag ' + TAG(lnTag) + CR >NEXT >>