SET dt=CURRENT TIMESTAMP
  ...
  Insert
    Into tbTest(CurrentDate)
    Values(dt)
  -- дата записывается нормально

  Update tbTest
    Set CurrentDate=dt
    Where (TestID= 1 )
  -- записывается NULL вместо даты

CREATE TABLE "DB2INST1"."DOC_SYSTEMS"  (
    "DOC_SYS_ID" INTEGER NOT NULL , 
    "DOC_ID_ISOGD" INTEGER NOT NULL , 
    "DOC_SYS_DATE" DATE , 
    "DOC_SYS_NUM" VARCHAR( 512 ) , 
    "DOC_SYS_TYPE" VARCHAR( 512 ) , 
    "DOC_SYSTEM_NAME" VARCHAR( 1000 ) , 
    "DOC_SYS_IS_SOURCE" VARCHAR( 20 ) , 
    "DOC_SYS_XML" VARCHAR( 500 ) , 
    "DOC_SYS_COMMENT" VARCHAR( 1024 ) , 
    "DOC_SYS_COORD" VARCHAR( 400 ) , 
    "DOC_SYS_ADDR" VARCHAR( 2048 ) , 
    "DOC_SYSTEM_ID" VARCHAR( 512 ) , 
    "DOC_SYS_NAME" VARCHAR( 3072 ) , 
    "DOC_PARENT_SYSTEM_NAME" VARCHAR( 1024 ) , 
    "DOC_PARENT_SYSTEM_ID" VARCHAR( 255 ) , 
    "DOC_OBJ_SYS_FUNC" VARCHAR( 1024 ) , 
    "DOC_DATE_UNTIL" DATE , 
    "DOC_STATE" VARCHAR( 200 ) , 
    "DOC_DATE_D" DATE , 
    "INVENTORY_NUM" VARCHAR( 50 ) , 
    "INVENTORY_DATE" DATE , 
    "ISOGD_NUM" VARCHAR( 50 ) , 
    "ISOGD_DATE" DATE , 
    "IS_SHOWN" SMALLINT , 
    "DATE_OF_INSERT" TIMESTAMP , 
    "OBJ_COORD" VARCHAR( 3000 ) )   
   IN "USERSPACE3" ; 

-- DDL Statements for primary key on Table "DB2INST1"."DOC_SYSTEMS"

ALTER TABLE "DB2INST1"."DOC_SYSTEMS" 
 ADD CONSTRAINT "CC1256109530092" PRIMARY KEY
  ("DOC_SYS_ID");

CREATE PROCEDURE DB2INST1.DOC_SYSTEM_CREATE (

    OUT @RES INT, --
    OUT @DOC_SYS_ID INT,
    OUT @CUR_TIMESTAMP TIMESTAMP;
    IN @DOC_ID_ISOGD INTEGER,
    IN @DOC_SYSTEM_NAME VARCHAR( 1000 ),
    IN @DOC_SYSTEM_ID VARCHAR( 512 ),
    IN @DOC_SYS_NAME VARCHAR( 3072 ),
    IN @DOC_SYS_TYPE VARCHAR( 512 ),
    IN @DOC_SYS_NUM VARCHAR( 512 ),
    IN @DOC_SYS_DATE DATE,
    IN @DOC_SYS_COORD VARCHAR( 400 ),
    IN @DOC_SYS_ADDR VARCHAR( 2048 ),
    IN @DOC_SYS_COMMENT VARCHAR( 1024 ),
    IN @DOC_SYS_XML VARCHAR( 500 ),
    IN @DOC_SYS_IS_SOURCE VARCHAR( 20 ),
    IN @DOC_PARENT_SYSTEM_NAME VARCHAR( 1024 ),
    IN @DOC_PARENT_SYSTEM_ID VARCHAR( 255 ),
    IN @DOC_OBJ_SYS_FUNC VARCHAR( 1024 )
)

