CloneSet116


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
24301.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1244866
CCCC1.COB
2243828
CCCC12.COB
3243663
CCCC8.COB
Clone Instance
1
Line Count
24
Source Line
4866
Source File
CCCC1.COB

      *    MOVE SPACES TO PRINT-RECORD-2.
      *    MOVE CLG-INTEGRITY-ERR-17-TOTAL TO INTEGRITY-TOTAL.
      *    MOVE INTEGRITY-ERR-17-DESC TO INTEGRITY-DESCRIPTION.
      *    WRITE PRINT-RECORD-2
      *            FROM INTEGRITY-TOTAL-DETAIL-LINE
      *            AFTER ADVANCING 2 LINES.
      *
      *
       8230-PRINT-COLLEGE-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-INDEX) TO
                      TOTAL-DESCRIPTION
                   IN TOTAL-DETAIL-LINE.
           MOVE COLLEGE-TOTAL
                   IN TOTAL-COLLEGE-ENTRY
                   (TOTAL-COLLEGE-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       TOTAL-COLLEGE-INDEX.
           SEARCH TOTAL-COLLEGE-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO TOTAL-COLLEGE-INDEX
               NEXT SENTENCE.
           SET TOTAL-DESCRIPTION-INDEX
             TO       TOTAL-COLLEGE-INDEX.


Clone Instance
2
Line Count
24
Source Line
3828
Source File
CCCC12.COB

      *
      *
       8230-PRINT-COLLEGE-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-INDEX) TO
                      TOTAL-DESCRIPTION
                   IN TOTAL-DETAIL-LINE.
           MOVE COLLEGE-TOTAL
                   IN TOTAL-COLLEGE-ENTRY
                   (TOTAL-COLLEGE-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       TOTAL-COLLEGE-INDEX.
           SEARCH TOTAL-COLLEGE-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO TOTAL-COLLEGE-INDEX
               NEXT SENTENCE.
           SET TOTAL-DESCRIPTION-INDEX
             TO       TOTAL-COLLEGE-INDEX.


Clone Instance
3
Line Count
24
Source Line
3663
Source File
CCCC8.COB

      *
      *
       8230-PRINT-COLLEGE-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                   IN TOTAL-DESCRIPTION-ENTRY
                   (TOTAL-DESCRIPTION-INDEX) TO
                      TOTAL-DESCRIPTION
                   IN TOTAL-DETAIL-LINE.
           MOVE COLLEGE-TOTAL
                   IN TOTAL-COLLEGE-ENTRY
                   (TOTAL-COLLEGE-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       TOTAL-COLLEGE-INDEX.
           SEARCH TOTAL-COLLEGE-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO TOTAL-COLLEGE-INDEX
               NEXT SENTENCE.
           SET TOTAL-DESCRIPTION-INDEX
             TO       TOTAL-COLLEGE-INDEX.


Clone AbstractionParameter Count: 0Parameter Bindings

      *    MOVE SPACES TO PRINT-RECORD-2.
      *    MOVE CLG-INTEGRITY-ERR-17-TOTAL TO INTEGRITY-TOTAL.
      *    MOVE INTEGRITY-ERR-17-DESC TO INTEGRITY-DESCRIPTION.
      *    WRITE PRINT-RECORD-2
      *            FROM INTEGRITY-TOTAL-DETAIL-LINE
      *            AFTER ADVANCING 2 LINES.
      *
      *
       8230-PRINT-COLLEGE-SUM-TOTALS.
           MOVE TOTAL-DESCRIPTION
                  IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX)TO
                                                       TOTAL-DESCRIPTION
                                                         IN
                                                       TOTAL-DETAIL-LINE
           .
           MOVE COLLEGE-TOTAL
                  IN TOTAL-COLLEGE-ENTRY (TOTAL-COLLEGE-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 TOTAL-COLLEGE-INDEX.
           SEARCH TOTAL-COLLEGE-ENTRY
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  TOTAL-COLLEGE-INDEX
               NEXT SENTENCE.
           SET TOTAL-DESCRIPTION-INDEX
             TO TOTAL-COLLEGE-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None