RE: Built in Function ILE RPG -- MIDRANGE-L

Yes,

Use the TEST(D) opcode on the numeric (8,0) field as follows:

0149.00 C     *usa          TEST(DE)                NumDte80 
0150.00 C                   If        %Error                
0151.00  * NumDte80 contains invalid *USA formatted value.
0152.00 C                   Else
0153.00 C     *usa          Move      NumDte80      DateFld
0154.00 C     *iso          Move      DateFld       NumDte80
0155.00 C                   EndIf

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 1:29 PM
                To:     MIDRANGE-L@midrange.com
                Subject:        Re: Built in Function ILE RPG

                Thanks   Jerry  It  works  fine. I can able to take out one
more statements
                out.

                There is one more point I did'nt  mention.

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

                 On the above statement, by any chance if there is some
invalid date like
                Februry 30, then
                the program is boming out with run time message.

                For that , before executing the above statement, I am
evaluating for
                invalid date which runs almost 10+ statments.

                Is there any better way for this.

                Thanks again

                Regards

                Raj










                Jerry Keppler <kepplerj@pattonville.k12.mo.us> on 01-22-99
09:26:45 AM

                Please respond to MIDRANGE-L@midrange.com

                To:   MIDRANGE-L@midrange.com
                cc:    (bcc: Rajan Srinivasan/Servicing/SuperiorBank)
                Subject:  Re: Built in Function ILE RPG




                Rajan.Srinivasan@Allfun.com wrote:
                >
                > 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
                You can do it in two instructions.
                1. Move the numeric field to the date data type field. Put
*USA in
                factor 1, this          tells the compiler what format the
numeric field
                is in.
                     *USA       Move       Numfield1      DateField
                2. Move the date data type field to a numeric field. Put
*ISO in factor
                1, this tells      the compiler what format you want the
result in.
                     *ISO    Move       DateField      Numfield2

                You could create a procedure to do this for you.
                Don't use the multiply method to convert a numeric date from
one format
                to another.  It is very inefficient.

                --
                ___________________________________________________________
                Jerry R. Keppler      Pattonville School District
                Computer Programmer   11097 St. Charles Rock Road
                (314) 213-8045 Voice  St. Ann, MO 63074-1509
                (314) 213-8650 Fax    mailto:kepplerj@pattonville.k12.mo.us
                +---
                | 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
                +---






                +---
                | 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