SQL 301A PERBULAN

select expe.expecod,
expe.expeyea,
expr.tindcod,
tind.tinddes,
d301a.d301aseq,
d301a.d301ayea
from expe,d301a,tind,expr
where month(d301a.d301adat)="02"
and year(d301a.d301adat)=2005
and expe.expeid=d301a.expeid
and expr.expeid=d301a.expeid
and tind.tindcod=expr.tindcod;

select expe.expecod,
expe.expeyea,
expr.tindcod,
tind.tinddes,
d301a.d301aseq,
d301a.d301ayea,
inde.masterpk1 DESA,
inde.masterpk2 JENIS_HAK,
inde.masterpk3 NO_HAK,
shak.shaknam NAMA_PEMILIK
from expe,d301a,tind,expr,inde,shak,shakinde
where month(d301a.d301adat)="02"
and year(d301a.d301adat)=2005
and expe.expeid=d301a.expeid
and expr.expeid=d301a.expeid
and inde.tdoccod="B1"
and inde.expeid=d301a.expeid
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
and tind.tindcod=expr.tindcod;