create or replace PROCEDURE RESULT_BALLOT IS
  BEGIN
 DECLARE
 CURSOR X IS
 SELECT BALLOT_DUP.LDR_NO,
 BALLOT_DUP.YR,
 MEMBER_MASTER.APP_NO
 FROM MEMBER_MASTER,BALLOT_DUP
  WHERE MEMBER_MASTER.LEADER_NO=BALLOT_DUP.LDR_NO;
 R X%ROWTYPE;
 BEGIN
 OPEN X;
 LOOP
 FETCH X INTO R;
 EXIT WHEN X%notfound;
 
 INSERT INTO BALLOT_RESULT  VALUES (R.YR,R.APP_NO,R.LDR_NO);
COMMIT;
 END LOOP;
 CLOSE X;
 END;
 end;