An error occurred in a triggered SQL statement in trigger "DB2ADMIN.JGU1".
  Information returned for the error includes SQLCODE "-348", SQLSTATE "428F9" and
 message tokens "NEXTVAL FOR DB2ADMIN.LIVJRNACCGRP_JAGID".
 SQLCODE=- 723 , SQLSTATE= 09000 , DRIVER= 4 . 0 . 100 

IF (new.BaoID IS NULL) THEN 
  SET new.BaoID = NEXTVAL FOR LivBalanceAccObj_BaoID;

ALTER TABLE DB2ADMIN.LIVJRNACCGRP1
    ADD CONSTRAINT CHK_JAGDATE_1
    CHECK (JAGDATE >= '2007-05-01') ENFORCED ENABLE QUERY OPTIMIZATION;

ALTER TABLE DB2ADMIN.LIVJRNACCGRP2
    ADD CONSTRAINT CHK_JAGDATE_2
    CHECK (JAGDATE < '2007-05-01') ENFORCED ENABLE QUERY OPTIMIZATION;

CREATE TRIGGER LivJrnAccGrp1_TI NO CASCADE BEFORE INSERT ON LivJrnAccGrp1 
REFERENCING NEW AS new FOR EACH ROW MODE DB2SQL 
BEGIN ATOMIC 
IF (NOT EXISTS(SELECT * FROM ComTrigSemaph WHERE TrfState IN ( 1 , 2 ) AND TrfTblName = 'LIVJRNACCGRP')) THEN 
 IF ((new.JagCode IN ( 200 ,  310 ,  800 )) AND 
     ((new.DiscAccSbjCode IS NULL) OR (new.DiscAccID IS NULL) OR (new.DiscAcdID IS NULL))) 
  THEN SIGNAL SQLSTATE '70221' ('Невозможно вставить операцию по льготе в журнала расчетов (код 200,310, 800) если не указан субсчет по льготе'); 
 END IF; 

 IF ((new.JagCode IN ( 200 ,  310 ,  800 )) AND
      (NOT EXISTS(SELECT AcdID FROM LivAccountDiscount b WHERE (new.DiscAccSbjCode, new.DiscAccID, new.DiscAcdID) = (b.AccSbjCode, b.AccID, b.AcdID)
        UNION SELECT AcdID FROM LivAccDiscExt c WHERE (new.DiscAccSbjCode, new.DiscAccID, new.DiscAcdID) = (c.AccSbjCode, c.AccID, c.AcdID)))) THEN 
  SIGNAL SQLSTATE '70260' ('Невозможно вставить операцию по льготе  без ссылки на  активную льготу'); 
 END IF; 

END IF; 
IF (NOT EXISTS(SELECT * FROM ComTrigSemaph WHERE TrfState =  1  AND TrfTblName = 'LIVJRNACCGRP')) THEN 
 SET new.JagTimeDateTime = CURRENT TIMESTAMP; 
END IF; 

IF (new.JagID IS NULL) THEN 
 SET new.JagID = NEXTVAL FOR LivJrnAccGrp_JagID; 
END IF;
END

