Re: Join two files with different time format

["Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>]

Hi Esben,

Try converting the date to decimal, or both the date and the decimal 
date to character, e.g.

dec(char(ALV.RSTDTE,ISO),8,0) = ALV.A2DATE

or

char(ALV.RSTDTE,ISO) = digits(ALV.A2DATE)


*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /

Esben Kiel Sørensen wrote:
> Hi all,
>
> I'm trying to join two files, but the problem is that the files don't have the same date format. One is an 8 digits decimal date, and the other is a "real" data field '2008-04-25'..  How can i join these?
>
> I tried:
>
> DECLARE A CURSOR FOR 
> SELECT 'D' , ALV . EMPNUM , ALV . LVCDE , ( YEAR ( ALV . RSTDTE ) * 10000 ) + ( MONTH ( ALV . RSTDTE ) * 100 ) + ( DAY ( ALV . RSTDTE ) ) , ALV . RSTTME , ALV . LVEDUR , SCD . A2SSHIFT , ALV . SDTALV + 19000000 , : H , : H , ' ' , : H , : H 
>
> FROM STPALV ALV , ATS002P SCD 
>
> WHERE ALV . EMPNUM = SCD . A2EMPNO AND
> 	 ALV . LOCN = SCD . A2LOCN
> 	 AND LVESTS = '5' AND
> 	 ALV . RSTDTE = DATE ( INSERT ( INSERT ( DIGITS ( A2DATE ) , 5 , 0 , '-' ) , 8 , 0 , '-' ) )
>  	AND ALV . EMPNUM < 80000 AND NOT EXISTS ( SELECT * FROM ATS006P WHERE ALV . LVCDE = A6LVCDE ) 
> 	AND ALV . LVCDE NOT IN ( 'UNXAG' , 'TUNAX' , 'TUNXA' ) FOR READ ONLY 
>
> RSTDTE is the field defined like 10 L   and A2DATE is a 8.0 decimal.
>
> This works, but is take like for ever to prepare this cursor...  Any suggestions, on how to make this perform better? 
> Yours sincerely / Med venlig hilsen
>
> Esben Kiel Sørensen	
> Software Developer
> E-mail: eksor@xxxxxxxxxx
>
>
>