midrange.com code scratchpad |
Name:
TEST SQL - Date format problem between RPG and SQL
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/10/2012 03:47:41 pm
|
IP:
Logged
|
|
Description:
T. G. described a problem when processing different date formats in the file. This code tries to reproduce the problem and suggests a work around when using %DATE
|
Code:
- **************** FILE DDS ***************
- A R FTEST01
- A DATE_ISO L DATFMT(*ISO)
- A DATE_USA L DATFMT(*USA)
- A DATE_MDY L DATFMT(*MDY)
- A TIME_USA T TIMFMT(*USA)
- ****************
-
- *********** RPG CODE ***********
- H*DATFMT(*ISO) TIMFMT(*ISO)
- //---------------------------------------------------------------*
- // TESTTG - *
- //---------------------------------------------------------------*
- DRTEST01 E DS EXTNAME(TEST01 )
- //
- /FREE
- //--
- EXSR InitSQL;
- EXSR DoSomething ;
- *inlr = *on;
- //---------------------------------------------------------------*
- BEGSR InitSQL ;
- EXEC SQL Include SQLCA;
- EXEC SQL
- Set Option Commit = *NONE,
- CloSQLCsr = *ENDMOD,
- DatFmt = *ISO ,
- TimFmt = *ISO;
- ENDSR;
- //---------------------------------------
- BEGSR DoSomething ;
- Date_ISO = %DATE('2012-07-10':*ISO) ;
- Date_USA = %DATE('07/10/2012':*USA) ;
- Date_MDY = %DATE('07/10/12' :*MDY) ;
- Time_USA = %TIME('11:30 AM' :*USA) ;
- EXEC SQL
- insert into TEST01 Values(:RTEST01 ) ;
-
- Date_MDY = %DATE('12/31/12' :*MDY) ;
- Date_USA = %DATE('12/31/2012' :*USA) ;
- EXEC SQL
- insert into TEST01 Values(:RTEST01 ) ;
- ENDSR;
-
|
|
|