CloneSet61


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
56230.989paragraph_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1565192
CCCC14.COB
2565520
CCCC2.COB
Clone Instance
1
Line Count
56
Source Line
5192
Source File
CCCC14.COB

      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-10-12
                 AND                    ELEMENT-COLUMN-2)
                OR   (ELEMENT-ROWS-1-12
                        AND                 ELEMENT-COLUMN-3)
                OR   (ELEMENT-ROWS-1-12
                        AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
2
Line Count
56
Source Line
5520
Source File
CCCC2.COB

      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-11
                 AND                 ELEMENT-COLUMN-2)
                OR       (ELEMENT-ROWS-1-9
                            AND                ELEMENT-COLUMN-3)
                OR       (ELEMENT-ROWS-1-11
                            AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone AbstractionParameter Count: 3Parameter Bindings

      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                  IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
           TO ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO 1.
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
             UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM ELEMENT-TOTAL-DETAIL-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET ELEMENT-TABLE-ROW-ID
             TO DISTRICT-ELEMENT-ROW-INDEX.
           SET ELEMENT-TABLE-COLUMN-ID
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
           IF ( [[#24b279e0]]
                 AND ELEMENT-COLUMN-2)
                OR ( [[#24b27a40]]
                      AND ELEMENT-COLUMN-3)
                OR ( [[#24b27920]]
                      AND ELEMENT-COLUMN-4)
             MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A
                                              IN ELEMENT-COLUMNS (
                                                    ELEMENT-COLUMN-INDEX
                                                                 )
           ELSE
             MOVE DISTRICT-ELEMENT-TOTAL
                    IN DISTRICT-ELEMNT-TOTALS-COLUMNS (
                                              DISTRICT-ELEMENT-ROW-INDEX
                                           DISTRICT-ELEMENT-COLUMN-INDEX
                                                      ) TO ELEMENT-TOTAL
                                                             IN
                                                         ELEMENT-COLUMNS
                                                           (
                                                    ELEMENT-COLUMN-INDEX
                                                           ).
           SET ORIGINAL-INDEX-VALUE
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
             AT END
               MOVE 1 TO PRINT-LINE-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b279e0]]
       ELEMENT-ROWS-1-10-12 
12[[#24b279e0]]
       ELEMENT-ROWS-1-11 
21[[#24b27a40]]
       ELEMENT-ROWS-1-12 
22[[#24b27a40]]
       ELEMENT-ROWS-1-9 
31[[#24b27920]]
       ELEMENT-ROWS-1-12 
32[[#24b27920]]
       ELEMENT-ROWS-1-11