CloneSet92


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
26220.989paragraph_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1264005
CCCC3.COB
2266195
CCCC7.COB
Clone Instance
1
Line Count
26
Source Line
4005
Source File
CCCC3.COB

      *
      *
       9700-OUTPUT-REPORT-TOTALS.
           MOVE HOLD-DISTRICT-ID TO
                  REPORT-CODE1  REPORT-CODE2  REPORT-CODE3.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           SET DISTRICT-COUNT-ROW-INDEX
             TO                            1.
           PERFORM 9710-OUTPUT-TOTALS1
               UNTIL EDIT-ERROR-LITERAL-INDEX GREATER 17.
           PERFORM 9720-OUTPUT-TOTALS2.
           PERFORM 9730-OUTPUT-TOTALS3.
      *
      *
       9710-OUTPUT-TOTALS1.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO
                      DED-NUMBER.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  1) TO
                      EXCEPT-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  2) TO
                      UNKNOWN-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  3) TO
                      REASON-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  4) TO
                      GRP3-COUNT.
           WRITE REPORT-TOTALS-RECORD1.
           SET EDIT-ERROR-LITERAL-INDEX UP
             BY                               1.
           SET DISTRICT-COUNT-ROW-INDEX UP
             BY                               1.


Clone Instance
2
Line Count
26
Source Line
6195
Source File
CCCC7.COB

      *
      *
       9700-OUTPUT-REPORT-TOTALS.
           MOVE CURRENT-COLLEGE-ID TO
                  REPORT-CODE1  REPORT-CODE2  REPORT-CODE3.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           SET DISTRICT-COUNT-ROW-INDEX
             TO                            1.
           PERFORM 9710-OUTPUT-TOTALS1
               UNTIL EDIT-ERROR-LITERAL-INDEX GREATER 30.
           PERFORM 9720-OUTPUT-TOTALS2.
           PERFORM 9730-OUTPUT-TOTALS3.
      *
      *
       9710-OUTPUT-TOTALS1.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO
                      DED-NUMBER.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  1) TO
                      EXCEPT-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  2) TO
                      UNKNOWN-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  3) TO
                      REASON-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX  4) TO
                      GRP3-COUNT.
           WRITE REPORT-TOTALS-RECORD1.
           SET EDIT-ERROR-LITERAL-INDEX UP
             BY                               1.
           SET DISTRICT-COUNT-ROW-INDEX UP
             BY                               1.


Clone AbstractionParameter Count: 2Parameter Bindings

      *
      *
       9700-OUTPUT-REPORT-TOTALS.
           MOVE [[#24b63fe0]]TO REPORT-CODE1
                                REPORT-CODE2
                                REPORT-CODE3.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           SET DISTRICT-COUNT-ROW-INDEX
             TO 1.
           PERFORM 9710-OUTPUT-TOTALS1
             UNTIL EDIT-ERROR-LITERAL-INDEX GREATER [[#24b63f00]].
           PERFORM 9720-OUTPUT-TOTALS2.
           PERFORM 9730-OUTPUT-TOTALS3.
      *
      *
       9710-OUTPUT-TOTALS1.
           MOVE REPORT-SUM1 TO TOTALS-ID1.
           MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO DED-NUMBER.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX
                                1) TO EXCEPT-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX
                                2) TO UNKNOWN-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX
                                3) TO REASON-COUNT.
           MOVE DISTRICT-COUNT (DISTRICT-COUNT-ROW-INDEX
                                4) TO GRP3-COUNT.
           WRITE REPORT-TOTALS-RECORD1.
           SET EDIT-ERROR-LITERAL-INDEX UP
             BY 1.
           SET DISTRICT-COUNT-ROW-INDEX UP
             BY 1.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b63fe0]]
       CURRENT-COLLEGE-ID 
12[[#24b63fe0]]
       HOLD-DISTRICT-ID 
21[[#24b63f00]]
       30 
22[[#24b63f00]]
       17