Stephen

1.- DATE
SELECT
ABUPMJ,
CAST(CAST( ((CAST( (ABUPMJ - MOD(ABUPMJ, 1000)) / 1000 AS INT) +
1900) * 1000) +
MOD(ABUPMJ, 1000) AS CHAR(7)) AS DATE) AS REALDATE
FROM F0101
....+....1....+....2.
Date Julian REALDATE
112,335 11/30/12
60,081 03/21/60


2.- TIMESTAMP
SELECT
ABUPMJ,
CAST(CAST( ((CAST( (ABUPMJ - MOD(ABUPMJ, 1000)) / 1000 AS INT) +
1900) * 1000) +
MOD(ABUPMJ, 1000) AS CHAR(7)) AS TIMESTAMP) AS REALDATE
FROM F0101
....+....1....+....2.
Date Julian REALDATE
112,335 2012-11-30-00.00.00.000000
60,081 1960-03-21-00.00.00.000000

Best Regards

*Sergio Luis Puentes Valladares*
Desarrollador SR IBM AS400 - RPG/COBOL



*Móvil/WhatsApp **(AR)+54 9223 530 0358*

* (CL)+56 9 9612 8330*

*Skype/Hangouts spuentes@xxxxxxxxx <spuentes@xxxxxxxxx> *

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2022 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.