Re: Moving a date field into a numeric field

mnISODate = %int(%char(dateField:*iso0));

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


|---------+----------------------------->
|         |           darryl.mavin@gta-t|
|         |           ravel.com         |
|         |           Sent by:          |
|         |           rpg400-l-bounces@m|
|         |           idrange.com       |
|         |                             |
|         |                             |
|         |           02/06/2004 08:31  |
|         |           AM                |
|         |           Please respond to |
|         |           RPG programming on|
|         |           the AS400 /       |
|         |           iSeries           |
|         |                             |
|---------+----------------------------->
  
>------------------------------------------------------------------------------------------------------------------------------|
  |                                                                             
                                                 |
  |       To:       RPG400-L@xxxxxxxxxxxx                                       
                                                 |
  |       cc:                                                                   
                                                 |
  |       Subject:  Moving a date field into a numeric field                    
                                                 |
  
>------------------------------------------------------------------------------------------------------------------------------|




I have the following field definitions ...

D mnISODate                    S                       8   0
D dateField                    S                        D

... and I want to replace the following line of code with the equivalent
free format code.
C            *ISO                    Move              dateField
mnISODate

We are currently at V5R1, and I have been unable to work out how to do
this.

Anyone know how to do this?


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

The opinions expressed within this email represent those of the
individual and not necessarily those of Gullivers Travel Associates (GTA).

This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you have received this email in error please notify
postmaster@xxxxxxxxxxxxxxx

Should you wish to use email as a form of communication, GTA are unable to
guarantee the security of email content outside of our own computer
systems.



________________________________________________________________________
This email has been scanned for all viruses by the MessageLabs Email
Security System. For more information on a proactive email security
service working around the clock, around the globe, visit
http://www.messagelabs.com
________________________________________________________________________
_______________________________________________
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.