Quelque chose comme ça :

SUBSTRING(machaine FROM 5 FOR (POSITION '_' INTO SUBSTRING(machaine FROM 5)) - 5)

Désolé, je n'ai pas de Teradata sous la main pour tester