CloneSet99


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
8	7	0	1.000	paragraph

Clone Abstraction

Parameter Bindings


CCCC1.COB
CCCC11.COB
CCCC13.COB
CCCC14.COB
CCCC4.COB
CCCC8.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	8	3524	CCCC1.COB
2	8	3520	CCCC11.COB
3	8	3334	CCCC13.COB
4	8	3881	CCCC14.COB
5	8	3420	CCCC4.COB
6	8	3219	CCCC8.COB
7	8	3462	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 Abstraction

Parameter Count: 0

Parameter 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