CloneSet64


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
59201.000paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1593384
CCCC2.COB
2593088
CCCC6.COB
Clone Instance
1
Line Count
59
Source Line
3384
Source File
CCCC2.COB

      *
      *
       1120-VALIDATE-COLLEGE-PARAMS.
           IF  COLLEGE-ID
                   IN PARAMETER-COLLEGES
                   (PARAMETER-COLLEGE-INDEX)
                   IS EQUAL TO SPACES
               NEXT SENTENCE
           ELSE
               PERFORM 1121-SEARCH-COLLEGE-TABLE
           IF  COLLEGE-NOT-FOUND
               MOVE 1 TO COLLEGE-ID-FLAG
               MOVE 1 TO TABLE-SEARCH-FLAG
           ELSE
               PERFORM 1122-FILL-WORK-TABLE.
           SET ORIGINAL-INDEX-VALUE
             TO   PARAMETER-COLLEGE-INDEX.
           SEARCH PARAMETER-COLLEGES
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX
               NEXT SENTENCE.
      *
      *
       1121-SEARCH-COLLEGE-TABLE.
           SET COLLEGE-CODE-INDEX
             TO                      1.
           SEARCH COLLEGE-CODE-ENTRY
                   IN COLLEGE-CODES-TABLE
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                    IN COLLEGE-CODE-ENTRY
                    (COLLEGE-CODE-INDEX)
                    IS EQUAL TO COLLEGE-ID
                    IN PARAMETER-COLLEGES
                    (PARAMETER-COLLEGE-INDEX)
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       1122-FILL-WORK-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-ID-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO SPACES
               MOVE COLLEGE-ID
                       IN PARAMETER-COLLEGES
                       (PARAMETER-COLLEGE-INDEX) TO
                          COLLEGE-ID
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX)
               MOVE COLLEGE-NAME
                       IN COLLEGE-CODE-ENTRY
                       (COLLEGE-CODE-INDEX) TO
                          COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX).


Clone Instance
2
Line Count
59
Source Line
3088
Source File
CCCC6.COB

      *
      *
       1120-VALIDATE-COLLEGE-PARAMS.
           IF  COLLEGE-ID
                   IN PARAMETER-COLLEGES
                   (PARAMETER-COLLEGE-INDEX)
                   IS EQUAL TO SPACES
               NEXT SENTENCE
           ELSE
               PERFORM 1121-SEARCH-COLLEGE-TABLE
           IF  COLLEGE-NOT-FOUND
               MOVE 1 TO COLLEGE-ID-FLAG
               MOVE 1 TO TABLE-SEARCH-FLAG
           ELSE
               PERFORM 1122-FILL-WORK-TABLE.
           SET ORIGINAL-INDEX-VALUE
             TO   PARAMETER-COLLEGE-INDEX.
           SEARCH PARAMETER-COLLEGES
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX
               NEXT SENTENCE.
      *
      *
       1121-SEARCH-COLLEGE-TABLE.
           SET COLLEGE-CODE-INDEX
             TO                      1.
           SEARCH COLLEGE-CODE-ENTRY
                   IN COLLEGE-CODES-TABLE
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                    IN COLLEGE-CODE-ENTRY
                    (COLLEGE-CODE-INDEX)
                    IS EQUAL TO COLLEGE-ID
                    IN PARAMETER-COLLEGES
                    (PARAMETER-COLLEGE-INDEX)
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       1122-FILL-WORK-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-ID-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO SPACES
               MOVE COLLEGE-ID
                       IN PARAMETER-COLLEGES
                       (PARAMETER-COLLEGE-INDEX) TO
                          COLLEGE-ID
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX)
               MOVE COLLEGE-NAME
                       IN COLLEGE-CODE-ENTRY
                       (COLLEGE-CODE-INDEX) TO
                          COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX).


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       1120-VALIDATE-COLLEGE-PARAMS.
           IF COLLEGE-ID
                IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL
                                                                   TO
              SPACES
             NEXT SENTENCE
           ELSE
             PERFORM 1121-SEARCH-COLLEGE-TABLE
             IF COLLEGE-NOT-FOUND
               MOVE 1 TO COLLEGE-ID-FLAG
               MOVE 1 TO TABLE-SEARCH-FLAG
             ELSE
               PERFORM 1122-FILL-WORK-TABLE.
           SET ORIGINAL-INDEX-VALUE
             TO PARAMETER-COLLEGE-INDEX.
           SEARCH PARAMETER-COLLEGES
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  PARAMETER-COLLEGE-INDEX
               NEXT SENTENCE.
      *
      *
       1121-SEARCH-COLLEGE-TABLE.
           SET COLLEGE-CODE-INDEX
             TO 1.
           SEARCH COLLEGE-CODE-ENTRY
                    IN COLLEGE-CODES-TABLE
             AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
             WHEN COLLEGE-ID
                    IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL
                                                                  TO
                                                              COLLEGE-ID
                                                                IN
                                                      PARAMETER-COLLEGES
                                                              (
                                                 PARAMETER-COLLEGE-INDEX
                                                              )
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       1122-FILL-WORK-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO 1.
           SEARCH RUNTIME-COLLEGE-ENTRY
             AT END
               MOVE 1 TO COLLEGE-ID-FLAG
             WHEN COLLEGE-ID
                    IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX)
                  IS EQUAL TO SPACES
               MOVE COLLEGE-ID
                      IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO
                                                              COLLEGE-ID
                                                                IN
                                                 RUNTIME-PARAMETER-TABLE
                                                              (
                                                 RUNTIME-PARAMETER-INDEX
                                                              )
               MOVE COLLEGE-NAME
                      IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO
                                                            COLLEGE-NAME
                                                              IN
                                                 RUNTIME-PARAMETER-TABLE
                                                            (
                                                 RUNTIME-PARAMETER-INDEX
                                                            ).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None