CloneSet43


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
23701.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1235075
CCCC11.COB
2234424
CCCC13.COB
3235296
CCCC14.COB
4235664
CCCC2.COB
5234622
CCCC4.COB
6234136
CCCC5.COB
7235028
CCCC9.COB
Clone Instance
1
Line Count
23
Source Line
5075
Source File
CCCC11.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
2
Line Count
23
Source Line
4424
Source File
CCCC13.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
3
Line Count
23
Source Line
5296
Source File
CCCC14.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
4
Line Count
23
Source Line
5664
Source File
CCCC2.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
5
Line Count
23
Source Line
4622
Source File
CCCC4.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
6
Line Count
23
Source Line
4136
Source File
CCCC5.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone Instance
7
Line Count
23
Source Line
5028
Source File
CCCC9.COB

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-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.
           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
           SET TOTAL-DESCRIPTION-INDEX
             TO       DISTRICT-TOTAL-INDEX.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       8830-PRINT-DISTRICT-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                  IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-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.
           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
               SET TOTAL-DESCRIPTION-INDEX
                 TO DISTRICT-TOTAL-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None