CloneSet188


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
8301.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
183298
CCCC12.COB
283274
CCCC5.COB
383414
CCCC6.COB
Clone Instance
1
Line Count
8
Source Line
3298
Source File
CCCC12.COB

      *
      *
       2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 2241-WRITE-SUM1-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 2242-WRITE-SUM2-TOTALS.
           PERFORM 2243-WRITE-SUM3-TOTALS.


Clone Instance
2
Line Count
8
Source Line
3274
Source File
CCCC5.COB

      *
      *
       2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 2241-WRITE-SUM1-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 2242-WRITE-SUM2-TOTALS.
           PERFORM 2243-WRITE-SUM3-TOTALS.


Clone Instance
3
Line Count
8
Source Line
3414
Source File
CCCC6.COB

      *
      *
      *2230-ADD-DISTRICT-INTGY-TOTALS.
      *    ADD CLG-INTEGRITY-ERR-1-TOTAL TO DIST-INTEGRITY-ERR-1-TOTAL.
      *    ADD CLG-INTEGRITY-ERR-2-TOTAL TO DIST-INTEGRITY-ERR-2-TOTAL.
      *
      *
       2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 2241-WRITE-SUM1-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 2242-WRITE-SUM2-TOTALS.
           PERFORM 2243-WRITE-SUM3-TOTALS.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
      *2230-ADD-DISTRICT-INTGY-TOTALS.
      *    ADD CLG-INTEGRITY-ERR-1-TOTAL TO DIST-INTEGRITY-ERR-1-TOTAL.
      *    ADD CLG-INTEGRITY-ERR-2-TOTAL TO DIST-INTEGRITY-ERR-2-TOTAL.
      *
      *
       2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO 1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           PERFORM 2241-WRITE-SUM1-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
      *    PERFORM 2242-WRITE-SUM2-TOTALS.
           PERFORM 2243-WRITE-SUM3-TOTALS.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None