Re: Convert a date field to a 10,0 packed field

[Charles Wilt <charles.wilt@xxxxxxxxx>]

your RPG and SQL date formats are set to USA, but you're generating an ISO
date.

Use ISO everywhere.

Also, why 10 digit?  All you need is 8.

Charles

On Tue, Jul 13, 2021 at 12:52 PM <dfreinkel@xxxxxxxxxxxxxxxxx> wrote:

>      H option(*srcstmt : *nodebugio )
>
>      H DATFMT(*USA)
>
>
>
>
>
>      d wCount          s              5i 0
>
>      d wCurrent_Date   s               d
>
>      d wCur_Date_From  s             10p 0
>
>      d wCur_Date_To    s             10p 0
>
>
>
>            Exec Sql set option naming    = *sys,
>
>                                commit    = *NONE,
>
>                                usrprf    = *USER,
>
>                                dynusrprf = *USER,
>
>                                datfmt    = *USA,
>
>                                closqlcsr = *ENDMOD;
>
>
>
>
>
>      c                   eval      wCount = 0
>
>      c                   eval      wCurrent_Date = %date(wSched_Date:*ISO)
>
>
>
>          exec sql  values CAST(wCurrent_Date as decimal(8,0))
>
>                           into :wCur_Date_To;
>
>
>
>          exec sql  values CAST((wCurrent_Date - 7 days) as decimal(8,0))
>
>                           into :wCur_Date_From;
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com