CloneSet128


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
21210.993sentence_list[14]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1213782
CCCC14.COB
2213743
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 AbstractionParameter Count: 1Parameter 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
11[[#24b9b040]]
       2231-ADD-DISTRICT-CNTRS 
12[[#24b9b040]]
       2240-WRITE-RPT-TTLS-RECDS-FILE