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

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Why so much code?
The first reply was the best, I think.

  Eval  numValue = %int(%char(myDate: *ISO0))
Of course if you are on pre-V5R2 then use:
  Eval  numValue = atoi(%char(myDate: *ISO0))

-Bob Cozzi

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of DeLong, Eric
Sent: Monday, March 15, 2004 10:30 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: convert *ISO to 8 digit w/o MOVE

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.


_______________________________________________
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.