Re: convert *ISO to 8 digit w/o MOVE

[rob@xxxxxxxxx]

     D MyDate          s               d
     D MyDateNbr       s              8p 0
     D MyDateNbrLen    c                   %len(MyDateNbr)
     D MyDateNbrDec    c                   %decpos(MyDateNbr)

     C/FREE
       MyDate = %date();
       dsply MyDate;
       MyDateNbr = %dec(%char(MyDate:*iso0):MyDateNbrLen:MyDateNbrDec);
       dsply MyDateNbr;

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





fkany@xxxxxxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/15/2004 10:49 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Subject
convert *ISO to 8 digit w/o MOVE







Hello,

Does anyone have an example of how to convert an *ISO date field to an 8,0
digit field without using the MOVE operation?

Thanks,

Frank


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.