Create a file on magnetic tape: Difference between revisions
Content added Content deleted
imported>Acediast (→{{header|COBOL}}: oops, LINE SEQUENTIAL isn't '02-standard) |
imported>Acediast (→{{header|COBOL}}: Added RECORD CONTAINS clause) |
||
| Line 151: | Line 151: | ||
DATA DIVISION. |
DATA DIVISION. |
||
FILE SECTION. |
FILE SECTION. |
||
FD TAPE-FILE. |
FD TAPE-FILE RECORD CONTAINS 51 CHARACTERS. |
||
01 TAPE-FILE-RECORD PICTURE IS X(51). |
01 TAPE-FILE-RECORD PICTURE IS X(51). |
||