Re: parsing a numeric field -- RPG400-L

Your code works fine.
Here are my results using  DOUEQ 5,000,000
  1st run
  Z-add Starttime   9:22:25  042301
  End of Z-addS Start of MOVES 9:22:28    042301
  End of MOVES 9:22:34  042301
   Lapsed Time for Z-adds 3 seconds
   Lapsed Time for Moves 6 seconds

  2nd run
  Z-ADD start time 9:22:51    042301
  End of Z-adds Start of MOVES 9:22:54
  End of MOVES  9:23:00
     Lapsed time for Z-adds 3 seconds
     Lapsed time for moves 6 seconds

   Every time that I have tried it, the Z-ADDS have beaten the MOVES.  The 
moves take about twice as long.

I think I will try this little experiment using a Data Structure.


>From: "James W. Kilgore" <qappdsn@attglobal.net>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: Re: parsing a numeric field
>Date: Sat, 21 Apr 2001 07:16:19 -0700
>
>Sorry, didn't catch that.  The mail delivery has been pretty spotty this 
>past
>week.
>
>Out of curiosity I decided to try a timing test on Z-ADD vs MOVE/MOVEL.  
>There
>must be something wrong with this code:
>
>  *************** Beginning of data ********************************
>  H
>  C                   Z-ADD     1             COUNT1            5 0
>  C                   Z-ADD     1             COUNT2            5 0
>  C                   Z-ADD     12345.67      AMOUNT            7 2
>  C*
>  C                   TIME                    STRTTIME         12 0
>  C     COUNT1        DOUEQ     10000
>  C                   Z-ADD     AMOUNT        DOLLARS           5 0
>  C                   Z-ADD     AMOUNT        CENTS             2 2
>  C                   ADD       1             COUNT1
>  C                   ENDDO
>  C*
>  C                   TIME                    MIDLTIME         12 0
>  C     COUNT2        DOUEQ     10000
>  C                   MOVEL     AMOUNT        DOLLARS
>  C                   MOVE      AMOUNT        CENTS
>  C                   ADD       1             COUNT2
>  C                   ENDDO
>  C*
>  C                   TIME                    STOPTIME         12 0
>  C                   DSPLY                   STRTTIME
>  C                   DSPLY                   MIDLTIME
>  C                   DSPLY                   STOPTIME
>  C*
>  C                   SETON                                        LR
>****************** End of data *************************************
>
>The difference between STRTTIME and MIDLTIME is 8 seconds, but the value 
>for
>STOPTIME is the same a MIDLTIME.
>
>
>Rick Childers wrote:
>
> > I don't know.  But the initial question that was posted was "how to do 
>it
> > without a data structure".
> >
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---