Re: DOW vs DOU

>
>On May 30 1997 Charlie Massoglia wrote:
>
>>Dave wrote:
>>
>>>     DO   *HIVAL
>>>or
>>>     DO   *HIVAL    LOPCNT 150
>>>
>>I don't mean to be picky, but isn't the above equivalent to
>>
>>      DO   999,999,999,999,999
>
>Not quite. It's actually equivalent to
>
>          DO   X         LOPCNT 150
>
>where X is initialised to 999,999,999,999,999.
>
>>so it really isn't an infinite loop, is it?
>
>Oh yes it is, because LOPCNT can never be greater than its high value. If 
>you're not convinced, try running the following simple program.
>
>C                     DO   9         LOPCNT  10
>C                     ENDDO
>C                     MOVE *ON       *INLR
>
>DO   *HIVAL always defines an infinite loop.
>
The old DO loop index truncation problem used as a feature.  I missed that
the first time.  Very nice.


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *