CloneSet88


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
15	4	2	0.964	sentence_list[10]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	15	4430	CCCC11.COB
2	15	4886	CCCC2.COB
3	15	3979	CCCC4.COB
4	15	3641	CCCC8.COB

Clone Instance
1

Line Count
15

Source Line
4430

Source File

CCCC11.COB

           MOVE 3 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           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.

Clone Instance
2

Line Count
15

Source Line
4886

Source File

CCCC2.COB

           MOVE 3 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           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 CLG-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.

Clone Instance
3

Line Count
15

Source Line
3979

Source File

CCCC4.COB

           MOVE 3 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           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.

Clone Instance
4

Line Count
15

Source Line
3641

Source File

CCCC8.COB

           MOVE 3 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           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.

Clone Abstraction

Parameter Count: 2

Parameter Bindings

           MOVE 3 TO HEADER-CONTROL-FLAG.
           MOVE SUM2-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                  IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                   IN HEADER-REPORT-ID.
           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 [[#24b52be0]]TO [[#24b5e020]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b52be0]]`	SPACES
1	2	`[[#24b52be0]]`	CLG-INTEGRITY-ERR-2-TOTAL
1	3	`[[#24b52be0]]`	SPACES
1	4	`[[#24b52be0]]`	SPACES
2	1	`[[#24b5e020]]`	PRINT-RECORD-2
2	2	`[[#24b5e020]]`	INTEGRITY-TOTAL
2	3	`[[#24b5e020]]`	PRINT-RECORD-2
2	4	`[[#24b5e020]]`	PRINT-RECORD-2