CloneSet174


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
18220.963sentence_list[6]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1184441
CCCC15.COB
2186820
CCCC15.COB
Clone Instance
1
Line Count
18
Source Line
4441
Source File
CCCC15.COB

           MOVE ASSIGN-ERROR-LITERAL-AREA
                (ASSIGN-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL.
           MOVE ASSIGN-COUNT (ASSIGN-COUNT-ROW-INDEX  1) TO
                  ELEMENT-VALIDITY.
           MOVE NOT-APP-LITERAL TO
                  ELEMENT-INTEGRITY-RED.
           MOVE NOT-APP-LITERAL TO
                  ELEMENT-REASON-RED.
      *    IF ASSIGN-COUNT-ROW-INDEX < 7
           IF ASSIGN-COUNT-ROW-INDEX LESS 40
               MOVE NOT-APP-LITERAL TO
                          ELEMENT-GRP3-RED.
      *    ELSE
      *        MOVE ASSIGN-COUNT (ASSIGN-COUNT-ROW-INDEX, 4)
      *                TO GRP3-COUNT.
           WRITE PRINT-RECORD-2
             FROM                    TOTAL-ELEMENT-LINE
                   AFTER ADVANCING 1 LINE.


Clone Instance
2
Line Count
18
Source Line
6820
Source File
CCCC15.COB

           MOVE ASSIGN-ERROR-LITERAL-AREA
                (ASSIGN-ERROR-LITERAL-INDEX) TO
                  ELEMENT-LITERAL.
           MOVE DISTRICT-ASSIGN (DISTRICT-ASSIGN-ROW-INDEX  1) TO
                  ELEMENT-VALIDITY.
           MOVE NOT-APP-LITERAL TO
                  ELEMENT-INTEGRITY-RED.
           MOVE NOT-APP-LITERAL TO
                  ELEMENT-REASON-RED.
      *    IF DISTRICT-ASSIGN-ROW-INDEX < 7
           IF DISTRICT-ASSIGN-ROW-INDEX LESS 40
               MOVE NOT-APP-LITERAL TO
                          ELEMENT-GRP3-RED.
      *    ELSE
      *        MOVE DISTRICT-ASSIGN (DISTRICT-ASSIGN-ROW-INDEX, 4)
      *                TO ELEMENT-GRP3.
           WRITE PRINT-RECORD-2
             FROM                    TOTAL-ELEMENT-LINE
                   AFTER ADVANCING 1 LINE.


Clone AbstractionParameter Count: 2Parameter Bindings

           MOVE ASSIGN-ERROR-LITERAL-AREA (ASSIGN-ERROR-LITERAL-INDEX)TO
                                                         ELEMENT-LITERAL
           .
           MOVE [[#24bd1f00]]( [[#24bd6c80]]
                              1) TO ELEMENT-VALIDITY.
           MOVE NOT-APP-LITERAL TO ELEMENT-INTEGRITY-RED.
           MOVE NOT-APP-LITERAL TO ELEMENT-REASON-RED.
      *    IF DISTRICT-ASSIGN-ROW-INDEX < 7
      *    IF ASSIGN-COUNT-ROW-INDEX < 7
           IF [[#24bd6c80]]LESS 40
             MOVE NOT-APP-LITERAL TO ELEMENT-GRP3-RED.
      *    ELSE
      *        MOVE DISTRICT-ASSIGN (DISTRICT-ASSIGN-ROW-INDEX, 4)
      *                TO ELEMENT-GRP3.
      *        MOVE ASSIGN-COUNT (ASSIGN-COUNT-ROW-INDEX, 4)
      *                TO GRP3-COUNT.
           WRITE PRINT-RECORD-2
             FROM TOTAL-ELEMENT-LINE
             AFTER ADVANCING 1 LINE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24bd1f00]]
       DISTRICT-ASSIGN 
12[[#24bd1f00]]
       ASSIGN-COUNT 
21[[#24bd6c80]]
       DISTRICT-ASSIGN-ROW-INDEX 
22[[#24bd6c80]]
       ASSIGN-COUNT-ROW-INDEX