How to compare to values range

Hi,

Is it possible to compare to a range of values in COBOL? I'm thinking of something like this:

if account-id between 1 and 7 then

perform debit-internal-account

else

debit-customer-account

end-if

Regards

Tags:

  • I figured it out, I used the following syntax

    evaluate account-id

    when 1 thru 7

    perform debit-internal-account

    when other

    perform debit-customer-account

    end-evaluate

     

    ME ANSWERING MY SELF Stick out tongue So Crazy of Me!

  • Verified Answer

    Here's another technique, a little closer to your original request:

    01 account-id                   pic 9.

        88 account-id-valid     values are 1 through 7.

    if account-id-valid then

      perform debit-internal-account

    else

      perform debit-customer-account

    end-if

    If you do it with 88's, then the semantics of the test is only one place in your code, rather than being spread through out the procedure division.  Then, when you decided to add 8 to the valid values, you only have to change one place.