CloneSet83


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
31240.981paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1314756
CCCC7.COB
2314789
CCCC7.COB
Clone Instance
1
Line Count
31
Source Line
4756
Source File
CCCC7.COB

      *
      *
       2560-COMPARE-QUARTER-LIMITS.
           IF SB16-VALID
               IF STUDENT-UNITS-EARNED-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN QUARTER-LIMIT-EARNED
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (20  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (20  3).
           IF SB18-VALID
               IF STUDENT-UNITS-ATTEMPTED-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN QUARTER-LIMIT-ATTEMPTED
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (22  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (22  3).
           IF SB20-VALID
               IF STUDENT-GRADE-POINTS-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN QUARTER-LIMIT-GRADE-POINTS
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (24  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (24  3).


Clone Instance
2
Line Count
31
Source Line
4789
Source File
CCCC7.COB

      *
      *
       2570-COMPARE-SEMESTER-LIMITS.
           IF SB16-VALID
               IF STUDENT-UNITS-EARNED-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN SEMESTER-LIMIT-EARNED
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (20  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (20  3).
           IF SB18-VALID
               IF STUDENT-UNITS-ATTEMPTED-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN SEMESTER-LIMIT-ATTEMPTED
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (22  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (22  3).
           IF SB20-VALID
               IF STUDENT-GRADE-POINTS-LOCAL
                       IN STUDENT-BASIC-DATA-RECORD
                       IS GREATER THAN SEMESTER-LIMIT-GRADE-POINTS
                       IN LITERALS-AREA
                   MOVE REASONABLE-LITERAL TO
                          DATA-ELEMENT-FLAG
                           (24  EDIT-COLUMN-INDEX)
                       REASONABLE-FLAG
                   ADD 1
                     TO     ERROR-COUNT (24  3).


Clone AbstractionParameter Count: 4Parameter Bindings

        [[#24b559a0]].
           IF SB16-VALID
             IF STUDENT-UNITS-EARNED-LOCAL
                  IN STUDENT-BASIC-DATA-RECORD IS GREATER THAN
                                                           [[#24b55940]]
                                                            IN
                                                           LITERALS-AREA
               MOVE REASONABLE-LITERAL TO DATA-ELEMENT-FLAG (20
                                                       EDIT-COLUMN-INDEX
                                                            )
                                          REASONABLE-FLAG
               ADD 1
                 TO ERROR-COUNT (20
                                 3).
           IF SB18-VALID
             IF STUDENT-UNITS-ATTEMPTED-LOCAL
                  IN STUDENT-BASIC-DATA-RECORD IS GREATER THAN
                                                           [[#24b559c0]]
                                                            IN
                                                           LITERALS-AREA
               MOVE REASONABLE-LITERAL TO DATA-ELEMENT-FLAG (22
                                                       EDIT-COLUMN-INDEX
                                                            )
                                          REASONABLE-FLAG
               ADD 1
                 TO ERROR-COUNT (22
                                 3).
           IF SB20-VALID
             IF STUDENT-GRADE-POINTS-LOCAL
                  IN STUDENT-BASIC-DATA-RECORD IS GREATER THAN
                                                           [[#24b55900]]
                                                            IN
                                                           LITERALS-AREA
               MOVE REASONABLE-LITERAL TO DATA-ELEMENT-FLAG (24
                                                       EDIT-COLUMN-INDEX
                                                            )
                                          REASONABLE-FLAG
               ADD 1
                 TO ERROR-COUNT (24
                                 3).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b559a0]]
      *
      *
       2560-COMPARE-QUARTER-LIMITS 
12[[#24b559a0]]
      *
      *
       2570-COMPARE-SEMESTER-LIMITS 
21[[#24b55940]]
       QUARTER-LIMIT-EARNED 
22[[#24b55940]]
       SEMESTER-LIMIT-EARNED 
31[[#24b559c0]]
       QUARTER-LIMIT-ATTEMPTED 
32[[#24b559c0]]
       SEMESTER-LIMIT-ATTEMPTED 
41[[#24b55900]]
       QUARTER-LIMIT-GRADE-POINTS 
42[[#24b55900]]
       SEMESTER-LIMIT-GRADE-POINTS