$SAVE NOLIST

rq$set$exception$handler:  PROCEDURE( exception$info$ptr,
                                      except$ptr ) EXTERNAL;

DECLARE exception$info$ptr    POINTER,
        except$ptr            POINTER;

END rq$set$exception$handler;

$RESTORE