CloneSet128


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
21	2	1	0.993	sentence_list[14]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	21	3782	CCCC14.COB
2	21	3743	CCCC2.COB

Clone Instance
1

Line Count
21

Source Line
3782

Source File

CCCC14.COB

           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.

Clone Instance
2

Line Count
21

Source Line
3743

Source File

CCCC2.COB

           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2231-ADD-DISTRICT-CNTRS.

Clone Abstraction

Parameter Count: 1

Parameter Bindings

           IF EDIT-ERROR-TABLE IS NOT EQUAL TO SPACES
             PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF NOT SINGLE-COLLEGE-DISTRICT
                    IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX)
             PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO 1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO 1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO 1.
           SET DISTRICT-TOTAL-INDEX
             TO 1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM [[#24b9b040]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b9b040]]`	2231-ADD-DISTRICT-CNTRS
1	2	`[[#24b9b040]]`	2240-WRITE-RPT-TTLS-RECDS-FILE