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