Re: Evaluate

[Scott Self <Scott.Self@ASTRAMERCK.COM>]

Yolanda,

     The "break" statement in an EVALUATE causes an immediate exit from the 
EVALUATE only.  So you
will continue on the first line after the END-EVALUTE statement.

Example:
--------
let $foo = 'bar'

        evaluate $foo
           when = 'bar'
              move 1 to #count
              break
           when = 'rab'
              move 2 to #count
              break
        end-evaluate
        show #count    ! program continues here and #count = 1

--------
Hope this helps,
Scott



     Hi,
     I was wondering if anyone could help me.
     I was wondering what is the logic behind the break command in an
     EVALUATE statement. Within the evaluate statement, I issue a break
     command.  Does the break command take you back out to the
     begin-program section or does it let you continue within the local
     procedure?
     For example, I have this in my local procedure:
      move '' to $product_line
          do cust_line
          do grand_dig_fin_tot

     In my evaluate statement I have:
     when = 'OT'
              do select_unearned_rev
              do earned_rev
              do deal_pass
              when-other
              break
     Since '' != $product_line, does the break take me back to my local
     procedure or back to the begin-program section?
     Any help is appreciated.
     Thanks
     Yolanda