$SAVE NOLIST

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

DECLARE current$handler$ptr  POINTER,
        except$ptr           POINTER;

END dq$get$exception$handler;

$RESTORE