CloneSet31


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
38	4	6	0.975	sentence_list[26]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	38	4761	CCCC1.COB
2	38	5501	CCCC1.COB
3	38	5256	CCCC14.COB
4	38	4988	CCCC9.COB

Clone Instance
1

Line Count
38

Source Line
4761

Source File

CCCC1.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.

Clone Instance
2

Line Count
38

Source Line
5501

Source File

CCCC1.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.

Clone Instance
3

Line Count
38

Source Line
5256

Source File

CCCC14.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.

Clone Instance
4

Line Count
38

Source Line
4988

Source File

CCCC9.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.

Clone Abstraction

Parameter Count: 6

Parameter Bindings

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a47500]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a47860]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a476c0]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a48e40]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a49000]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a48600]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#22a47500]]`	DIST-INTEGRITY-ERR-1-TOTAL
1	2	`[[#22a47500]]`	CLG-INTEGRITY-ERR-1-TOTAL
1	3	`[[#22a47500]]`	DIST-INTEGRITY-ERR-1-TOTAL
1	4	`[[#22a47500]]`	DIST-INTEGRITY-ERR-1-TOTAL
2	1	`[[#22a47860]]`	DIST-INTEGRITY-ERR-2-TOTAL
2	2	`[[#22a47860]]`	CLG-INTEGRITY-ERR-2-TOTAL
2	3	`[[#22a47860]]`	DIST-INTEGRITY-ERR-2-TOTAL
2	4	`[[#22a47860]]`	DIST-INTEGRITY-ERR-2-TOTAL
3	1	`[[#22a476c0]]`	DIST-INTEGRITY-ERR-3-TOTAL
3	2	`[[#22a476c0]]`	CLG-INTEGRITY-ERR-3-TOTAL
3	3	`[[#22a476c0]]`	DIST-INTEGRITY-ERR-3-TOTAL
3	4	`[[#22a476c0]]`	DIST-INTEGRITY-ERR-3-TOTAL
4	1	`[[#22a48e40]]`	DIST-INTEGRITY-ERR-4-TOTAL
4	2	`[[#22a48e40]]`	CLG-INTEGRITY-ERR-4-TOTAL
4	3	`[[#22a48e40]]`	DIST-INTEGRITY-ERR-4-TOTAL
4	4	`[[#22a48e40]]`	DIST-INTEGRITY-ERR-4-TOTAL
5	1	`[[#22a49000]]`	DIST-INTEGRITY-ERR-5-TOTAL
5	2	`[[#22a49000]]`	CLG-INTEGRITY-ERR-5-TOTAL
5	3	`[[#22a49000]]`	DIST-INTEGRITY-ERR-5-TOTAL
5	4	`[[#22a49000]]`	DIST-INTEGRITY-ERR-5-TOTAL
6	1	`[[#22a48600]]`	DIST-INTEGRITY-ERR-6-TOTAL
6	2	`[[#22a48600]]`	CLG-INTEGRITY-ERR-6-TOTAL
6	3	`[[#22a48600]]`	DIST-INTEGRITY-ERR-6-TOTAL
6	4	`[[#22a48600]]`	DIST-INTEGRITY-ERR-6-TOTAL