$SAVE NOLIST

dq$trap$exception:  PROCEDURE( handler$ptr,
                               except$ptr ) EXTERNAL;

DECLARE handler$ptr     POINTER,
        except$ptr      POINTER;

END dq$trap$exception;

$RESTORE