Try this:

select
A.CODSUB,
A.CODOB,
A.CODSBB,
A.CANT*B.CANT
from LSUBANS A
join X01 B on B.CODSBB = A.CODSUB