CloneSet43


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
23	7	0	1.000	paragraph

Clone Abstraction

Parameter Bindings


CCCC11.COB
CCCC13.COB
CCCC14.COB
CCCC2.COB
CCCC4.COB
CCCC5.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	23	5075	CCCC11.COB
2	23	4424	CCCC13.COB
3	23	5296	CCCC14.COB
4	23	5664	CCCC2.COB
5	23	4622	CCCC4.COB
6	23	4136	CCCC5.COB
7	23	5028	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 Abstraction

Parameter Count: 0

Parameter 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