diff --git a/onces/UWVA/UWVA#63431.sql b/onces/UWVA/UWVA#63431.sql
new file mode 100644
index 000000000..6e7607fdb
--- /dev/null
+++ b/onces/UWVA/UWVA#63431.sql
@@ -0,0 +1,53 @@
+--
+-- $Id$
+--
+-- Opschonen ongebruikte TCS views bij UWVA
+--
+--
+--
+DEFINE thisfile = 'UWVA#63431.sql'
+DEFINE dbuser   = '^UWVA'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+DELETE FROM fac_usrrap WHERE UPPER (fac_usrrap_view_name) = 'UWVA_V_RAP_TCS_MDW';
+DELETE FROM fac_usrrap WHERE UPPER (fac_usrrap_view_name) = 'UWVA_V_RAP_TCS_OBJ';
+DELETE FROM fac_usrrap WHERE UPPER (fac_usrrap_view_name) = 'UWVA_V_RAP_TCS_BEZ';
+DELETE FROM fac_usrrap WHERE UPPER (fac_usrrap_view_name) = 'UWVA_V_RAP_TCS_BEV';
+
+DELETE FROM fac_export_app WHERE UPPER (fac_export_app_code) = 'TCSBEZOUT';
+DELETE FROM fac_export_app WHERE UPPER (fac_export_app_code) = 'TCSUSTATUS';
+
+DROP PROCEDURE uwva_export_tcsbezout;
+DROP PROCEDURE uwva_export_tcsustatus;
+DROP PROCEDURE uwva_tcs_bez_out;
+
+DROP VIEW UWVA_V_RAP_TCS_MDW;
+DROP VIEW UWVA_V_RAP_TCS_OBJ;
+DROP VIEW UWVA_V_RAP_TCS_BEZ;
+DROP VIEW UWVA_V_RAP_TCS_BEV;
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile