okay dann mach ich mich mal an den umbau, wobei im Moment ist mir nicht klar warum das nicht funktioniert. aber das ist wieder viel Schreibarbeit

ich habe bei diesem Projekt aber noch ein 2. Ding was mich zum verzweifeln bringt:


-- Trigger-Programm für die Löschung lt. DSGVO ruft
-- DSGVOPROCA auf und führt die Löschung durch
------------------------------------------------------------------------------
--
CREATE or REPLACE TRIGGER lea/dsgvotrgu
AFTER UPDATE of DSG1_VERARB_KZ
on lea/leadsg1
REFERENCING NEW AS NEW_ROW OLD AS OLD_ROW
FOR EACH ROW MODE DB2ROW
SET OPTION DBGVIEW = *SOURCE
WHEN (NEW_ROW.DSG1_VERARB_KZ = 'L')
BEGIN Atomic
------------------------------------------------------------------------------
-- Cursor Deklarationen
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Allgemeine Deklarationen
------------------------------------------------------------------------------
declare leadsg_dsgsatznrc char(9) default ' ';
declare leadsg_dsgmsg char(5) default ' ';
declare leadsg_rownumc char(6) default ' ';
declare cmdline varchar(2000);
declare cmdline1 varchar(2000);
declare cmdlinesbm varchar(11);
declare cmdlinecall varchar(21);
declare cmdlineparm varchar(48);
declare cmdlen integer;
declare cmdlenp decimal(15, 5);
declare leadsg_found char(1);
declare leadsg_partnernrc char(9);

------------------------------------------------------------------------------
-- Exception Handler
------------------------------------------------------------------------------

-------------------------------------------------------------------------------
-- OPEN-Cursor
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
-- Start des Aufrufs
-------------------------------------------------------------------------------
-- Den Schritt würde ich gerne submitten weil sonst ist der Schirm zu lange
-- blockiert und des macht kan guten Eindruck
SET leadsg_dsgsatznrc = digits(NEW_ROW.DSG1_SATZ_NR);
CALL LEA/DSGVOPROCA(leadsg_dsgsatznrc, leadsg_dsgmsg, leadsg_rownumc);
-- SET leadsg_dsgsatznrc = digits(NEW_ROW.DSG1_SATZ_NR);
-- SET cmdlinesbm = 'SBMJOB CMD(';
-- SET cmdlinecall = 'CALL LEA/DSGVOPROCA (';
-- SET cmdlineparm = 'leadsg_dsgsatznrc leadsg_dsgmsg leadsg_rownumc))';
-- SET cmdline = cmdlinesbm || cmdlinecall || cmdlineparm;

-- SET cmdlen = length(cmdline);
-- SET cmdlenp = cmdlen;
-- Der Aufruf stürzt mit MCH3601 ab???????
-- blockiert und des macht kan guten Eindruck
-- CALL QCMDEXC(cmdline, cmdlenp);
END;
--
--
-- E n d o f S t a t e m e n t

Das ruft mir dann die Procedure auf, wo dann oben beschriebener Fehler aufgetreten ist. DSGVO lässt Grüßen