declare
A VARCHAR2(200);
	B VARCHAR2(29);
	C DATE;
	D NUMBER;
	E VARCHAR2(200);
	TT VARCHAR2(25);
	cursor c1 is
		select distinct DOB,mobile,substr(bph,1,25),STUID,NAME from family,basic,student
    where family.fam_id=student.fam_id and dob like TO_CHAR(SYSDATE,'DD-MON-%');
begin
	loop
		
	open c1;
	 fetch c1 into C,A,B,D,E;
	INSERT INTO MSGOUT (ID,MSGTO,MSG)
	VALUES
	(D,'+92'||a,'>> SiS wishing you a day filled with fun and delight! Happy Birthday'||' '|| E || '  Regards. >>SiS<<  '||b);
	NEXT_RECORD;
	EXIT WHEN (:SYSTEM.LAST_RECORD)='TRUE';
END LOOP;
MESSAGE('SMS has been sent to Queue...');
COMMIT;
close c1;
END;
SET_WINDOW_PROPERTY(forms_mdi_window, window_state, maximize);

select distinct DOB,mobile,substr(bph,1,25),STUID,NAME from family,basic,student
    where family.fam_id=student.fam_id and dob like TO_CHAR(SYSDATE,'DD-MON-%');

and dob like TO_CHAR(SYSDATE,'DD-MON-%');

   open c1;

   loop
      fetch c1 into c, a, b, d, e;
      exit when c1%notfound;

      insert into msgout (id, msgto, msg)
              values (
                        d,
                        '+92' || a,
                           '>> SiS wishing you a day filled with fun and delight! Happy Birthday'
                        || ' '
                        || e
                        || '  Regards. >>SiS<<  '
                        || b);
   end loop;

   close c1;