CREATE TRIGGER LivJrnAccGrp1_TU NO CASCADE BEFORE UPDATE OF JagEntStatus ON LivJrnAccGrp1
REFERENCING NEW AS new FOR EACH ROW MODE DB2SQL 
BEGIN ATOMIC
 IF (new.JagEntStatus =  2 ) THEN
  IF (NOT EXISTS (SELECT * FROM ComTrigSemaph WHERE TrfState IN ( 1 , 2 ) AND TrfTblName = 'LIVJRNACCGRP')) THEN
   IF (EXISTS (SELECT a.JrnID FROM LivJrnCalcType a 
    WHERE (new.JrnSbjCode, new.JrnID, new.JagID,  1 ) = (a.JrnSbjCode, a.JrnID, a.JagID, a.JctEntStatus)))
   THEN SIGNAL SQLSTATE '70222' ('Невозможно удалить запись журнала расчетов верхнего уровня, если существует хотя бы одна запись на нижнем уровне по этой операции');
   END IF;

   IF (EXISTS (SELECT a.JagID FROM LivJrnAccGrp a
    WHERE (new.JrnSbjCode, new.JrnID, new.JagID,  1 ) = (a.LinkJrnSbjCode, a.LinkJrnID, a.LinkJagID, a.JagEntStatus)))
   THEN SIGNAL SQLSTATE '70223' ('Невозможно удалить запись журнала, если существует зависимые');
   END IF;
  END IF;

 IF (NOT EXISTS(SELECT * FROM ComTrigSemaph WHERE TrfState =  1  AND TrfTblName = 'LIVJRNACCGRP')) THEN
  SET new.JagTimeDateTime = CURRENT TIMESTAMP;
  SET new.ExchPackN = null;
 END IF;
 END IF;
END
       		        
CREATE TRIGGER LivJrnAccGrp1_TU2 NO CASCADE BEFORE UPDATE OF
 JagSum, JagDate, JagPeriodBeginDate, JagPeriodEndDate, JagIsClosed, JagEntStatus, JagIsCopy, JagVolume, JagIsBalance, JagTag, JagOperDate, JagOperNum
ON LivJrnAccGrp1 REFERENCING OLD AS old NEW AS new FOR EACH ROW MODE DB2SQL
WHEN (NOT EXISTS (SELECT * FROM ComTrigSemaph WHERE TrfState =  1  AND TrfTblName = 'LIVJRNACCGRP')
AND new.JagEntStatus =  1  AND
(old.JagSum <> new.JagSum OR
 old.JagDate <> new.JagDate OR
 old.JagPeriodBeginDate <> new.JagPeriodBeginDate OR
 old.JagPeriodEndDate <> new.JagPeriodEndDate OR
 old.JagIsClosed <> new.JagIsClosed OR
 old.JagEntStatus <> new.JagEntStatus OR
 old.JagIsCopy <> new.JagIsCopy OR
 old.JagVolume <> new.JagVolume OR
 old.JagIsBalance <> new.JagIsBalance OR
 old.JagOperDate <> new.JagOperDate OR
 old.JagOperNum <> new.JagOperNum OR
 old.JagTag <> new.JagTag))
SET new.JagUpdDateTime = CURRENT TIMESTAMP, new.ExchPackN = null

CREATE TABLE DB2ADMIN.LIVJRNACCGRP1
(
    JRNSBJCODE         DECIMAL( 10 )   NOT NULL,
    JRNID              DECIMAL( 10 )   NOT NULL,
    JAGID              DECIMAL( 10 )   NOT NULL,
    JAGSUM             DECIMAL( 12 , 2 ) NOT NULL,
    JAGDATE            DATE          NOT NULL,
    JAGTIME            TIME          NOT NULL,
    JAGCODE            DECIMAL( 3 )    NOT NULL,
    JAGNAME            VARCHAR( 100 )  NOT NULL,
    JAGISRECALC        INTEGER       NOT NULL,
    JAGCLUSTERLEVELNUM INTEGER       NOT NULL,
    JAGPERIODBEGINDATE DATE          NOT NULL,
    JAGPERIODENDDATE   DATE,
    JAGPERIODTYPE      INTEGER       NOT NULL,
    JAGISCLOSED        INTEGER       NOT NULL,
    JAQCOMMENT         VARCHAR( 254 ),
    ACCSBJCODE         DECIMAL( 10 )   NOT NULL,
    ACCID              DECIMAL( 10 )   NOT NULL,
    AGRSBJCODE         DECIMAL( 10 )   NOT NULL,
    AGRID              DECIMAL( 10 )   NOT NULL,
    LINKJRNSBJCODE     DECIMAL( 10 ),
    LINKJRNID          DECIMAL( 10 ),
    LINKJAGID          DECIMAL( 10 ),
    JAGSPRAVTYPE       INTEGER       NOT NULL,
    JAGSPRAVGIDSBJCODE DECIMAL( 10 ),
    JAGSPRAVGID        DECIMAL( 30 ),
    JAGENTSTATUS       INTEGER       NOT NULL,
    USRSBJCODE         DECIMAL( 10 )   NOT NULL,
    USRID              DECIMAL( 10 )   NOT NULL,
    JAGISBALANCE       INTEGER       NOT NULL,
    DISCACCSBJCODE     DECIMAL( 10 ),
    DISCACCID          DECIMAL( 10 ),
    DISCACDID          DECIMAL( 10 ),
    JAGISCOPY          INTEGER,
    JAGTAG             VARCHAR( 20 ),
    JAGCOMMENTTYPE     DECIMAL( 5 ),
    JAGTIMEDATETIME    TIMESTAMP,
    JAGVOLUME          DECIMAL( 14 , 4 ),
    JAGUPDDATETIME     TIMESTAMP,
    JAGOPERDATE        DATE,
    JAGOPERNUM         INTEGER,
    EXCHPACKN          DECIMAL( 7 )
)    IN JRN_ACTIVE

