CloneSet129


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
23250.963sentence_list[19]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1233801
CCCC3.COB
2235992
CCCC7.COB
Clone Instance
1
Line Count
23
Source Line
3801
Source File
CCCC3.COB

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM   DISTRICT-TOTAL-HEADING
               AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
               AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO                            1.
           PERFORM 9200-PRINT-TOTAL-LINES
                   UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE EMPLOYEE-DATA-FILE.
           CLOSE EDITED-EMPLOYEE-DATA-FILE.
           CLOSE EDIT-ERROR-REPORT.
           CLOSE INTEGRITY-ERROR-SUMMARY.
           CLOSE REPORT-TOTALS-FILE.


Clone Instance
2
Line Count
23
Source Line
5992
Source File
CCCC7.COB

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM   DISTRICT-TOTAL-HEADING
               AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
               AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO                            1.
           PERFORM 9200-PRINT-TOTAL-LINES
                   UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE STUDENT-BASIC-DATA-FILE.
           CLOSE TERM-STUDENT-DATA-FILE.
           CLOSE BASE-STUDENT-DATA-FILE.
           CLOSE EDIT-ERROR-REPORT.
           CLOSE INTEGRITY-ERROR-SUMMARY.


Clone AbstractionParameter Count: 5Parameter Bindings

           PERFORM 9100-PRINT-DISTRICT-TOTAL-PAGE.
           MOVE REPORT-SUM2 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           PERFORM 9500-WRITE-INTEGRITY-HEADERS.
           PERFORM 9600-WRITE-INTEGRITY-COUNTS.
           MOVE REPORT-SUM3 TO PROGRAM-NAME.
           PERFORM 8600-REPORT-HEADINGS.
           WRITE PRINT-RECORD-2
             FROM DISTRICT-TOTAL-HEADING
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           WRITE PRINT-RECORD-2
             AFTER ADVANCING 1 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO 1.
           SET TOTAL-DESCRIPTIONS-INDEX
             TO 1.
           PERFORM 9200-PRINT-TOTAL-LINES
             UNTIL TABLE-SEARCH-COMPLETE.
           CLOSE [[#24b9d200]].
           CLOSE [[#24b9d540]].
           CLOSE [[#24b9d2c0]].
           CLOSE [[#24b9c940]].
           CLOSE [[#24b9cda0]].
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b9d200]]
       EMPLOYEE-DATA-FILE 
12[[#24b9d200]]
       STUDENT-BASIC-DATA-FILE 
21[[#24b9d540]]
       EDITED-EMPLOYEE-DATA-FILE 
22[[#24b9d540]]
       TERM-STUDENT-DATA-FILE 
31[[#24b9d2c0]]
       EDIT-ERROR-REPORT 
32[[#24b9d2c0]]
       BASE-STUDENT-DATA-FILE 
41[[#24b9c940]]
       INTEGRITY-ERROR-SUMMARY 
42[[#24b9c940]]
       EDIT-ERROR-REPORT 
51[[#24b9cda0]]
       REPORT-TOTALS-FILE 
52[[#24b9cda0]]
       INTEGRITY-ERROR-SUMMARY