1   :PROCEDURE secure_dml
2   :IS
3   :BEGIN
4   :  IF TO_CHAR (SYSDATE, 'HH24:MI') NOT BETWEEN '08:00' AND '18:00'
5   :        OR TO_CHAR (SYSDATE, 'DY') IN ('SAT', 'SUN') THEN
6   :	RAISE_APPLICATION_ERROR (-20205,
7   :		'You may only make changes during normal office hours');
8   :  END IF;
9   :END secure_dml;