RE: Milliseconds

::: ducking under desk :::


-----Original Message-----
From: David A Parnin [mailto:daparnin@xxxxxxxxxxxxxxxxxx]
Sent: Wednesday, August 06, 2003 2:04 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Milliseconds



Would this work with /FREE without the benefit of the MOVE statement?

I haven't really had the opportunity to do much/any new coding with /FREE
but am working my way in that direction.

Dave Parnin
Nishikawa Standard Company
daparnin@xxxxxxxxxxxxxxxxxx



                                                                                
                              
                      cozzi@xxxxxxxxx                                           
                              
                                               To:       
rpg400-l@xxxxxxxxxxxx@SMTP@xxx                       
                      08/06/2003 12:10         cc:                              
                              
                      PM                       Subject:  RE: Milliseconds       
                              
                      Please respond to                                         
                              
                      CN=RPG                                                    
                              
                      programming on                                            
                              
                      the                                                       
                              
                      AS400/O=iSeries                                           
                              
                      <rpg400-l@xxxxxxx                                         
                              
                      e.com>                                                    
                              
                                                                                
                              
                                                                                
                              



Peter,
Do you know about using MOVE to convert between non-date and
non-time values to date and time values?
Anyway, this works:

     D tmData          S              6A   Inz('152000')
     D myTime          S               T
     D msecs           S             10I 0
     C
     C     *HMS0         MOVE      tmData        MyTime
     C     T'00:00:00'   SubDur    MyTime        MSecs:*MS

The value of TMData is set to 3:20 PM as an example.

-Bob


>
> "Peter, did you see my response on how to do this?"
> Yes Bob, I am sorry...I guess I was answering other postings as
> well...
>
> "One line of code in RPGIV. Of course if your original value is
> character, you
> need to first move it into a TIME field in RPG."
>
> To help you all visualize what I have, here it is the pgm:
>
>  * Entry parameters
> D CurDate         s              6
> D CurTime         s              6
> D millisec        s              8T
>  * Work fields
> D CurDateLong     s             10
> D CurTimeLong     s              8
> D                 ds
> D SysDateTime                     Z   INZ(*LOVAL)
> D   SysDate               1     10D   DATFMT(*ISO)
> D   SysTime              12     19T   TIMFMT(*ISO)
>  *-----------------------------------------------------
> D* Calculations
> D*-----------------------------------------------------
> D*
> D* Entry parameters
>       *entry        plist
> D                   parm                    CurDate
> D                   parm                    CurTime
> D*
>  *
>  * Pull system date and time
> C                   Time                    SysDateTime
> C     *ISO          move      SysDate       CurDateLong
> C     *ISO          move      SysTime       CurTimeLong
> C                   Eval      CurDate = %subst(CurDateLong:6:2) +

>       Month
> C                                       %subst(CurDateLong:9:2) +

>       Day
> C                                       %subst(CurDateLong:3:2)

>       Year
> C                   Eval      CurTime = %subst(CurTimeLong:1:2) +

>       Hours
> C                                       %subst(CurTimeLong:4:2) +
> Minutes
> C                                       %subst(CurTimeLong:7:2)
> Seconds
>  *
>  * Convert time from HHMMDD to milliseconds
> C                   Eval      Millisec = ????
> >>>
> >>> Bob's recommendation
> C     MyTime        SUBDUR    T'00:00:00'   Mili:*MS
> >>>
> >>>
> C                   endif
> C                   eval      *inlr = *on
>
> What should be "MyTime"?  SysTime? CurTimeLong?
> Is "Mili" the equivalent of my "milisec" variable?
> What is the equivalent coding if I want to use an EVAL statement?
>
>
>
> Peter Vidal
> Pall Aeropower Corp.
> SR Programmer Analyst
> WWW.Pall.com / 727-539-8448, x2414
>
> "A good player makes himself look good; a great player makes the
> team look
> good."
> Author unknown
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.