Clarion - Abortar

como puedo evitar que me marque Abortar si no encuentra el Codigo en mi tabla, como ejemplo pongo el siguente codigo

ALM:Codigo=Codigo
set(Almacen)
GET(Almacen,ALM:PKCodigo)
IF ERRORCODE() THEN STOP(ERROR()) END

Gracias

De la siguiente forma :

Clear(ALM:Record) ! Se recomienda primero limpiar el buffer
ALM:Codigo=Codigo
set(Almacen) ! Esto sobra
GET(Almacen,ALM:PKCodigo)
IF ERRORCODE() THEN Message(Clip(ERROR())&', al buscar código '&Clip(Codigo)) END