------------------------------------------------------------------------
-- SQL
------------------------------------------------------------------------
P1: BEGIN
    DECLARE SQLCODE INTEGER DEFAULT  0 ;
    DECLARE @OLD_DOC_SYS_ID INTEGER DEFAULT NULL;
    DECLARE CUR_TIMESTAMP TIMESTAMP;
    DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND
   
    
    SET @CUR_TIMESTAMP = current timestamp;
    
     SET @RES = SQLCODE;

    SET @OLD_DOC_SYS_ID = NULL;
    SELECT DOC_SYS_ID
        INTO @OLD_DOC_SYS_ID
        FROM  DB2INST1.DOC_SYSTEMS
        WHERE (DOC_SYSTEM_ID=@DOC_SYSTEM_ID) AND (DOC_SYSTEM_NAME='RONIX')
AND ((DOC_STATE IS NULL) OR (DOC_STATE<>'удален'));

    IF (@OLD_DOC_SYS_ID IS NULL) THEN
        SET @DOC_SYS_ID = NEXT VALUE FOR DB2INST1.DOC_SYS_ID_SEQ;
        INSERT INTO
DB2INST1.DOC_SYSTEMS(DOC_SYS_ID,DOC_SYS_NUM,DOC_SYS_DATE,DOC_SYS_TYPE,DOC_SYSTEM_NAME,
DOC_SYS_IS_SOURCE,DOC_SYS_XML,DOC_SYS_COMMENT,DOC_ID_ISOGD,DOC_SYS_COORD,
DOC_SYS_ADDR,DOC_SYSTEM_ID,DOC_SYS_NAME,DOC_PARENT_SYSTEM_NAME,DOC_PARENT_SYSTEM_ID,DOC_OBJ_SYS_FUNC, DATE_OF_INSERT)

VALUES(@DOC_SYS_ID,@DOC_SYS_NUM,@DOC_SYS_DATE,@DOC_SYS_TYPE,@DOC_SYSTEM_NAME
,

@DOC_SYS_IS_SOURCE,@DOC_SYS_XML,@DOC_SYS_COMMENT,@DOC_ID_ISOGD,@DOC_SYS_COORD,

@DOC_SYS_ADDR,@DOC_SYSTEM_ID,@DOC_SYS_NAME,@DOC_PARENT_SYSTEM_NAME,@DOC_PARENT_SYSTEM_ID,@DOC_OBJ_SYS_FUNC, @CUR_TIMESTAMP);

    ELSE
        DELETE
                FROM DB2INST1.DOCS_PARAM
                WHERE (DOC_SYS_ID=@OLD_DOC_SYS_ID);
        DELETE
                FROM DB2INST1.DOCS_ORG
                WHERE (DOC_SYS_ID=@OLD_DOC_SYS_ID);
        DELETE
                FROM DB2INST1.DOCS_OSN
                WHERE (DOC_SYS_ID=@OLD_DOC_SYS_ID);

        UPDATE DB2INST1.DOC_SYSTEMS
                SET
DOC_SYSTEM_NAME=@DOC_SYSTEM_NAME,DOC_SYS_IS_SOURCE=@DOC_SYS_IS_SOURCE,DOC_SYS_XML=@DOC_SYS_XML,

DOC_SYS_COMMENT=@DOC_SYS_COMMENT,DOC_ID_ISOGD=@DOC_ID_ISOGD,DOC_SYS_COORD=@DOC_SYS_COORD,

DOC_SYS_ADDR=@DOC_SYS_ADDR,DOC_SYSTEM_ID=@DOC_SYSTEM_ID,DOC_SYS_NAME=@DOC_SYS_NAME,

DOC_PARENT_SYSTEM_NAME=@DOC_PARENT_SYSTEM_NAME,DOC_PARENT_SYSTEM_ID=@DOC_PARENT_SYSTEM_ID,DOC_OBJ_SYS_FUNC=@DOC_OBJ_SYS_FUNC,DATE_OF_INSERT=@CUR_TIMESTAMP
                WHERE (DOC_SYS_ID=@OLD_DOC_SYS_ID);
        SET @DOC_SYS_ID=@OLD_DOC_SYS_ID;
    END IF;
    IF (@RES IS NULL) THEN
        SET @RES =  0 ;
    END IF;
    IF (@RES IS NOT NULL AND @RES= 100 ) THEN
        SET @RES =  0 ;
    END IF;
END

DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND
   SET @RES = SQLCODE;
    
    SET @CUR_TIMESTAMP = current timestamp;
 

 DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND

 DECLARE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND