CloneSet39


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
26601.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1263133
CCCC11.COB
2262965
CCCC13.COB
3263486
CCCC14.COB
4263039
CCCC4.COB
5262905
CCCC5.COB
6263089
CCCC9.COB
Clone Instance
1
Line Count
26
Source Line
3133
Source File
CCCC11.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone Instance
2
Line Count
26
Source Line
2965
Source File
CCCC13.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone Instance
3
Line Count
26
Source Line
3486
Source File
CCCC14.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone Instance
4
Line Count
26
Source Line
3039
Source File
CCCC4.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone Instance
5
Line Count
26
Source Line
2905
Source File
CCCC5.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone Instance
6
Line Count
26
Source Line
3089
Source File
CCCC9.COB

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF  TERM-CHECK IS EQUAL TO ZEROS
                 OR   TERM-CHECK IS NOT NUMERIC
               MOVE 1 TO TERM-ID-FLAG
           ELSE
               PERFORM 1110-VALIDATE-TERM-ID.
           IF  DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS EQUAL TO ZEROS
                 OR   DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
                   IS NOT NUMERIC
               MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
               PERFORM 1140-VALIDATE-DISTRICT-ID.
               MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
               SET PARAMETER-COLLEGE-INDEX
                 TO                           1
               PERFORM 1120-VALIDATE-COLLEGE-PARAMS
                       UNTIL TABLE-SEARCH-COMPLETED.
           IF  COLLEGE-ID-INVALID
                 OR   TERM-ID-INVALID
                 OR   DISTRICT-ID-INVALID
                 OR   (NOT PRT-CONTROL-VALID)
                 OR   RUNTIME-PARAMETER-TABLE
                           IS EQUAL TO SPACES
               PERFORM 1130-KILL-PROCESS.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       1100-VALIDATE-PARAMETER-INPUT.
           IF TERM-CHECK IS EQUAL TO ZEROS
                OR TERM-CHECK IS NOT NUMERIC
             MOVE 1 TO TERM-ID-FLAG
           ELSE
             PERFORM 1110-VALIDATE-TERM-ID.
           IF DISTRICT-ID
                IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS
                OR DISTRICT-ID
                     IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC
             MOVE 1 TO DISTRICT-ID-FLAG
           ELSE
             PERFORM 1140-VALIDATE-DISTRICT-ID.
           MOVE SPACES TO RUNTIME-PARAMETER-TABLE.
           SET PARAMETER-COLLEGE-INDEX
             TO 1
           PERFORM 1120-VALIDATE-COLLEGE-PARAMS
             UNTIL TABLE-SEARCH-COMPLETED.
           IF COLLEGE-ID-INVALID
                OR TERM-ID-INVALID
                OR DISTRICT-ID-INVALID
                OR (NOT PRT-CONTROL-VALID)
                OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES
             PERFORM 1130-KILL-PROCESS.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None