Set serveroutput on

DECLARE
  ACCEPT a PROMPT  “Please Enter a Date,  eg. Format -  01 or 30"

  datev char
  datev := &a;

  CURSOR cur_day_cursor IS
    SELECT Arrival_Date Adate
      FROM FLIGHT
      WHERE TO_CHAR(Arrival_Date, ‘DD’) = datev;

  cur_day_cursor_var cur_day_cursor%ROWTYPE;
BEGIN
  OPEN Cur_day_cursor;

  LOOP
    Fetch Cur_day_cursor
      INTO cur_day_cursor_var;
    EXIT WHEN cur_day_cursor%NOTFOUND;

    DBMS_OUTPUT.PUT_LINE (cur_day_cursor_var.Adate);
  END LOOP;

  IF cur_day_cursor%ISOPEN THEN
    CLOSE cur_day_cursor;
  END IF;
END;

datev  char(2) := '&a';

datev char
datev := &a;

datev char := &a;

--ACCEPT a NUMBER PROMPT  'Please Enter a Date,  eg. Format -  01 or 30 :'
--Run the above line first in SQL Prompt and then execute the rest as whole
DECLARE
  datev NUMBER(2) := &a;
  CURSOR cur_day_cursor IS
    SELECT Ename, HireDate Adate
      FROM Emp
      WHERE TO_CHAR(HireDate, 'D') = datev;
  cur_day_cursor_var cur_day_cursor%ROWTYPE;
BEGIN
  OPEN Cur_day_cursor;
  LOOP
    Fetch Cur_day_cursor
      INTO cur_day_cursor_var;
    EXIT WHEN cur_day_cursor%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE (cur_day_cursor_var.Adate);
  END LOOP;
  IF cur_day_cursor%ISOPEN THEN
    CLOSE cur_day_cursor;
  END IF;
END;
/

WHERE TO_CHAR(Arrival_Date, 'DD') = datev;