MainframeMaster

COBOL Tutorial

COBOL END-XML Statement

The END-XML statement represents a fundamental component of XML processing and document handling operations in COBOL, serving as an explicit scope terminator that clearly defines the boundaries of XML statement blocks. This statement embodies modern data interchange principles by providing unambiguous termination points for XML parsing and generation operations, enabling sophisticated document processing capabilities, and supporting the development of robust web service and data integration applications that require precise control over XML document manipulation and validation.

Basic END-XML 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
77
78
79
80
81
82
83
84
IDENTIFICATION DIVISION.
PROGRAM-ID. END-XML-DEMO.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01  XML-PROCESSING-AREAS.
    05  XML-DOCUMENT            PIC X(2000).
    05  XML-ELEMENT-NAME        PIC X(50).
    05  XML-ELEMENT-VALUE       PIC X(200).
    05  XML-ATTRIBUTE-NAME      PIC X(30).
    05  XML-ATTRIBUTE-VALUE     PIC X(100).
 
01  XML-CONTROLS.
    05  XML-STATUS              PIC 9(3) VALUE 0.
        88  XML-OK              VALUE 0.
        88  XML-ERROR           VALUE 1 THRU 999.
    05  PARSE-COUNT             PIC 9(5) VALUE 0.
    05  SUCCESSFUL-OPERATIONS   PIC 9(5) VALUE 0.
    05  XML-ERRORS              PIC 9(3) VALUE 0.
 
01  SAMPLE-DATA.
    05  EMPLOYEE-ID             PIC X(10) VALUE 'EMP001'.
    05  EMPLOYEE-NAME           PIC X(30) VALUE 'JOHN SMITH'.
    05  EMPLOYEE-DEPT           PIC X(15) VALUE 'IT'.
    05  EMPLOYEE-SALARY         PIC 9(7)V99 VALUE 75000.00.
 
PROCEDURE DIVISION.
MAIN-PROCESSING.
    PERFORM DEMONSTRATE-XML-GENERATION
    PERFORM DEMONSTRATE-XML-PARSING
    PERFORM DISPLAY-XML-STATISTICS
    STOP RUN.
 
DEMONSTRATE-XML-GENERATION.
    DISPLAY 'Demonstrating XML generation...'
    
    *> Generate XML document
    XML GENERATE XML-DOCUMENT FROM SAMPLE-DATA
        ON EXCEPTION
            DISPLAY 'XML generation failed'
            MOVE 1 TO XML-STATUS
            ADD 1 TO XML-ERRORS
        NOT ON EXCEPTION
            DISPLAY 'XML generated successfully'
            DISPLAY 'XML Content: ' XML-DOCUMENT
            ADD 1 TO SUCCESSFUL-OPERATIONS
    END-XML
    
    ADD 1 TO PARSE-COUNT.
 
DEMONSTRATE-XML-PARSING.
    DISPLAY 'Demonstrating XML parsing...'
    
    *> Parse XML document
    XML PARSE XML-DOCUMENT
        PROCESSING PROCEDURE HANDLE-XML-EVENT
        ON EXCEPTION
            DISPLAY 'XML parsing failed'
            MOVE 2 TO XML-STATUS
            ADD 1 TO XML-ERRORS
        NOT ON EXCEPTION
            DISPLAY 'XML parsed successfully'
            ADD 1 TO SUCCESSFUL-OPERATIONS
    END-XML
    
    ADD 1 TO PARSE-COUNT.
 
HANDLE-XML-EVENT.
    EVALUATE XML-EVENT
        WHEN 'START-OF-ELEMENT'
            DISPLAY 'Element started: ' XML-TEXT
        WHEN 'END-OF-ELEMENT'
            DISPLAY 'Element ended: ' XML-TEXT
        WHEN 'CONTENT-CHARACTERS'
            DISPLAY 'Content: ' XML-TEXT
        WHEN OTHER
            DISPLAY 'Other XML event: ' XML-EVENT
    END-EVALUATE.
 
DISPLAY-XML-STATISTICS.
    DISPLAY 'XML Processing Statistics:'
    DISPLAY 'Total operations: ' PARSE-COUNT
    DISPLAY 'Successful operations: ' SUCCESSFUL-OPERATIONS
    DISPLAY 'XML errors: ' XML-ERRORS.

Best Practices and FAQ