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

The only problem you might encounter is if the numeric date field is
invalid.  Your program will bomb if it tries to move an invalid date into a
date field.

We use this technique as well, but always do a test(d) on the numeric date
before moving it into a date field.

Bradley V. Stone
Taylor Corporation - OASIS Programmer/Analyst   
bvstone@taylorcorp.com


> -----Original Message-----
> From: Erickson, Jon [SMTP:JonErickson@VikingIndustries.com]
> Sent: Friday, January 22, 1999 9:43 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      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
>               +--- << File: Jon Erickson.vcf >> 
+---
| 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
+---