fork download

copy

        identification division.
        program-id. ballo.
        environment division.
        data division.
        working-storage section.
            77 fah pic 9999v99    value 0.
            77 cls pic 9999v99    value 0.
            77 Nfah pic zzz9.99.
 
 
        procedure division.
        main.
 
 
            display (5 20) "Celsius".
            display (5 40) "Fahrenheit".
            display " ".
 
            perform convert-rtn until cls = 160.
 
            stop run.
 
        convert-rtn.
            compute fh = ( ( 9 / 5 ) * cs ) + 32.
            move fh to Nfah.
            display "                  " cls "               " Nfah.
            add 10 to cls.                                  
 

prog.cbl:    15: error: syntax error, on or before '('
prog.cbl:    15: error: unknown or wrong statement, on or before '('
prog.cbl:    16: error: unknown or wrong statement, on or before '('
prog.cbl:    24: error: Invalid argument expecting variable, on or before 'fh'
prog.cbl:    24: error: Invalid argument expecting variable, on or before 'cs'
prog.cbl:    25: error: undefined variable FH, on or before '.'
prog.cbl:    25: error: Invalid argument expecting variable, on or before 'fh'
prog.cbl:    26: error: undefined variable FH, on or before '.'

Standard output is empty