CloneSet39


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
26	6	0	1.000	paragraph

Clone Abstraction

Parameter Bindings


CCCC11.COB
CCCC13.COB
CCCC14.COB
CCCC4.COB
CCCC5.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	26	3133	CCCC11.COB
2	26	2965	CCCC13.COB
3	26	3486	CCCC14.COB
4	26	3039	CCCC4.COB
5	26	2905	CCCC5.COB
6	26	3089	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 Abstraction

Parameter Count: 0

Parameter 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