CloneSet129


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
23	2	5	0.963	sentence_list[19]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	23	3801	CCCC3.COB
2	23	5992	CCCC7.COB

Clone Instance
1

Line Count
23

Source Line
3801

Source File

CCCC3.COB

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM   DISTRICT-TOTAL-HEADING
               AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
               AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO                            1.
           PERFORM 9200-PRINT-TOTAL-LINES
                   UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE EMPLOYEE-DATA-FILE.
           CLOSE EDITED-EMPLOYEE-DATA-FILE.
           CLOSE EDIT-ERROR-REPORT.
           CLOSE INTEGRITY-ERROR-SUMMARY.
           CLOSE REPORT-TOTALS-FILE.

Clone Instance
2

Line Count
23

Source Line
5992

Source File

CCCC7.COB

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM   DISTRICT-TOTAL-HEADING
               AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
               AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO                            1.
           PERFORM 9200-PRINT-TOTAL-LINES
                   UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE STUDENT-BASIC-DATA-FILE.
           CLOSE TERM-STUDENT-DATA-FILE.
           CLOSE BASE-STUDENT-DATA-FILE.
           CLOSE EDIT-ERROR-REPORT.
           CLOSE INTEGRITY-ERROR-SUMMARY.

Clone Abstraction

Parameter Count: 5

Parameter Bindings

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM DISTRICT-TOTAL-HEADING
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
             AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO 1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO 1.
           PERFORM 9200-PRINT-TOTAL-LINES
             UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE [[#24b9d200]].
           CLOSE [[#24b9d540]].
           CLOSE [[#24b9d2c0]].
           CLOSE [[#24b9c940]].
           CLOSE [[#24b9cda0]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b9d200]]`	EMPLOYEE-DATA-FILE
1	2	`[[#24b9d200]]`	STUDENT-BASIC-DATA-FILE
2	1	`[[#24b9d540]]`	EDITED-EMPLOYEE-DATA-FILE
2	2	`[[#24b9d540]]`	TERM-STUDENT-DATA-FILE
3	1	`[[#24b9d2c0]]`	EDIT-ERROR-REPORT
3	2	`[[#24b9d2c0]]`	BASE-STUDENT-DATA-FILE
4	1	`[[#24b9c940]]`	INTEGRITY-ERROR-SUMMARY
4	2	`[[#24b9c940]]`	EDIT-ERROR-REPORT
5	1	`[[#24b9cda0]]`	REPORT-TOTALS-FILE
5	2	`[[#24b9cda0]]`	INTEGRITY-ERROR-SUMMARY