RECORD SEQUENTIAL file organization
IBM® COBOL for Linux® on x86 does
not support RECORD SEQUENTIAL
file organization.
If your source contains the RECORD SEQUENTIAL
file
organization, you will receive the error messages in the following
example.
Change RECORD SEQUENTIAL
to LINE SEQUENTIAL
,
and then compile again. You can also use scu
to replace RECORD
SEQUENTIAL
with LINE SEQUENTIAL
.
$cat tcRecordSequential.cbl
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEST-CASE.
000030 ENVIRONMENT DIVISION.
000031
000032 INPUT-OUTPUT SECTION.
000033 FILE-CONTROL.
000034 SELECT CONTACTS
000035 ASSIGN TO "MYFILE.DAT"
000036 ORGANIZATION IS RECORD SEQUENTIAL.
000037
000040 DATA DIVISION.
000050 FILE SECTION.
000051 FD CONTACTS
000052 RECORD CONTAINS 20 CHARACTERS.
000053 01 CONTACT-RECORD.
000054 05 FNAME PIC X(10).
000055 05 LNAME PIC X(10).
000073
000090 PROCEDURE DIVISION.
000100 PERFORM OPEN-FILE.
000110 PERFORM INPUT-DATA.
000120 PERFORM SAVE-DATA.
000130 PERFORM CLOSE-FILE.
000140 PERFORM END-PROGRAM.
000150
000160 INPUT-DATA.
000170 DISPLAY "ENTER FIRST NAME.".
000180 ACCEPT FNAME.
000190 DISPLAY "ENTER LAST NAME.".
000200 ACCEPT LNAME.
000210
000220 OPEN-FILE.
000230 OPEN OUTPUT CONTACTS.
000240
000250 SAVE-DATA.
000260 WRITE CONTACT-RECORD.
000270
000280 CLOSE-FILE.
000290 CLOSE CONTACTS.
000300
000310 END-PROGRAM.
000320 STOP RUN.
$ cob2 -o tcRecordSequential tcRecordSequential.cbl IBM COBOL for Linux 1.2.0 compile started
0LineID Message code Message text
9 IGYLN2929-S Incorrect ORGANIZATION type detected at RECORD. Clause ignored.
9 IGYLN1357-S Expected a data-name; SEQUENTIAL found. Statement or clause ignored.
13 IGYGR1216-I A "RECORDING MODE" of "F" was assumed for file "CONTACTS".
-Messages Total Informational Warning Error Severe Terminating
0Printed: 3 1 2
End of compilation 1, program TEST-CASE, highest severity: Severe.
Return code 12