Re: Converting from 8 long dec to 6 long dec

["Raul A. Jager W." <raul@xxxxxxxxxx>]

Try:

ShortDate = %rem(LongDate: 1000000);


Beeson, Terry wrote:

> Hi All
>
> I'm sure the answer is easy, my brain isn't engaging today.
>
> I have the following:
>
>     D  LongDate       S              8S 0
>     D  ShortDate      S              6S 0
>      /FREE
>           shortdate = %dec(Longdate : 6 : 0);
>      /END-FREE
>
> When running this, I get a "receiver too small" error.  
>
> So, my alternative (that works) is:
>          shortdate = %dec(%subst(%char(Longdate) : 6):6:0);
>
> Is there a better way?  I would have thought the first example would
> work and don't understand why not.
>
> Any ideas or thoughts?
>
> Regards,
> Terry
> PS:  Obviously I understand that this can result in the loss of data,
> and that's perfectly ok in my scenario.
>
>
> This message may contain confidential information and is intended only for the 
> individual named. If you are not the named addressee you should not 
> disseminate, distribute or copy this e-mail. Please notify the sender 
> immediately by e-mail if you have received this e-mail by mistake and delete 
> this e-mail from your system. E-mail transmission cannot be guaranteed to be 
> secure or error-free as information could be intercepted, corrupted, lost, 
> destroyed, arrive late or incomplete, or contain viruses. Although the company 
> has taken reasonable precautions to ensure no viruses are present in this 
> e-mail, the company cannot accept responsibility for any loss or damage arising 
> from the use of this e-mail or attachments. Any views or opinions presented in 
> this e-mail are solely those of the author and do not necessarily represent 
> those of the company.
>
>
>