BVB1#79789 -- Oude MJOB structuur omzetten naar de nieuwe structuur

svn path=/Customer/; revision=61532
This commit is contained in:
Arthur Egberink
2023-08-22 15:20:45 +00:00
parent 564105a4c8
commit 1cbd6bd4aa

View File

@@ -8,10 +8,14 @@ DEFINE dbuser = '^BVB1'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
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 ------