Files
Customer/onces/SUTF/SUTF#62624.sql
2021-02-04 15:25:23 +00:00

93 lines
2.7 KiB
SQL

--
-- $Id$
--
-- Korte beschrijving wat het script doet
-- Kenmerken toevoegen aan groot aantal taken.
--
DEFINE thisfile = 'SUTF#62624.SQL'
DEFINE dbuser = '^SUTF'
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 ------
DECLARE
CURSOR c1
IS
SELECT sc.ins_srtcontrole_key key
FROM ins_srtcontrole sc, ins_srtdeel srt, ins_srtgroep ig
WHERE srt.ins_srtgroep_key = ig.ins_srtgroep_key
AND sc.ins_srtinstallatie_key = srt.ins_srtdeel_key
AND sc.ins_srtcontrole_niveau = 'S'
AND ig.ins_discipline_key = 1401;
BEGIN
FOR REC IN c1
LOOP
BEGIN
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_volgnummer,
ins_kenmerk_bewerkniveau,
ins_kenmerk_groep,
ins_kenmerk_wissen)
SELECT 2281, rec.key, 'C', 5, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2282, rec.key, 'C', 10, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2283, rec.key, 'C', 15, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2284, rec.key, 'C', 20, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2285, rec.key, 'C', 25, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2286, rec.key, 'C', 30, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2287, rec.key, 'C', 35, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2288, rec.key, 'C', 40, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2289, rec.key, 'C', 45, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2290, rec.key, 'C', 50, 'D', 0, 0
FROM DUAL
UNION ALL
SELECT 2291, rec.key, 'C', 55, 'D', 0, 0
FROM DUAL;
END;
COMMIT;
END LOOP;
END;
/
------ 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