46 lines
1.2 KiB
COBOL
46 lines
1.2 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CTESTP_READ2.
|
|
ENVIRONMENT DIVISION.
|
|
* TEST READ VERB FORMAT 2 (RELATIVE).
|
|
|
|
CONFIGURATION SECTION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT GOZOUT
|
|
ASSIGN TO "FILLER "
|
|
ORGANIZATION IS RELATIVE
|
|
ACCESS IS RANDOM
|
|
RELATIVE KEY IS WS-RECORD-NO
|
|
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).
|
|
01 WS-DATA PIC X(80).
|
|
01 WS-NAME PIC X(80) VALUE "./input.dat" .
|
|
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-MAIN.
|
|
OPEN OUTPUT GOZOUT.
|
|
MOVE 1001 TO WS-RECORD-NO
|
|
READ GOZOUT NEXT RECORD INTO WS-DATA
|
|
INVALID KEY
|
|
MOVE "FAIL" TO DESCRIPTION
|
|
* NOT INVALID KEY
|
|
* MOVE "PASS" TO DESCRIPTION
|
|
END-READ.
|
|
CLOSE GOZOUT.
|
|
STOP RUN.
|