MainframeMaster

COBOL Tutorial

COBOL END-WRITE Statement

The END-WRITE statement represents a fundamental component of file output and record writing operations in COBOL, serving as an explicit scope terminator that clearly defines the boundaries of WRITE statement blocks. This statement embodies modern file processing principles by providing unambiguous termination points for record output operations, enabling sophisticated error handling for file writing scenarios, and supporting the development of robust data output applications that require precise control over record creation and file management operations.

Basic END-WRITE Usage

cobol
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
IDENTIFICATION DIVISION.
PROGRAM-ID. END-WRITE-DEMO.
 
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT OUTPUT-FILE ASSIGN TO 'OUTPUT.DAT'
        ORGANIZATION IS SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL
        FILE STATUS IS OUTPUT-FILE-STATUS.
 
DATA DIVISION.
FILE SECTION.
FD  OUTPUT-FILE.
01  OUTPUT-RECORD.
    05  RECORD-ID               PIC X(10).
    05  RECORD-DATA             PIC X(80).
    05  RECORD-TIMESTAMP        PIC X(14).
 
WORKING-STORAGE SECTION.
01  FILE-STATUS-CONTROLS.
    05  OUTPUT-FILE-STATUS      PIC XX.
        88  FILE-OK             VALUE '00'.
        88  FILE-ERROR          VALUE '01' THRU '99'.
 
01  WRITE-CONTROLS.
    05  RECORDS-WRITTEN         PIC 9(7) VALUE 0.
    05  SUCCESSFUL-WRITES       PIC 9(7) VALUE 0.
    05  FAILED-WRITES           PIC 9(5) VALUE 0.
 
PROCEDURE DIVISION.
MAIN-PROCESSING.
    PERFORM INITIALIZE-OUTPUT-FILE
    PERFORM WRITE-SAMPLE-RECORDS
    PERFORM FINALIZE-OUTPUT-FILE
    STOP RUN.
 
INITIALIZE-OUTPUT-FILE.
    OPEN OUTPUT OUTPUT-FILE
    IF NOT FILE-OK
        DISPLAY 'Error opening output file: ' OUTPUT-FILE-STATUS
        STOP RUN
    END-IF.
 
WRITE-SAMPLE-RECORDS.
    DISPLAY 'Writing sample records...'
    
    PERFORM VARYING RECORDS-WRITTEN FROM 1 BY 1
            UNTIL RECORDS-WRITTEN > 10
        
        STRING 'REC' DELIMITED BY SIZE
               RECORDS-WRITTEN DELIMITED BY SIZE
               INTO RECORD-ID
        END-STRING
        
        STRING 'Sample data for record ' DELIMITED BY SIZE
               RECORDS-WRITTEN DELIMITED BY SIZE
               INTO RECORD-DATA
        END-STRING
        
        MOVE FUNCTION CURRENT-DATE TO RECORD-TIMESTAMP
        
        WRITE OUTPUT-RECORD
            INVALID KEY
                DISPLAY 'Write failed for record: ' RECORD-ID
                ADD 1 TO FAILED-WRITES
            NOT INVALID KEY
                DISPLAY 'Record written: ' RECORD-ID
                ADD 1 TO SUCCESSFUL-WRITES
        END-WRITE
    END-PERFORM.
 
FINALIZE-OUTPUT-FILE.
    CLOSE OUTPUT-FILE
    DISPLAY 'Records written: ' SUCCESSFUL-WRITES
    DISPLAY 'Failed writes: ' FAILED-WRITES.

Best Practices and FAQ