nilopaim/tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

version 0.73.0

Browse Source
This commit is contained in:
nilopaim
2023-07-14 12:15:30 -03:00
parent 110d8a0419
commit 945dd1a809
1466 changed files with 374820 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test_suite/seqio_tests/seqio01.cob
+90
View File
@@ -0,0 +1,90 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO01.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
MOVE 0 TO WS-TEST-COUNTER.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
PERFORM E000-SUMMARY THRU E000-EXIT.
STOP RUN.
DISPLAY "SQ06:(IL):(FA):PROGRAM RAN PAST STOP RUN".
0000-EXIT.
EXIT.
B000-INITIALIZE.
OPEN OUTPUT GOZOUT.
ADD 1 TO WS-TEST-COUNTER.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SQ02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 002 TO X-IND.
MOVE "SECOND RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SQ02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 003 TO X-IND.
MOVE "THIRD RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SQ02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZOUT.
DISPLAY "SQ03:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
ADD 1 TO WS-TEST-COUNTER.
D000-EXIT.
EXIT.
E000-SUMMARY.
DISPLAY "SQ04:(" WS-TEST-COUNTER "):(0005):"
"TEST COUNT VALIDATION".
E000-EXIT.
EXIT.
test_suite/seqio_tests/seqio02.cob
+60
View File
@@ -0,0 +1,60 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO02.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./nofile.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN OUTPUT GOZOUT.
DISPLAY "SA01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SA02:(" FS "):(48):"
"SEQUENTIAL I/O WRITE STATUS".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZOUT.
DISPLAY "SA03:(" FS "):(42):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/seqio03.cob
+75
View File
@@ -0,0 +1,75 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO03.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZIN ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZIN
LABEL RECORD IS STANDARD.
01 GOZIN-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN INPUT GOZIN.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(001):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(FIRST RECORD ):"
"DATA FROM READ".
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(002):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(SECOND RECORD ):"
"DATA FROM READ".
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(003):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(THIRD RECORD ):"
"DATA FROM READ".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZIN.
DISPLAY "SR04:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/seqio04.cob
+64
View File
@@ -0,0 +1,64 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO04.
ENVIRONMENT DIVISION.
* THIS FILE IS SUPPOSED TO READ PAST EOF
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZIN ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZIN
LABEL RECORD IS STANDARD.
01 GOZIN-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN INPUT GOZIN.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" DESCRIPTION "):(FIRST RECORD ):"
"DATA FROM READ".
READ GOZIN.
READ GOZIN.
READ GOZIN.
DISPLAY "SR14:(" FS "):(10):"
"SEQUENTIAL I/O READ STATUS PAST EOF".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZIN.
DISPLAY "SR15:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/seqio05.cob
+103
View File
@@ -0,0 +1,103 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO05.
ENVIRONMENT DIVISION.
* PROGRAM WRITES AFTER FILE IS CLOSED
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./foobar.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
MOVE 0 TO WS-TEST-COUNTER.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
PERFORM C100-EXTRA-WRITE THRU C100-EXIT.
PERFORM E000-SUMMARY THRU E000-EXIT.
STOP RUN.
DISPLAY "SQ06:(IL):(FA):PROGRAM RAN PAST STOP RUN".
0000-EXIT.
EXIT.
B000-INITIALIZE.
OPEN OUTPUT GOZOUT.
ADD 1 TO WS-TEST-COUNTER.
DISPLAY "SW20:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SW21:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 002 TO X-IND.
MOVE "SECOND RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SW21:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 003 TO X-IND.
MOVE "THIRD RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SW21:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
C000-EXIT.
EXIT.
C100-EXTRA-WRITE.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SW23:(" FS "):(48):"
"SEQ WRITE AFTER FILE CLOSE".
ADD 1 TO WS-TEST-COUNTER.
C100-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZOUT.
DISPLAY "SW22:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
ADD 1 TO WS-TEST-COUNTER.
D000-EXIT.
EXIT.
E000-SUMMARY.
DISPLAY "SW24:(" WS-TEST-COUNTER "):(0006):"
"TEST COUNT VALIDATION".
E000-EXIT.
EXIT.
test_suite/seqio_tests/seqio06.cob
+90
View File
@@ -0,0 +1,90 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO06.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./test06.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORDS ARE OMITTED.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
MOVE 0 TO WS-TEST-COUNTER.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
PERFORM E000-SUMMARY THRU E000-EXIT.
STOP RUN.
DISPLAY "SQ06:(IL):(FA):PROGRAM RAN PAST STOP RUN".
0000-EXIT.
EXIT.
B000-INITIALIZE.
OPEN OUTPUT GOZOUT.
ADD 1 TO WS-TEST-COUNTER.
DISPLAY "SO01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SO02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 002 TO X-IND.
MOVE "SECOND RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SO02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 003 TO X-IND.
MOVE "THIRD RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "SO02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZOUT.
DISPLAY "SO03:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
ADD 1 TO WS-TEST-COUNTER.
D000-EXIT.
EXIT.
E000-SUMMARY.
DISPLAY "SO04:(" WS-TEST-COUNTER "):(0005):"
"TEST COUNT VALIDATION".
E000-EXIT.
EXIT.
test_suite/seqio_tests/seqio07.cob
+55
View File
@@ -0,0 +1,55 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO07.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZIN ASSIGN TO "./dummy.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZIN
LABEL RECORD IS STANDARD.
01 GOZIN-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN INPUT GOZIN.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
READ GOZIN.
DISPLAY "SR02:(" FS "):(10):"
"SEQUENTIAL I/O READ STATUS".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZIN.
DISPLAY "SR04:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/seqio08.cob
+55
View File
@@ -0,0 +1,55 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQIO08.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZIN ASSIGN TO "./dummy.dat"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZIN
LABEL RECORD IS STANDARD.
01 GOZIN-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN INPUT GOZIN.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
READ GOZIN.
DISPLAY "SR02:(" FS "):(10):"
"SEQUENTIAL I/O READ STATUS".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZIN.
DISPLAY "SR04:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/seqls01.cob
+90
View File
@@ -0,0 +1,90 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQLS01.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./lineseq.dat"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
MOVE 0 TO WS-TEST-COUNTER.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
PERFORM E000-SUMMARY THRU E000-EXIT.
STOP RUN.
DISPLAY "LS06:(IL):(FA):PROGRAM RAN PAST STOP RUN".
0000-EXIT.
EXIT.
B000-INITIALIZE.
OPEN OUTPUT GOZOUT.
ADD 1 TO WS-TEST-COUNTER.
DISPLAY "LS01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
MOVE SPACES TO GOZOUT-REC.
MOVE 001 TO X-IND.
MOVE "FIRST RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "LS02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 002 TO X-IND.
MOVE "SECOND RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "LS02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
MOVE 003 TO X-IND.
MOVE "THIRD RECORD" TO DESCRIPTION.
WRITE GOZOUT-REC.
DISPLAY "LS02:(" FS "):(00):"
"SEQUENTIAL I/O WRITE STATUS".
ADD 1 TO WS-TEST-COUNTER.
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZOUT.
DISPLAY "LS03:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
ADD 1 TO WS-TEST-COUNTER.
D000-EXIT.
EXIT.
E000-SUMMARY.
DISPLAY "LS04:(" WS-TEST-COUNTER "):(0005):"
"TEST COUNT VALIDATION".
E000-EXIT.
EXIT.
test_suite/seqio_tests/seqls02.cob
+75
View File
@@ -0,0 +1,75 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SEQLS02.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZIN ASSIGN TO "./lineseq.dat"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZIN
LABEL RECORD IS STANDARD.
01 GOZIN-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
PROCEDURE DIVISION.
0000-PROGRAM-ENTRY.
PERFORM B000-INITIALIZE THRU B000-EXIT.
PERFORM C000-MAIN-LOGIC THRU C000-EXIT.
PERFORM D000-CLEANUP THRU D000-EXIT.
STOP RUN.
B000-INITIALIZE.
OPEN INPUT GOZIN.
DISPLAY "SQ01:(" FS "):(00):"
"SEQUENTIAL I/O OPEN STATUS".
B000-EXIT.
EXIT.
C000-MAIN-LOGIC.
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(001):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(FIRST RECORD ):"
"DATA FROM READ".
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(002):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(SECOND RECORD ):"
"DATA FROM READ".
READ GOZIN.
DISPLAY "SR02:(" FS "):(00):"
"SEQUENTIAL I/O READ STATUS".
DISPLAY "SR03:(" X-IND "):(003):"
"DATA FROM READ".
DISPLAY "SR03:(" DESCRIPTION "):(THIRD RECORD ):"
"DATA FROM READ".
C000-EXIT.
EXIT.
D000-CLEANUP.
CLOSE GOZIN.
DISPLAY "SR04:(" FS "):(00):"
"SEQUENTIAL I/O CLOSE STATUS".
D000-EXIT.
EXIT.
test_suite/seqio_tests/test.script
+10
View File
@@ -0,0 +1,10 @@
seqio01:S:Simple form sequential write::
seqio02:S:Illogical write - No Open::
seqio03:S:Simple Sequential Read::
seqio04:S:Read past EOF/Sequential::
seqio05:S:Write after close Sequential::
seqio06:S:Label Records OMITTED::
seqio07:S:Optional Squential::
seqio08:S:Optional Line Sequential::
seqls01:S:Line Sequential Write::
seqls02:S:Line Sequential Read::