Aktuelles Datum in SQL

[B.Hauser]

Hallo SKY,

natürlich ist es auch möglich das Datums-Format mit/in SQL zusetzen und zwar genauso elegant wie mit ILERPG:

Einfach im embedded SQL oder in einer SQL-Prozedur das Statement SET OPTION DATFMT = *ISO einfügen.

Zur Umsetzung eines Datums in ein numerisches Datum brauchst Du auch nicht zwingend das Format zu wissen.

Wenn Du folgende kleine SQL-Funktion erstellts, erhälst Du das Tages Datum in numerischem Format mit JJJJMMTT zurück.

Funktion:

create function MyLib/CurrDateNum ()             
       returns Dec(8, 0)                          
       Language SQL                               
       Begin                                      
       Declare DateNum Dec(8, 0);                 
       Set DateNum =  Year(Current Date) * 10000  
                   + Month(Current Date) *   100  
                   + Day(Current Date);           
       Return DateNum;                            
       End 

Aufruf

Select * from MyFile
             Where DateNum > CurrDateNum() 

Birgitta