I can't tell, did you get an answer to date validation? If not, 
     look at TEST(D) opcode. 
     
     eric.delong@pmsi-services.com


______________________________ Reply Separator _________________________________
Subject: Re: Built in Function ILE RPG 
Author:  <MIDRANGE-L@midrange.com > at INET_WACO
Date:    1/22/99 4:29 PM


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



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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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 here. If you have questions about this, please contact [javascript protected email address].