WAGE#85401 -- Deze was nog niet aangemaakt, default m2m procedure

svn path=/Customer/trunk/; revision=69319

WAGE/wage.sql

@@ -0,0 +1,48 @@
+--
+-- $Id$
+--
+-- Script containing customer specific sql statements for the WAGE database
+
+DEFINE thisfile = 'WAGE.SQL'
+DEFINE dbuser   = 'WAGE'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+---------------------------------------
+PROMPT &fcltcusttxt
+---------------------------------------
+SET DEFINE OFF
+
+------ payload begin ------
+
+CREATE OR REPLACE PROCEDURE wage_processemail (pfrom        IN VARCHAR2,
+                                               pto          IN VARCHAR2,
+                                               psubject     IN VARCHAR2,
+                                               pbody        IN VARCHAR2,
+                                               psessionid   IN VARCHAR2,
+                                               pemailkey    IN NUMBER)
+AS
+BEGIN
+fac.processemail (pfrom, pto, psubject, pbody, psessionid);
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile