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

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Is this an academic exercise or something?  Like betting someone that you
can open their beer with your teeth?  <g>  

Here's one that works on all versions.....
d VAR1            S               D   Inz(d'2004-01-01') datfmt(*Iso)      
d VAR2            s              8  0                                      
d year            s              4  0                                      
d month           s              2  0                                      
d day             s              2  0                                      
                                                                           
c                   Extrct    Var1:*y       Year                           
c                   Extrct    Var1:*m       Month                          
c                   Extrct    Var1:*d       Day                            
c                                                                          
c                   eval      VAR2 = (((Year * 100) + Month) * 100 ) + Day 


Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: fkany@xxxxxxxxxxxxxxxxxx [mailto:fkany@xxxxxxxxxxxxxxxxxx]
Sent: Monday, March 15, 2004 9:49 AM
To: RPG400-L@xxxxxxxxxxxx
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.