CloneSet31


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
38460.975sentence_list[26]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1384761
CCCC1.COB
2385501
CCCC1.COB
3385256
CCCC14.COB
4384988
CCCC9.COB
Clone Instance
1
Line Count
38
Source Line
4761
Source File
CCCC1.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE CLG-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.


Clone Instance
2
Line Count
38
Source Line
5501
Source File
CCCC1.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.


Clone Instance
3
Line Count
38
Source Line
5256
Source File
CCCC14.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.


Clone Instance
4
Line Count
38
Source Line
4988
Source File
CCCC9.COB

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-1-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-2-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-3-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-4-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-5-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE DIST-INTEGRITY-ERR-6-TOTAL TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM       INTEGRITY-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.


Clone AbstractionParameter Count: 6Parameter Bindings

           PERFORM 85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a47500]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-1-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a47860]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-2-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a476c0]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-3-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a48e40]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-4-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a49000]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-5-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE [[#22a48600]]TO INTEGRITY-TOTAL.
           MOVE INTEGRITY-ERR-6-DESC TO INTEGRITY-DESCRIPTION.
           WRITE PRINT-RECORD-2
             FROM INTEGRITY-TOTAL-DETAIL-LINE
             AFTER ADVANCING 2 LINES.
           MOVE SPACES TO PRINT-RECORD-2.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a47500]]
       DIST-INTEGRITY-ERR-1-TOTAL 
12[[#22a47500]]
       CLG-INTEGRITY-ERR-1-TOTAL 
13[[#22a47500]]
       DIST-INTEGRITY-ERR-1-TOTAL 
14[[#22a47500]]
       DIST-INTEGRITY-ERR-1-TOTAL 
21[[#22a47860]]
       DIST-INTEGRITY-ERR-2-TOTAL 
22[[#22a47860]]
       CLG-INTEGRITY-ERR-2-TOTAL 
23[[#22a47860]]
       DIST-INTEGRITY-ERR-2-TOTAL 
24[[#22a47860]]
       DIST-INTEGRITY-ERR-2-TOTAL 
31[[#22a476c0]]
       DIST-INTEGRITY-ERR-3-TOTAL 
32[[#22a476c0]]
       CLG-INTEGRITY-ERR-3-TOTAL 
33[[#22a476c0]]
       DIST-INTEGRITY-ERR-3-TOTAL 
34[[#22a476c0]]
       DIST-INTEGRITY-ERR-3-TOTAL 
41[[#22a48e40]]
       DIST-INTEGRITY-ERR-4-TOTAL 
42[[#22a48e40]]
       CLG-INTEGRITY-ERR-4-TOTAL 
43[[#22a48e40]]
       DIST-INTEGRITY-ERR-4-TOTAL 
44[[#22a48e40]]
       DIST-INTEGRITY-ERR-4-TOTAL 
51[[#22a49000]]
       DIST-INTEGRITY-ERR-5-TOTAL 
52[[#22a49000]]
       CLG-INTEGRITY-ERR-5-TOTAL 
53[[#22a49000]]
       DIST-INTEGRITY-ERR-5-TOTAL 
54[[#22a49000]]
       DIST-INTEGRITY-ERR-5-TOTAL 
61[[#22a48600]]
       DIST-INTEGRITY-ERR-6-TOTAL 
62[[#22a48600]]
       CLG-INTEGRITY-ERR-6-TOTAL 
63[[#22a48600]]
       DIST-INTEGRITY-ERR-6-TOTAL 
64[[#22a48600]]
       DIST-INTEGRITY-ERR-6-TOTAL