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