CURSOR, LOOP, OPEN с параметрами

CREATE OR REPLACE PACKAGE BODY REVELATION.EMT AS

CURSOR curPLAN(d DATE) RETURN EMT_PLAN IS
  SELECT
    *
  FROM
    EMT_PLAN ep
  WHERE
    TRUNC(ep.REP_RUN_DATE) = d;

PROCEDURE CLMAIN_RUNNER AS
  rowPLAN EMT_PLAN%ROWTYPE;
BEGIN
  OPEN curPLAN(TRUNC(SYSDATE));
LOOP
  FETCH curPLAN INTO rowPLAN;
  EXIT WHEN curPLAN%NOTFOUND;
END LOOP;
END;


END EMT;