CloneSet136


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
21240.959paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1214124
CCCC9.COB
2214147
CCCC9.COB
Clone Instance
1
Line Count
21
Source Line
4124
Source File
CCCC9.COB

      ******************************************************************
      *   END OF TEMPORARY REASONABLENESS CHECK                        *
      ******************************************************************
       2463-EOPS-TERM-REASON.
           IF EOPS-TERM-OF-ACCEPTANCE
              IN STUDENT-EOPS-RECORD
              IS EQUAL TO 'YYY'
           NEXT SENTENCE
           ELSE
           SUBTRACT 30
             FROM           TERM-ID IN STUDENT-EOPS-RECORD
             GIVING   HOLD-CALC-TERM
           IF E-TERM-OF-ACCEPTANCE
               IN STUDENT-EOPS-RECORD
               IS LESS THAN HOLD-CALC-TERM
                OR GREATER THAN TERM-ID
                   IN STUDENT-EOPS-RECORD
            ADD 1
              TO     COLLEGE-ELEMENT-TOTAL
                IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                (7 3)
             MOVE 1 TO REASONABLE-FLAG
             MOVE REASONABLE-LITERAL TO
                    VALIDATION-FLAG
                 IN EDIT-ERROR-TABLE-COLUMNS
                 (7 EDIT-ERROR-COLUMN-INDEX).


Clone Instance
2
Line Count
21
Source Line
4147
Source File
CCCC9.COB

      *
      *
       2464-CARE-TERM-REASON.
           IF CARE-TERM-OF-ACCEPTANCE
              IN STUDENT-EOPS-RECORD
              IS EQUAL TO 'YYY'
           NEXT SENTENCE
           ELSE
           SUBTRACT 30
             FROM           TERM-ID IN STUDENT-EOPS-RECORD
             GIVING   HOLD-CALC-TERM
           IF C-TERM-OF-ACCEPTANCE
               IN STUDENT-EOPS-RECORD
               IS LESS THAN HOLD-CALC-TERM
                OR GREATER THAN TERM-ID
                   IN STUDENT-EOPS-RECORD
            ADD 1
              TO     COLLEGE-ELEMENT-TOTAL
                IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                (11 3)
            MOVE 1 TO REASONABLE-FLAG
            MOVE REASONABLE-LITERAL TO
                   VALIDATION-FLAG
                IN EDIT-ERROR-TABLE-COLUMNS
                (11 EDIT-ERROR-COLUMN-INDEX).


Clone AbstractionParameter Count: 4Parameter Bindings

        [[#24ba6180]].
           IF [[#24ba60e0]]
               IN STUDENT-EOPS-RECORD IS EQUAL TO 'YYY'
             NEXT SENTENCE
           ELSE
             SUBTRACT 30
               FROM TERM-ID
                      IN STUDENT-EOPS-RECORD
               GIVING HOLD-CALC-TERM
             IF [[#24ba6060]]
                 IN STUDENT-EOPS-RECORD IS LESS THAN HOLD-CALC-TERM
                 OR GREATER THAN TERM-ID
                                   IN STUDENT-EOPS-RECORD
               ADD 1
                 TO COLLEGE-ELEMENT-TOTAL
                      IN COLLEGE-ELEMENT-TOTALS-COLUMNS ( [[#24ba5f60]]
                                                         3)
               MOVE 1 TO REASONABLE-FLAG
               MOVE REASONABLE-LITERAL TO VALIDATION-FLAG
                                            IN EDIT-ERROR-TABLE-COLUMNS(
                                                           [[#24ba5f60]]
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                       )
           .
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24ba6180]]
      *
      *
       2464-CARE-TERM-REASON 
12[[#24ba6180]]
      ******************************************************************
      *   END OF TEMPORARY REASONABLENESS CHECK                        *
      ******************************************************************
       2463-EOPS-TERM-REASON 
21[[#24ba60e0]]
       CARE-TERM-OF-ACCEPTANCE 
22[[#24ba60e0]]
       EOPS-TERM-OF-ACCEPTANCE 
31[[#24ba6060]]
       C-TERM-OF-ACCEPTANCE 
32[[#24ba6060]]
       E-TERM-OF-ACCEPTANCE 
41[[#24ba5f60]]
       11 
42[[#24ba5f60]]
       7