CloneSet82


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
44230.986paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1443221
CCCC3.COB
2445367
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 AbstractionParameter Count: 3Parameter 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
11[[#24b52b60]]
       CAMPUS-RECORDS-READ 
12[[#24b52b60]]
       DISTRICT-RECORDS-READ 
21[[#24b52ba0]]
       CAMPUS-RECORDS-REJECTED 
22[[#24b52ba0]]
       DISTRICT-RECORDS-REJECTED 
31[[#24b52a80]]
       COLLEGE-TOTAL-INDEX 
32[[#24b52a80]]
       DISTRICT-TOTAL-INDEX