fork download

copy

identification division.
program-id. prog.
environment division.
data division.
working-storage section.
  77 n pic Z9.
  77 i pic Z9.
  77 r pic Z9.
  77 b pic Z9.
procedure division.
  display 'Hello, World!'
  accept n
  move 2 to b
  move 0 to i
  perform until i greater than n
    COMPUTE r = b**i.
    display r
  end-perform
  stop run.

prog.cbl:    17: error: syntax error, on or before '.'
prog.cbl:    17: error: unknown or wrong statement, on or before '.'
prog.cbl:    18: error: syntax error, on or before 'end-perform'
prog.cbl:    18: error: unknown or wrong statement, on or before 'end-perform'

Standard output is empty