CloneSet99


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
8701.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
183524
CCCC1.COB
283520
CCCC11.COB
383334
CCCC13.COB
483881
CCCC14.COB
583420
CCCC4.COB
683219
CCCC8.COB
783462
CCCC9.COB
Clone Instance
1
Line Count
8
Source Line
3524
Source File
CCCC1.COB

      *    ADD CLG-INTEGRITY-ERR-17-TOTAL
      *                      TO DIST-INTEGRITY-ERR-17-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 Instance
2
Line Count
8
Source Line
3520
Source File
CCCC11.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
3334
Source File
CCCC13.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
4
Line Count
8
Source Line
3881
Source File
CCCC14.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
5
Line Count
8
Source Line
3420
Source File
CCCC4.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
6
Line Count
8
Source Line
3219
Source File
CCCC8.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
7
Line Count
8
Source Line
3462
Source File
CCCC9.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 AbstractionParameter Count: 0Parameter Bindings

      *    ADD CLG-INTEGRITY-ERR-17-TOTAL
      *                      TO DIST-INTEGRITY-ERR-17-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