[smontenegro]

Primero definite una tabla interna igual a t001(que en este ejemplo llamo ti_t001) y luego armas asi el select:

select * from t001 into ti_t001 where BUKRS IN pa_soc .

Hasta aca lo que hiciste fue cargar la tabla interna ti_t001 con los datos de t001 para todas las sociedades del select option pa_soc.
Luego lo recorres con un loop para ver si las monedas son iguales. si no lo son mandas el mensaje.

Otra opcion es no cargar la tabla interna y hacer un SELECT/ENDSELECT verificando en cada pasada que la moneda sea igual a la anterior y sino mandas el mensaje.

Saludos!