CloneSet71


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
53201.000paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1533843
CCCC3.COB
2536039
CCCC7.COB
Clone Instance
1
Line Count
53
Source Line
3843
Source File
CCCC3.COB

      *
      *
       9200-PRINT-TOTAL-LINES.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTIONS-ENTRY
                   (TOTAL-DESCRIPTIONS-INDEX) TO
                  TOTAL-DESCRIPTION
                   IN TOTAL-DETAIL-LINE.
           MOVE DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX) TO
                  TOTAL-FIELD
                   IN TOTAL-DETAIL-LINE.
           WRITE PRINT-RECORD-2
             FROM       TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO   DISTRICT-TOTAL-INDEX.
           SEARCH DISTRICT-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-TOTAL-INDEX
               PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
      *
      *
       9250-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.
      *
      *
       9300-PRINT-ERROR-TOTALS.
           MOVE DATA-ELEMENT-LITERAL
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL-AREA.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           SET DISTRICT-COUNT-COL-INDEX
             TO                            1.
           PERFORM 9310-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   DISTRICT-COUNT-ROW-INDEX.
           SEARCH DISTRICT-ERROR-COUNT-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX
               PERFORM 9350-BUMP-DESCRIPTOR-INDEX.


Clone Instance
2
Line Count
53
Source Line
6039
Source File
CCCC7.COB

      *
      *
       9200-PRINT-TOTAL-LINES.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTIONS-ENTRY
                   (TOTAL-DESCRIPTIONS-INDEX) TO
                  TOTAL-DESCRIPTION
                   IN TOTAL-DETAIL-LINE.
           MOVE DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX) TO
                  TOTAL-FIELD
                   IN TOTAL-DETAIL-LINE.
           WRITE PRINT-RECORD-2
             FROM       TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO   DISTRICT-TOTAL-INDEX.
           SEARCH DISTRICT-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-TOTAL-INDEX
               PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
      *
      *
       9250-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.
      *
      *
       9300-PRINT-ERROR-TOTALS.
           MOVE DATA-ELEMENT-LITERAL
                   (EDIT-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL-AREA.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           SET DISTRICT-COUNT-COL-INDEX
             TO                            1.
           PERFORM 9310-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   DISTRICT-COUNT-ROW-INDEX.
           SEARCH DISTRICT-ERROR-COUNT-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX
               PERFORM 9350-BUMP-DESCRIPTOR-INDEX.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       9200-PRINT-TOTAL-LINES.
           MOVE TOTAL-DESCRIPTION
                  IN TOTAL-DESCRIPTIONS-ENTRY (TOTAL-DESCRIPTIONS-INDEX)
           TO TOTAL-DESCRIPTION
                IN TOTAL-DETAIL-LINE.
           MOVE DISTRICT-TOTAL
                  IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX) TO
                                                             TOTAL-FIELD
                                                               IN
                                                       TOTAL-DETAIL-LINE
           .
           WRITE PRINT-RECORD-2
             FROM TOTAL-DETAIL-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO DISTRICT-TOTAL-INDEX.
           SEARCH DISTRICT-TOTAL-ENTRY
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-TOTAL-INDEX
               PERFORM 9250-BUMP-DESCRIPTOR-INDEX.
      *
      *
       9250-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.
      *
      *
       9300-PRINT-ERROR-TOTALS.
           MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO
                                                    ELEMENT-LITERAL-AREA
           .
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           SET DISTRICT-COUNT-COL-INDEX
             TO 1.
           PERFORM 9310-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 DISTRICT-COUNT-ROW-INDEX.
           SEARCH DISTRICT-ERROR-COUNT-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-COUNT-ROW-INDEX
               PERFORM 9350-BUMP-DESCRIPTOR-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None