declare
   CURSOR post_wo IS
      select a.c_code,
             a.kgs
        from pp_dpkd a
       where a.ppno = :blka.ppno;

   mc_code   pp_dpkd.c_code%type;
   mkgs      pp_dpkd.kgs%type;
begin
   open post_wo;

   go_block ('wosub');

   loop
      fetch post_wo
       into mc_code,
            mkgs;

      exit when post_wo%notfound;
      create_record;
      :wosub.mc_code  := mc_code;
      :wosub.mkgs     := mkgs;
   end loop;

   close post_wo;
end;