× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



ThxA lot Dave!!!!!


Saludos,
____________________________________
Ing. Gerardo A Martínez
Gerente de Proyectos
One System El Salvador, S.A. de C.V.
Telefonos: (503) 2557 - 3081 / 3082
Movil: (503) 7117 - 0703 / 7319 - 2213
Skype: itcomsacv
Email: gmartinez@xxxxxxxxxxxxxxx
Web site: www.onesystemsv.comCorreo Alterno: gerardomaro@xxxxxxxxx-------- Mensaje original --------De: dlclark@xxxxxxxxxxxxxxxx Fecha: 3/2/2017 10:19 AM (GMT-06:00) Para: "RPG programming on the IBM i (AS/400 and iSeries)" <rpg400-l@xxxxxxxxxxxx> Asunto: Re: TimeStamp Null
"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 02/03/2017 10:53:25
AM:
There are some way to initialize TIMESTAMP with NULL?

        Using SQL extended indicators (and if the table definition allows
it) then you can set a column to null at either INSERT or UPDATE time.

**free
// reusable SQL standard indicator values (output from SQL)
dcl-s  NOT_NULL              int(5:0)  inz(*zero);    // after
Select/Fetch
dcl-s  NULL_VALUE            int(5:0)  inz(-1);       // after
Select/Fetch
dcl-s  INVALID_VALUE         int(5:0)  inz(-2);       // after
Select/Fetch
// reusable SQL extended indicator values (passed into SQL: requires
EXTIND=*YES)
dcl-s  USE_VALUE             int(5:0)  inz(*zero);    // before
Insert/Update
dcl-s  SET_TO_NULL           int(5:0)  inz(-1);       // before
Insert/Update
dcl-s  SET_DEFAULT           int(5:0)  inz(-5);       // before
Insert/Update
dcl-s  IGNORE_VALUE          int(5:0)  inz(-7);       // before
Insert/Update

Sincerely,

Dave Clark

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.