Imprimir por perido

Hola keystone, la impresión que estoy haciendo es desde un prg, dentro del prg tengo una consulta donde involucro tres tablas, la idea es imprimir de acuerdo al perido por ejm. Solo imprimir el mes de diciemebre, el próximo año solo imprimir del mes de enero, etc. Como puedo validar el mes para luego ejecutar el prg. Para la impresión de acuerdo al mes que estoy eligiendo y lo otro es como obtener el nombre del mes a partir de una fecha.
Esta es la consulta:
select reg_compras.idcomp,reg_compras.fecha_emision,reg_compras.fecha_venci,;
reg_compras.nro,reg_compras.serie,reg_compras.nro_comprob,reg_compras.cod,;
reg_compras.bimponible1,reg_compras.igv1,reg_compras.adqui_no_grav,reg_compras.isc,;
reg_compras.otros,reg_compras.imp_total,reg_compras.nro_const_dep,;
reg_compras.fec_const_dep,reg_compras.tip_cambio,;
reg_compras.ruc,reg_compras.nro_reg,reg_compras.fecha_mod,;
reg_compras.tipo_comp_mod,reg_compras.serie_mod,reg_compras.nro_comp_orig,;
comprobantes.descripcion,proveedor.rsocial,tipodoc.descripcion1;
FROM reg_compras INNER JOIN comprobantes ON reg_compras.nro=comprobantes.nro;
inner JOIN proveedor ON reg_compras.ruc=proveedor.ruc;
inner JOIN tipodoc ON reg_compras.cod=tipodoc.cod ORDER BY reg_compras.idcomp;
into cursor imprime