Re: Converting a date

[Booth Martin <booth@xxxxxxxxxxxx>]

Did you comment the data structure?

How about, just to see where the problem lies:

     D TestField     s         10A
     C           eval    TestField = '01'
                         + '06'
                         + '20'
                         + '15'
     C           eval    DTEOFHIRE = %date(TestField: *usa0)
     C           eval    DTEOFHIRE = %date(('01'
                         + '06'
                         + '20'
                         + '15'): *usa0)
   C              eval      DTEOFHIRE = %date(%char(X)
   C                        + %char(EmpDay2)
   C                        + %char(EmpCentury)
   C                        + %char(EmpYear2): *usa0)

I would expect a result of "01/06/2015".  Then, during debug, you may 
see where it fails.

Two things: I messed up with mdy0; also, I am not sure where the %date 
bif was in v5r3.



On 1/5/2015 10:29 PM, Gary Kuznitz  wrote:
> Thank you very much for the suggestions

> In Debug mode:
> X = 01.
> EMPDAY2 = 15.
> EMPCENTURY = 20.
> DTEOFHIRE = '01/01/0001'
>
> I modified it slightly and tried this code:
>
>   C                   eval      DTEOFHIRE = %date(%char(X)
>   C                             + %char(EmpDay2)
>   C                             + %char(EmpCentury)
>   C                             + %char(EmpYear2): *mdy0)
> EMPYEAR2 = 01.
>
> I get the same error.
>
> The only thing I can think that I might be doing wrong is I have this H statement in the
> program:
> H OPTION(*SRCSTMT : *NODEBUGIO)DATFMT(*USA)
>
> Thanks,
>
> Gary