
create or replace procedure no_archive_modify is
begin

   -- Check whether the user is archive. If it is then we can 
   -- allow the modification (which will be to TO_BE_ARCHIVED).

   IF pkg73_row_header.v_knock_on != 'ARCHIVE' THEN
      raise_application_error(-20033,'cannot modify archive record.');
   END IF;
end;
/

