database rayovac end
output report to "jh" 
left margin 0 end

select
	a.num_emp,
	a.porc_accidente,
        b.nom1_emp,b.apell1_emp,b.nomina
from notb00018 a, adtb00003 b
where a.num_emp = b.num_emp and
      a.status_t is null  order by 5,1  end

format 
page header 
    print column 1, "noprrp020.ace",
          column 19, "R A Y . O . V A C   D O M I N I C A N A, S. A.",
          column 73, today using "dd/mm/yy"
    print column 19, "    PORCENTAJE DE ACCIDENTE DE EMPLEADOS",
          column 73, time
    print column 73, "PAG.: ",pageno using "##"
    skip 1 line
    print column 1,
          "===================================================================",
          "=============="
    print column 1, "  EMPLEADOS    ",
          column 70, " PORCENTAJE"
    print column 1,
          "===================================================================",
          "=============="
before group of 5
skip 1 line
begin
  if nomina = "Q" then
     print "Q U I N C E N A L E S"
  else
     print "S E M A N A L E S"
  end
skip 1 line
on every row
   print column 1, num_emp using "####"," ",nom1_emp," ",apell1_emp,
         column 74, porc_accidente using "###.##","%"
after group of 5
skip to top of page

on last row
   print column 1, "REGISTROS IMPRESOS====> ",count using "#####"
end