CREATE TRIGGER LivJrnAccGrp1_TU NO CASCADE BEFORE UPDATE OF JagEntStatus ON LivJrnAccGrp1
REFERENCING NEW AS new FOR EACH ROW MODE DB2SQL 
BEGIN ATOMIC
 IF (new.JagEntStatus =  2 ) THEN
  IF (NOT EXISTS (SELECT * FROM ComTrigSemaph WHERE TrfState IN ( 1 , 2 ) AND TrfTblName = 'LIVJRNACCGRP')) THEN
   IF (EXISTS (SELECT a.JrnID FROM LivJrnCalcType a 
    WHERE (new.JrnSbjCode, new.JrnID, new.JagID,  1 ) = (a.JrnSbjCode, a.JrnID, a.JagID, a.JctEntStatus)))
   THEN SIGNAL SQLSTATE '70222' ('Невозможно удалить запись журнала расчетов верхнего уровня, если существует хотя бы одна запись на нижнем уровне по этой операции');
   END IF;

   IF (EXISTS (SELECT a.JagID FROM LivJrnAccGrp a
    WHERE (new.JrnSbjCode, new.JrnID, new.JagID,  1 ) = (a.LinkJrnSbjCode, a.LinkJrnID, a.LinkJagID, a.JagEntStatus)))
   THEN SIGNAL SQLSTATE '70223' ('Невозможно удалить запись журнала, если существует зависимые');
   END IF;
  END IF;

 IF (NOT EXISTS(SELECT * FROM ComTrigSemaph WHERE TrfState =  1  AND TrfTblName = 'LIVJRNACCGRP')) THEN
  SET new.JagTimeDateTime = CURRENT TIMESTAMP;
  SET new.ExchPackN = null;
 END IF;
 END IF;
END

CREATE TRIGGER LivJrnAccGrp1_TU NO CASCADE BEFORE UPDATE OF JagEntStatus ON LivJrnAccGrp1
REFERENCING NEW AS new FOR EACH ROW MODE DB2SQL 
BEGIN ATOMIC
 IF (new.JagEntStatus =  2 ) THEN
  SET new.JagTimeDateTime = CURRENT TIMESTAMP;
  SET new.ExchPackN = null;
 END IF;
END

   IF (EXISTS (SELECT a.JrnID FROM LivJrnCalcType a 
    WHERE (new.JrnSbjCode, new.JrnID, new.JagID,  1 ) = (a.JrnSbjCode, a.JrnID, a.JagID, a.JctEntStatus)))
   THEN SIGNAL SQLSTATE '70222' ('Невозможно удалить запись журнала расчетов верхнего уровня, если существует хотя бы одна запись на нижнем уровне по этой операции');
   END IF;