Сделать отчет о сданных студентом экзаменах

CREATE OR REPLACE
PROCEDURE get_mark(
    v_name IN VARCHAR2)
AS
  g_name VARCHAR2(30) :=v_name;
TYPE progress
IS
  RECORD
  (
    surname студенты.фамилия%TYPE,
    subject дисциплины.название%TYPE,
    mark успеваемость.оценка%TYPE,
    rdate успеваемость.дата%TYPE
  );
  rec progress;
  CURSOR cur_surname
  IS
    SELECT
      фамилия,
      дисциплины.название,
      оценка,
      дата
    INTO
      rec
    FROM
      студенты
    INNER JOIN успеваемость
    ON
      студенты.номер_студента=успеваемость.номер_студента
    INNER JOIN дисциплины
    ON
      успеваемость.номер_дисциплины=дисциплины.номер_дисциплины
    WHERE
      фамилия=v_name
    ORDER BY
      4;
BEGIN
  dbms_output.put_line('ФИО '||'Дисциплина '||'Оценка '||'Дата ');
  OPEN cur_surname;
  LOOP
    FETCH
      cur_surname
    INTO
      rec;
    EXIT WHEN cur_surname%notfound;
    dbms_output.put_line(g_name||' '||rec.subject||' '||rec.mark||' '||
    rec.rdate);
    g_name:=' ';
  END LOOP;
  CLOSE cur_surname;
END;

EXECUTE get_mark('Усов');

...
v_name:=' ';
Error(78,5): PLS-00363: выражение 'V_NAME' не м.б. использовано как адресат назначения

WITH tab1 AS (
SELECT 'Иванов' lastname, 'Good' mark FROM dual UNION ALL
SELECT 'Петров' lastname, 'Good' mark FROM dual UNION ALL
SELECT 'Иванов' lastname, 'Bad' mark FROM dual UNION ALL
SELECT 'Сидоров' lastname, 'Bad' mark FROM dual)
SELECT DECODE(ROWNUM,1,lastname,''), mark FROM tab1 WHERE lastname = 'Иванов';

WITH tab1 AS (
SELECT 'Иванов' lastname, 'Good' mark FROM dual UNION ALL
SELECT 'Петров' lastname, 'Good' mark FROM dual UNION ALL
SELECT 'Иванов' lastname, 'Bad' mark FROM dual UNION ALL
SELECT 'Сидоров' lastname, 'Bad' mark FROM dual)

SELECT DECODE(ROWNUM,1,lastname,''), mark FROM tab1 WHERE lastname = 'Иванов'

DECODE(ROWNUM,1,lastname,'')

  CURSOR cur_surname
  IS
    SELECT
      DECODE(ROWNUM,1,фамилия,''),
      дисциплины.название,
      оценка,
      дата
    INTO
      rec
    FROM
      студенты
    INNER JOIN успеваемость
    ON
      студенты.номер_студента=успеваемость.номер_студента
    INNER JOIN дисциплины
    ON
      успеваемость.номер_дисциплины=дисциплины.номер_дисциплины
    WHERE
      фамилия=v_name
    ORDER BY
      4;