[Joseg]

Ver este PDF: https://sourceforge.net/p/gnucobol/c...pdf?format=raw
pagina: 288

Exemplo:

perform until exit
           accept line-data
               on exception
                   display "EOF :" trim(line-data) ":" end-display
                   exit perform
           end-accept
           display line-data
end-perform