Anonymous user
File input/output: Difference between revisions
COBOL 85
No edit summary |
(COBOL 85) |
||
Line 648:
=={{header|COBOL}}==
===COBOL 85===
{{works with|COBOL 85 standard}}
Flags used for Micro Focus COBOL:
$set ans85 flag"ans85" flagas"s" sequential"line"
<lang COBOL> identification division.
program-id. copyfile.
environment division.
input-output section.
file-control.
select input-file assign to "input.txt"
organization sequential
.
select output-file assign to "output.txt"
organization sequential
.
data division.
file section.
fd input-file.
1 input-record pic x(80).
fd output-file.
1 output-record pic x(80).
working-storage section.
1 end-of-file-flag pic 9 value 0.
88 eof value 1.
1 text-line pic x(80).
procedure division.
begin.
open input input-file
output output-file
perform read-input
perform until eof
write output-record from text-line
perform read-input
end-perform
close input-file output-file
stop run
.
read-input.
read input-file into text-line
at end
set eof to true
end-read
.
end program copyfile. </lang>
===Implementation===
{{works with|OpenCOBOL}}
| |||