DECLARE
	 	CURSOR chk
	IS
  select perscode,persname,commission,conversion,netrate from personnel order by to_number(perscode);
 
vcode					personnel.perscode%type;
vName					personnel.persname%type;
vcomm					personnel.commission%type;
vconv					personnel.conversion%type;
vnrate				personnel.netrate%type;
 
	BEGIN
   OPEN chk;
    LOOP
   FETCH chk INTO vcode, vname, vcomm, vconv,vnrate;
     EXIT WHEN chk%NOTFOUND;
   						
	create_record;
		go_block('view');
 		:view.vpercode			:= vcode;
 		:view.vpersname			:= vname;
 		:view.vcomm					:= vcomm;
 		:view.vcon					:= vconv;
 		:view.vnet					:= vnrate;
 		
 		--Message('DOC...'||vname);
				
    END LOOP;
--    commit;
	   CLOSE chk;
				
	END;

:personnel.perscode := :view.vpercode;
:personnel.persname := :view.vpersname;
:personnel.commission := :view.vcomm;
:personnel.conversion := :view.vcon;
:personnel.netrate := :view.vnet;