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.
            move 0 to cs.
            move 0 to fh.
 
 
            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:    13: error: Invalid argument expecting variable, on or before 'cs'
prog.cbl:    14: error: undefined variable CS, on or before '.'
prog.cbl:    14: error: Invalid argument expecting variable, on or before 'fh'
prog.cbl:    17: error: undefined variable FH, on or before '.'
prog.cbl:    17: error: syntax error, on or before '('
prog.cbl:    17: error: unknown or wrong statement, on or before '('
prog.cbl:    18: error: unknown or wrong statement, on or before '('
prog.cbl:    26: error: Invalid argument expecting variable, on or before 'fh'
prog.cbl:    26: error: Invalid argument expecting variable, on or before 'cs'
prog.cbl:    27: error: undefined variable FH, on or before '.'
prog.cbl:    27: error: Invalid argument expecting variable, on or before 'fh'
prog.cbl:    28: error: undefined variable FH, on or before '.'

Standard output is empty