Anonymous user
Create a file on magnetic tape: Difference between revisions
→{{header|COBOL}}: added CLOSE
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
imported>Acediast (→{{header|COBOL}}: added CLOSE) |
||
Line 135:
=={{header|COBOL}}==
{{works with|
<syntaxhighlight lang="
IDENTIFICATION DIVISION.
PROGRAM-ID. MAKE-TAPE-FILE.
Line 145:
FILE-CONTROL.
SELECT TAPE-FILE
ASSIGN TO "./TAPE.FILE"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD TAPE-FILE.
01 TAPE-FILE-RECORD
PROCEDURE DIVISION.
Line 158 ⟶ 159:
FROM "COBOL treats tape files and text files identically."
END-WRITE
CLOSE TAPE-FILE
STOP RUN.</syntaxhighlight>▼
STOP RUN.
=={{header|Crystal}}==
| |||