Free-Format conversion of a Date-field to a numeric... -- RPG400-L

Subject: Free-Format conversion of a Date-field to a numeric...
From: dmosley@xxxxxxxxxx
Date: Mon, 19 Aug 2002 11:55:46 -0400
List-archive: <http://archive.midrange.com/rpg400-l/>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Let's say I have these three fields defined...

     d MMDDCCYY          s           d        inz    datfmt(*USA)
     d todayISO          s         8s0        inz(20020819)
     d todayUSA          s         8s0   inz

What is the free-format way to convert the date-field to a numbeic... :
-- The old way to do it was :
     c    *ISO MOVE todayISO  MMDDCCY
     c         MOVE MMDDCCYY  todayUSA
-- How would the above be changed...

-- We have someone here who found a C program that would do the trick, but
I wasn't sure if there was an easier way...


David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Free-Format conversion of a Date-field to a numeric... , Hans Boldt

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.