RE: Built in Function ILE RPG

Rajan,

You don't need the second step,.. That's one of the features of date fields.

0149.00 C     *usa          Move      NumDte80      DateField
0150.00 C     *iso          Move      DateField     NumDte80

The date field does not have to be any *USA format, it can be *ISO.  The
*USA in factor one is specifying the format of the numeric (8,0) date format
when assigning the value to DateField.  Just as the *ISO in factor one is
specifying the format you want to assign to the numeric (8,0) date.   HTH.

Regards,
~~~~~~~~~~~~~~~~~~~~~
Jon A. Erickson
Viking Industries, Inc.
 <http://www.vikingindustries.com> http://www.vikingindustries.com
~~~~~~~~~~~~~~~~~~~~~
 <<Jon Erickson.vcf>> 


                -----Original Message-----
                From:   Rajan.Srinivasan@Allfun.com
[mailto:Rajan.Srinivasan@Allfun.com]
                Sent:   Friday, January 22, 1999 10:44 AM
                To:     MIDRANGE-L@midrange.com
                Subject:        Built in Function ILE RPG

                Friends,
                                       Could you please help me on this.
Actually, I am
                trying to  convert a  numerical  variable from
                MMDDCCYY  format to  CCYYMMDD  .  ( and Vice versa )
                Even though , we can do this by  using data structure, I
would rather like
                to use the new functioanality of ILE RPG.

                For that,  I  have tried using date stamp field.

                1. Moving   the numerical  value ( 8, 0)  to    DATE STAMP
Field with  (
                Date format  *USA)

                2.  Moving   Date Stamp Field ( *USA)     TO    another date
stamp field
                (*ISO)

                3.  Finally,  moving  Date Stamp Filed (*ISO)     TO
Result  Field (
                Numerical variable with 8, 0 )


                The above method works fine.


                 I was looking around for other better methods, because  in
RPG/400, it is
                just  one  statement ( multiplying by  10000.01),
                but in  ILE RPG it  takes three statement and two more
additional  work
                field declaration ( Date stamp field).


                Could  you please tell me , is there any other better
methods  like  using
                Built in function.?

                Can we create our  own built-in function?.

                Any help is greatly appriciated.

                Thanks

                Regards
                Raj







                +---
                | This is the Midrange System Mailing List!
                | To submit a new message, send your mail to
MIDRANGE-L@midrange.com.
                | To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com.
                | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
                | Questions should be directed to the list owner/operator:
david@midrange.com
                +---

Jon Erickson.vcf