if statement - Syntax error in COBOL program, unexpected if -


i coding in cobol, , after adding if statement listed below, kept getting " in paragraph '000-main': error: syntax error, unexpected if" 

   identification division.    program-id. lab2.      *this program generate statement single investment   *that compounds interest monthly.   *  prompt use 3 inputs, calculate total interest   *  earned, final balance, & entire account balance schedule.   *  display output console.    environment division.    data division.    working-storage section.    01  invest-amt     pic s9(9)v99.     01  invest-error-msg      pic x(40) value "investment "    &     "amount must positive".     01  int-rate        pic s9(2)v99.    01  int-rate-error-msg    pic x(40) value "annual interest "    &     "rate must positive".     01  int-rate-final  pic 9v99999.      01  num-months   pic s9(3).    01  num-months-error-msg  pic x(40) value "number of months "    &     "must positive".       01  multiply-rate pic 9v99999.     01  blank-line     pic x value " ".      01  month-counter   pic 99 value 1.    01  balance-month   pic 9(9)v99.    01  interest-month  pic 9(9)v99.     01  total-interest  pic 9(9)v99.    01  final-balance   pic 9(9)v99.     01  additional-value  pic s9(9)v99.    01  add-value-error-msg  pic x(40) value "additional value "    &     "must positive".      01  q           pic 9(3).    01  r           pic 9(3).    01  months-in-year pic 9(2) value 12.      procedure division.    000-main.        perform 100-initialize         perform until invest-amt >=0            display invest-error-msg           perform 200-input        end-perform         perform 210-input-rate         perform until int-rate >=0           display int-rate-error-msg           perform 210-input-rate        end-perform         perform 220-input-month         perform until num-months >=0           display num-months-error-msg           perform 220-input-month        end-perform         perform 230-input-additional-value         perform until additional-value >=0           display add-value-error-msg           perform 230-input-additional-value        end-perform         perform 300-print-words         perform 400-process-interest        perform 310-print-values        display blank-line         perform until month-counter = num-months           add 1 month-counter            divide month-counter months-in-year giving q remainder r

everything compiling fine until added if statement below.

          if ( (num-months> months-in-year) & (r=0))              add additional-value balance-month            multiply month-counter months-in-year             add interest-month balance-month rounded           perform 400-process-interest           perform 310-print-values           display blank-line        end-perform

my compiler complained of missing end-if , didn't &. fixed & problems in obvious way.

inserting end-if after add additional-value balance-month seemed produce clean compile. naturally, final end-perform needed full stop

end-perform.

i suspect compiler producing message because if statement malformed.


Comments

Post a Comment

Popular posts from this blog

javascript - jQuery: Add class depending on URL in the best way -

i have html progress meter: <div class="col-md-3" style="margin-left: -20px;"> <div class="progress-pos active" id="progess-1"> <div class="progress-pos-inner"> login </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-2"> <div class="progress-pos-inner"> scan items </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-3"> <div class="progress-pos-inner"> confirm address </div> </div> </div> <div class="col-md-3 progress-pos-container"> <div class="progress-pos" id="progess-4"> <div class="progress-pos-in...
Read more

caching - How to check if a url path exists in the service worker cache -

i need check if particular url path exists in service worker cache. example, suppose url is: /myserviceworker/service?a=110&b=70 this url exists in cache, there many of them different values of , b. now, suppose want refresh of these urls, how can that? i want know how access key values service worker cache. if know key, plan follows: var url = new url(key); if(url.pathname === "\/myserviceworker/service") refetch key but not sure how cache key , in format is. mean, string or url? cache api has match() method returns promise resolving in response object if match or undefined if no match exists. second parameter object can specify ignoresearch not take account url parameters. the ignoresearch option supported firefox ( chrome status here ). in other hand, retrieve cache entries, can use keys() method.
Read more

Redirect to a HTTPS version using .htaccess -

i need modify .htaccess file redirect urls https version without "www". http://example.com --> https://example.com http://www.example.com --> https://example.com https://www.example.com --> https://example.com this how .htaccess file looks like: rewriteengine on rewritecond %{request_filename} !-d rewritecond %{request_filename} !-f rewriterule ^(.*)$ redirect.php?id=$1&page=$2 [qsa,l] what modifications need make .htaccess in order forward https without "www"? it depends on doing current code. looks file called redirect trying display php page seo friendly url. think might confusing people. anyway, need , force https without www, need 1 more rule above. also second rule needs two capture groups in rewriterule test string because wanting 2 different values using $1 , $2 references. rewriteengine on #rediect www non www and/or http https --- combinations. rewritecond %{http_host} !^example\.com [nc,or] rewritecond %{https} !^...
Read more