Re: Developer 2000 Question Help Please!!

"Matt B." <mcb_at_fightspam.sd.znet.com> wrote in message
> procedure my_record_count is
> --
> v_cursor_record number := :SYSTEM.CURSOR_RECORD;
> v_record_count number := 0;
> --
> begin
> go_record(1);
> loop
> if :SYSTEM.RECORD_STATUS != 'NEW' then
> v_record_count := v_record_count + 1;
> next_record;
> end if;
> exit when :SYSTEM.LAST_RECORD = 'TRUE';
> end loop;
> go_record(v_cursor_record);
> end;
>
> Then, call this procedure from where you need to.

Whoops. I guess I didn't do anything w/v_record_count there after figuring it out, did I? :-) Try this:

procedure my_record_count(p_record_count out number) is

--
v_cursor_record number := :SYSTEM.CURSOR_RECORD;
v_record_count number := 0;
--
begin
  go_record(1);
  loop
     if :SYSTEM.RECORD_STATUS != 'NEW' then
        v_record_count := v_record_count + 1;
        next_record;
     end if;
     exit when :SYSTEM.LAST_RECORD = 'TRUE';
  end loop;
  go_record(v_cursor_record);
  p_record_count := v_record_count;
end;

Sorry for any confusion.

-Matt