CloneSet82


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
44	2	3	0.986	paragraph_list[3]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	44	3221	CCCC3.COB
2	44	5367	CCCC7.COB

Clone Instance
1

Line Count
44

Source Line
3221

Source File

CCCC3.COB

      *
      *
       4100B-OUTPUT-TOTALS-RECORD.
           MOVE REPORT-SUM3 TO TOTALS-ID3.
           MOVE DISTRICT-RECORDS-READ TO
                  READ-TOTALS.
           MOVE DISTRICT-RECORDS-REJECTED TO
                  REJECTED-TOTALS.
           MOVE DATE-HOLD TO DATE-FLAG.
           MOVE HH-MM TO TIME-FLAG.
           WRITE REPORT-TOTALS-RECORD3.
      *
      *
       4150-BUMP-DESCRIPTOR-INDEX.
           SEARCH TOTAL-DESCRIPTIONS-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN TOTAL-DESCRIPTIONS-INDEX
                   IS EQUAL TO DISTRICT-TOTAL-INDEX
               NEXT SENTENCE.
      *
      *
       4200-PRINT-ERROR-TOTALS.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  DED-NUMBER.
           PERFORM 4210A-OUTPUT-TOTALS-RECORD.
           MOVE DATA-ELEMENT-LITERAL
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL-AREA.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           SET ERROR-COUNT-COL-INDEX
             TO                         1.
           PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE
               UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           SET ORIGINAL-INDEX-VALUE
             TO   ERROR-COUNT-ROW-INDEX.
           SEARCH EDIT-ERROR-COUNT-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO ERROR-COUNT-ROW-INDEX
               PERFORM 4250-BUMP-DESCRIPTOR-INDEX.

Clone Instance
2

Line Count
44

Source Line
5367

Source File

CCCC7.COB

      *
      *
       4100B-OUTPUT-TOTALS-RECORD.
           MOVE REPORT-SUM3 TO TOTALS-ID3.
           MOVE CAMPUS-RECORDS-READ TO
                  READ-TOTALS.
           MOVE CAMPUS-RECORDS-REJECTED TO
                  REJECTED-TOTALS.
           MOVE DATE-HOLD TO DATE-FLAG.
           MOVE HH-MM TO TIME-FLAG.
           WRITE REPORT-TOTALS-RECORD3.
      *
      *
       4150-BUMP-DESCRIPTOR-INDEX.
           SEARCH TOTAL-DESCRIPTIONS-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN TOTAL-DESCRIPTIONS-INDEX
                   IS EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
      *
      *
       4200-PRINT-ERROR-TOTALS.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  DED-NUMBER.
           PERFORM 4210A-OUTPUT-TOTALS-RECORD.
           MOVE DATA-ELEMENT-LITERAL
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL-AREA.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           SET ERROR-COUNT-COL-INDEX
             TO                         1.
           PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE
               UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           SET ORIGINAL-INDEX-VALUE
             TO   ERROR-COUNT-ROW-INDEX.
           SEARCH EDIT-ERROR-COUNT-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO ERROR-COUNT-ROW-INDEX
               PERFORM 4250-BUMP-DESCRIPTOR-INDEX.

Clone Abstraction

Parameter Count: 3

Parameter Bindings

      *
      *
       4100B-OUTPUT-TOTALS-RECORD.
           MOVE REPORT-SUM3 TO TOTALS-ID3.
           MOVE [[#24b52b60]]TO READ-TOTALS.
           MOVE [[#24b52ba0]]TO REJECTED-TOTALS.
           MOVE DATE-HOLD TO DATE-FLAG.
           MOVE HH-MM TO TIME-FLAG.
           WRITE REPORT-TOTALS-RECORD3.
      *
      *
       4150-BUMP-DESCRIPTOR-INDEX.
           SEARCH TOTAL-DESCRIPTIONS-ENTRY
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN TOTAL-DESCRIPTIONS-INDEX IS EQUAL TO [[#24b52a80]]
               NEXT SENTENCE.
      *
      *
       4200-PRINT-ERROR-TOTALS.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO DED-NUMBER.
           PERFORM 4210A-OUTPUT-TOTALS-RECORD.
           MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO
                                                    ELEMENT-LITERAL-AREA
           .
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           SET ERROR-COUNT-COL-INDEX
             TO 1.
           PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE
             UNTIL ELEMENT-COLUMN-INDEX GREATER 4.
           WRITE PRINT-RECORD-2
             FROM ELEMENT-TOTAL-DETAIL-LINE
             AFTER ADVANCING 1 LINE.
           SET ORIGINAL-INDEX-VALUE
             TO ERROR-COUNT-ROW-INDEX.
           SEARCH EDIT-ERROR-COUNT-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  ERROR-COUNT-ROW-INDEX
               PERFORM 4250-BUMP-DESCRIPTOR-INDEX.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b52b60]]`	CAMPUS-RECORDS-READ
1	2	`[[#24b52b60]]`	DISTRICT-RECORDS-READ
2	1	`[[#24b52ba0]]`	CAMPUS-RECORDS-REJECTED
2	2	`[[#24b52ba0]]`	DISTRICT-RECORDS-REJECTED
3	1	`[[#24b52a80]]`	COLLEGE-TOTAL-INDEX
3	2	`[[#24b52a80]]`	DISTRICT-TOTAL-INDEX