Create a file on magnetic tape: Difference between revisions

m
→‎{{header|Wren}}: Changed to Wren S/H
m (syntax highlighting fixup automation)
m (→‎{{header|Wren}}: Changed to Wren S/H)
 
(3 intermediate revisions by one other user not shown)
Line 135:
=={{header|COBOL}}==
 
{{works with|OpenCOBOLCOBOL 2002}}
 
<syntaxhighlight lang="cobolcobolfree"> >>SOURCE FORMAT IS FREE
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 RECORD CONTAINS 51 CHARACTERS.
01 TAPE-FILE-RECORD PICPICTURE IS X(51).
 
PROCEDURE DIVISION.
Line 158 ⟶ 159:
FROM "COBOL treats tape files and text files identically."
END-WRITE
CLOSE TAPE-FILE
STOP RUN.</syntaxhighlight>
STOP RUN.
 
END PROGRAM STOP RUNMAKE-TAPE-FILE.</syntaxhighlight>
 
=={{header|Crystal}}==
Line 546 ⟶ 550:
 
=={{header|Wren}}==
<syntaxhighlight lang="ecmascriptwren">import "os" for Platform
import "io" for File
 
9,476

edits