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

[Charles Wilt <charles.wilt@xxxxxxxxx>]

do a
exec sql
 set option datfmt=*ISO;



Charles

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

> I am trying to convert a date field defined as a date back to a numeric
> field.
>
>
>
> I used the interactive SQL to test out
>
> Select cast(wCurrent_date as decimal(8,0))  from sysibm.sysdummy1
>
> and it returns the date as 20210713.
>
>
>
> I also tested using values
>
> cast(wCurrent_date as decimal(8,0)) into numeric_variable
>
>
>
> both return the correct date.
>
>
>
> However in a RPG program it fails and gives me zeroes for the result.
>
>
>
> What am I doing wrong?
>
>
>
> TIA
>
> Darryl Freinkel
>
> A4G
>
> Telephone: 770.321.8562 Mobile: 678.355.8562
>
>
>
> --
> 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