Re: parsing a numeric field

["James W. Kilgore" <qappdsn@xxxxxxxxxxxxx>]

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