RE: Converting from 8 long dec to 6 long dec

Why not use a DS???

     d                 ds                                       
     d longdate                       8s 0 Inz(20060809)        
     d shortdate                      6s 0 Overlay(longdate:3)   


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Beeson, Terry
Sent: Wednesday, August 09, 2006 10:12 AM
To: RPG programming on the AS400 / iSeries
Subject: Converting from 8 long dec to 6 long dec

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.