Code: |
SELECT DATE(CURRENT DATE - 100 DAYS) FROM SYSIBM.SYSDUMMY1 ; |
Code: |
01 WS-PRIOR-DATE PIC X(10). 01 WS-DAYS-SUBTRACT PIC S9(04) COMP. MOVE 100 TO WS-DAYS-SUBTRACT EXEC SQL SET :WS-PRIOR-DATE = DATE(CURRENT DATE - :WS-DAYS-SUBTRACT DAYS) END-EXEC |
Code: |
SELECT DATE(CURRENT DATE - 10 MONTHS - (DAY(CURRENT DATE)) DAYS + 1 DAY) FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT DATE(CURRENT DATE - 10 MONTHS - (DAY(CURRENT DATE)) DAYS + 1 MONTH) FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT DATE('2002-03-07') - 10 MONTHS - (DAY(CURRENT DATE)) DAYS + 1 DAY + 1 MONTH - 1 DAY FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT DATE('2002-05-07') - 10 MONTHS - (DAY(CURRENT DATE)) DAYS + 1 DAY + 1 MONTH - 1 DAY FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT DATE('2002-12-07') - 10 MONTHS - (DAY(CURRENT DATE)) DAYS + 1 DAY + 1 MONTH - 1 DAY FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT DATE(CURRENT_DATE - 9 MONTHS -
(DAY(CURRENT_DATE)) DAYS) FROM SYSIBM.SYSDUMMY1; |
Code: |
SELECT * FROM TABLE WHERE Dmat_TY_C = '01' AND DMAT-END-D = DATE(ws-birth-date) - 1 DAY |
Code: |
SELECT RTRIM(CHAR(MONTH(CURRENT DATE) - MONTH('05/10/2004'))) || '/' || RTRIM(CHAR(DAYS(CURRENT DATE) - DAYS('05/10/2004'))) || '/' || RTRIM(CHAR(YEAR(CURRENT DATE) - YEAR('05/10/2004'))) FROM SYSIBM.SYSDUMMY1 |
Code: |
SELECT INT(SUBSTR(DIGITS( CURRENT DATE - DATE('2004-05-10')),1,4)) * 12 + INT(SUBSTR(DIGITS( CURRENT DATE - DATE('2004-05-10')),5,2)) MON_DIFF ,DAYS(CURRENT DATE) - DAYS('2004-05-10') DAYS_DIFF ,YEAR(CURRENT DATE - DATE('2004-05-10')) YEARS_DIFF FROM SYSIBM.SYSDUMMY1; |
Code: |
---------+---------+---------+---------+---------+---------+-------- MON_DIFF DAYS_DIFF YEARS_DIFF ---------+---------+---------+---------+---------+---------+-------- 12 375 1 |
Code: |
EXEC SQL
SELECT INT(SUBSTR(DIGITS( DATE(:DB2-ARRAY-START-DATE) - - DATE(:ELGWAIT-WAITPER-DATE)),1,4)) * 12 + INT(SUBSTR(DIGITS( DATE(:DB2-ARRAY-START-DATE) - - DATE(:ELGWAIT-WAITPER-DATE)),5,2)) + 1 INTO :DB2-MONTHS-DIFF FROM SYSIBM.SYSDUMMY1 END-EXEC. |
Code: |
01 DB2-ARRAY-START-DATE PIC X(10). |
Code: |
01 DB2-MONTHS-DIFF PIC S9(09) VALUE +0 COMP. |
Quote: |
DATE(:DB2-ARRAY-START-DATE) - - DATE(:ELGWAIT-WAITPER-DATE)),1,4)) * 12 + INT(SUBSTR(DIGITS( DATE(:DB2-ARRAY-START-DATE) - - DATE(:ELGWAIT-WAITPER-DATE)),5,2)) + 1 |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours