mmmm, no no, eso funciona muy bien en el As400
Supongo que el problema será que 'EMPRES' es de tipo alfanumérico, por lo que el FindKey debería de quedar así
Código:
if Table1.FindKey(['001',116])then
osea, encerrado entre comillas.
Nota1: recuerda que cualquier valor de cadena, ha de ir entrecomillado
Nota2: el FindKey, a parte de decirte si existe o no, también se te posiciona en el registro, por lo que no es necesario el GotoKey