RE: Built in Function ILE RPG

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