how to insert a null value in a db2 datetime column ?

[huks]

Hi,

I have a PL1 program to load a DB2 table with datetime zone (null allowed)

Usually when i have to load null values, I used nullindicator with -1 value but here, with a datetime variable i received sqlcode = -180.

How can I do ?

Thx

here is the code :

 PTXB003: PROC OPTIONS(MAIN);                                           
 
-EXEC SQL INCLUDE SQLCA;                                                
 EXEC SQL DECLARE GTXCINDI.RELEVE_PRIJSOPNAME TABLE                     
           ( . . .                                                      
             D_MODIFIED_NOW_TS              TIMESTAMP,                  
             . . .                                                      
            ) ;                                                         
 /*********************************************************************/
 /* PLI DECLARATION FOR INPUT SEQ FILE                                */
 /*********************************************************************/
1/* ----------------------------------------------------------------- */
 /* INPUT                                                             */
 /* ----------------------------------------------------------------- */
-DCL INFIL FILE RECORD;                                                 
0DCL  1 RELEVEP,                                                        
      5 ...                                                             
      5 D_MODIFIED_NOW_TS                   CHAR(26),                   
      5 ...;                                                            
0ON ENDFILE(INFIL) BEGIN;                                               
    GOTO FIN;                                                           
    END;                                                                
1/* ----------------------------------------------------------------- */
 /* VARIABLES                                                         */
 /* ----------------------------------------------------------------- */
0DCL (STRING,SUBSTR,TRANSLATE,MOD,INDEX,TIME,DATE) BUILTIN;             
 DCL PLIRETC BUILTIN;                                                   
DCL CTR PIC'999999' INIT(0);                                        
DCL IND1  BIN FIXED(15) INIT(-1);                                   
   /* ------------------------------------------------ */           
   /*                  DEBUT TRAITEMENT                */           
   /* ------------------------------------------------ */           
         OPEN FILE(INFIL) INPUT;                                    
    /* --------------------------------------------------------- */ 
    /* TRAITEMENT                                                */ 
    /* --------------------------------------------------------- */ 
LECTURE: READ FILE(INFIL) INTO(RELEVEP);                            
         IF RELEVEP.D_MODIFIED_NOW_TS ^= '' THEN IND1 = 0;          
                                    ELSE IND1 = -1;                 
         EXEC SQL INSERT INTO GTXCINDI.RELEVE_PRIJSOPNAME           
          ( ...,                                                    
            D_MODIFIED_NOW_TS,                                      
            ...)                                                    
         VALUES                                                     
          ( :...,                                                   
            :RELEVEP.D_MODIFIED_NOW_TS :IND1,                       
            :...);                                                  
         IF SQLCODE ^= 0 THEN DO;                                   
           PUT SKIP EDIT('ERREUR CREATION RELEVE_PRIJSOPNAME')(A);  
           GOTO ERRSQL;                                             
           END;                                                     
         CTR = CTR + 1;                                             
         GOTO LECTURE;                                              
    /* --------------------------------------------------------- */ 
    /* ERREUR SQL                                                */ 
ERRSQL: PUT SKIP LIST ('ERROR RAISED ON FETCH :' , SQLCODE);      
        CALL PLIRETC(99);                                         
FIN:   PUT SKIP DATA(CTR);                                        
       CLOSE FILE(INFIL);                                         
END PTXB003;
 

[huks]

sorry guys the problem is not a problem but a mistake in my input file.

Sorry for that