RE: Date conversion technique, alpha to Numeric

Why a routine?  It's only a total of 3 lines of code.

 

D  DATE_USA               S                          D      DATFMT(*USA)

 

C    *CYMD                  MOVE        DATE8                   DATE_USA

C     *YMD                   MOVE        DATE_USA              DATE6
6 0

 

________________________________________________________________________
______________________

Randy Kesterson, Information Services

Market Transport Services  - a UTi Worldwide Company| 110 N Marine Drive
| Portland, OR 97217 | USA

rpkesterson@xxxxxxxxxxxxxxxxxxx | D +1 503.978.4353 | O +1 503.283.2405
x353 | F +1 503.978.4392 

 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Berman
Sent: Tuesday, February 06, 2007 1:29 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Date conversion technique, alpha to Numeric

 

HI I searched the archives but could not find an ILE routine that will
take an 8 pos. character date and return a 6 numeric. At some point, the
extra 2 are to be dropped.they are the left most so we are going from a
CCYYMMDD to a YYMMDD.

   

  I would like to use Procedure for this.

   

  thanks,

  Mike

 

 

---------------------------------

Need Mail bonding?

Go to the Yahoo! Mail Q&A for great tips from Yahoo! Answers users.