Create a file on magnetic tape: Difference between revisions

Content added Content deleted

Inline

@@ Line 7: / Line 7: @@
 =={{header|COBOL}}==
-Works with: OpenCOBOL.
+{{works with|OpenCOBOL}}
-<lang COBOL>IDENTIFICATION DIVISION.
-         >>SOURCE FORMAT IS FREE
+<lang COBOL>       >>SOURCE FORMAT IS FREE
 IDENTIFICATION DIVISION.
 PROGRAM-ID. MAKE-TAPE-FILE.
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
-SELECT TAPE-FILE
+    SELECT TAPE-FILE
-	ASSIGN "/TAPE.FILE"
+        ASSIGN "/TAPE.FILE"
-	ORGANIZATION IS LINE SEQUENTIAL
+        ORGANIZATION IS LINE SEQUENTIAL.
-.
 DATA DIVISION.
 FILE SECTION.
 FD TAPE-FILE.
-TAPE-FILE-RECORD X(51).
+TAPE-FILE-RECORD PIC X(51).
 PROCEDURE DIVISION.
-OPEN OUTPUT SHARING WITH ALL OTHER TAPE-FILE .
+    OPEN OUTPUT SHARING WITH ALL OTHER TAPE-FILE
-WRITE 01-TAPE-FILE-RECORD
+    WRITE TAPE-FILE-RECORD
-	FROM "COBOL treats tape files and text files identically."
+        FROM "COBOL treats tape files and text files identically."
-END-WRITE
+    END-WRITE
-STOP RUN.</lang>
+    STOP RUN.</lang>
 =={{header|Go}}==