I may have not stated my question clearly.
My concern is that the 88 code would 'grind' through the values of B through Y only to determine that A was not part of the acceptable values in the range.
Ray Shahan
Life is not a journey to the grave with the
intention of arriving safely in a pretty and
well preserved body, but rather to skid in
broadside, thoroughly used up, totally worn out,
and loudly proclaiming:
-- WOW!!! What a Ride! --
> -----Original Message-----
> From: Michael Anderson [SMTP:[log in to unmask]]
> Sent: Wednesday, May 05, 2004 2:50 PM
> To: [log in to unmask]; Shahan, Ray
> Subject: Re: [HP3000-L] COBOL question
>
> It's PIC X, I didn't have anything to do with the design of the
> compiler, but I got $5 that it's using the binary value of the ASCII
> character.
>
> So it would check for a decimal value of 66 thur 89.
>
>
>
> --
> Michael Anderson
> Spring Independent School District
> 16717 Ella Boulevard
> Houston, Texas 77090-4299
> office: 281.586.1105
> fax: 281.586.1187
> -
>
> >>> "Shahan, Ray" <[log in to unmask]> 05/05/04 01:54PM >>>
> Hi all,
>
> Given the following WS:
>
>
> 01 TEST-RANGE-SW PIC X(1).
> 88 TEST-RANGE VALUE "B" THRU "Y".
>
>
>
> Does the compiler generate code that determines (binary search, etc.)
> that a variable (or constant) is out of the acceptable range, or does
> the compiler actually generate code that would result in an evaluation
> of each condition one at a time?
>
> For example, I could create the self explanatory manual code:
> IF "A" < "B"
> PERFORM FOUND-IT.
>
> Or I could do this, but would the code have to check for every value of
> "B" through "Y" to determine that "A" was not in TEST-RANGE?
> MOVE "A" TO TEST-RANGE-SW
> IF NOT TEST-RANGE
> PERFORM FOUND-IT.
>
>
>
>
> TIA for your time,
>
>
> Ray Shahan
>
> Life is not a journey to the grave with the
> intention of arriving safely in a pretty and
> well preserved body, but rather to skid in
> broadside, thoroughly used up, totally worn out,
> and loudly proclaiming:
>
> -- WOW!!! What a Ride! --
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
>
> ========================================================================
> This e-mail message has been scanned for Viruses and Content and cleared
> by School Specialty's email filtering solution.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|