CloneSet10


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
122910.998paragraph_list[6]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
11223156
CCCC1.COB
21223174
CCCC11.COB
31222965
CCCC12.COB
41222993
CCCC13.COB
51223514
CCCC14.COB
61223067
CCCC4.COB
71222933
CCCC5.COB
81222878
CCCC8.COB
91223117
CCCC9.COB
Clone Instance
1
Line Count
122
Source Line
3156
Source File
CCCC1.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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-PARAMETER-COLLEGES
           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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM   RUNTIME-PARAMETER-AREA
               AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM   PRT-CNTL-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   TERM-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   DISTRICT-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM   COLLEGE-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
2
Line Count
122
Source Line
3174
Source File
CCCC11.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
3
Line Count
122
Source Line
2965
Source File
CCCC12.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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-PARAMETER-COLLEGES
           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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM   RUNTIME-PARAMETER-AREA
               AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM   PRT-CNTL-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   TERM-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   DISTRICT-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM   COLLEGE-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
4
Line Count
122
Source Line
2993
Source File
CCCC13.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
5
Line Count
122
Source Line
3514
Source File
CCCC14.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
6
Line Count
122
Source Line
3067
Source File
CCCC4.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
7
Line Count
122
Source Line
2933
Source File
CCCC5.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
8
Line Count
122
Source Line
2878
Source File
CCCC8.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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-PARAMETER-COLLEGES
           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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM   RUNTIME-PARAMETER-AREA
               AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM   PRT-CNTL-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   TERM-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM   DISTRICT-ID-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM   COLLEGE-INVALID-LITERAL
                   AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone Instance
9
Line Count
122
Source Line
3117
Source File
CCCC9.COB

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO                         1.
           SEARCH TERM-IDENTIFIER-ENTRY
                   IN TERM-IDENTIFIER-TABLE
           AT END
               MOVE 1 TO TERM-ID-FLAG
           WHEN TERM-CODE
                   IN TERM-IDENTIFIER-ENTRY
                   (TERM-IDENTIFIER-INDEX)
                   IS EQUAL TO TERM-CODE
                   IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                       IN TERM-IDENTIFIER-ENTRY
                       (TERM-IDENTIFIER-INDEX) TO
                          TERM-TITLE
                       IN REPORT-TITLE-LINE-2.
      *
      *
       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).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM       RUNTIME-PARAMETER-AREA
                   AFTER ADVANCING 2 LINES.
           IF  NOT PRT-CONTROL-VALID
               WRITE PRINT-RECORD
                 FROM       PRT-CNTL-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  TERM-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       TERM-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  DISTRICT-ID-INVALID
               WRITE PRINT-RECORD
                 FROM       DISTRICT-ID-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           IF  COLLEGE-ID-INVALID
                 OR   RUNTIME-PARAMETER-TABLE
                   IS EQUAL TO SPACES
               WRITE PRINT-RECORD
                 FROM       COLLEGE-INVALID-LITERAL
                       AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO                       1.
           SEARCH DISTRICT-CODE-ENTRY
           AT END
               MOVE 1 TO DISTRICT-ID-FLAG
           WHEN DISTRICT-ID
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
                   IS EQUAL TO DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      *
       1110-VALIDATE-TERM-ID.
           SET TERM-IDENTIFIER-INDEX
             TO 1.
           SEARCH TERM-IDENTIFIER-ENTRY
                    IN TERM-IDENTIFIER-TABLE
             AT END
               MOVE 1 TO TERM-ID-FLAG
             WHEN TERM-CODE
                    IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS
                  EQUAL TO TERM-CODE
                             IN RUNTIME-PARAMETER-AREA
               MOVE TERM-TITLE
                      IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX)TO
                                                              TERM-TITLE
                                                                IN
                                                     REPORT-TITLE-LINE-2
           .
      *
      *
       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 [[#22a86060]]
             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
                                                            ).
      *
      *
       1130-KILL-PROCESS.
           MOVE 1 TO HEADER-CONTROL-FLAG.
           MOVE DETAIL-PROGRAM-NAME
                  IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                   IN HEADER-REPORT-ID.
           PERFORM 8500-PRINT-HEADERS.
           WRITE PRINT-RECORD
             FROM RUNTIME-PARAMETER-AREA
             AFTER ADVANCING 2 LINES.
           IF NOT PRT-CONTROL-VALID
             WRITE PRINT-RECORD
               FROM PRT-CNTL-INVALID-LITERAL
               AFTER ADVANCING 1 LINE.
           IF TERM-ID-INVALID
             WRITE PRINT-RECORD
               FROM TERM-ID-INVALID-LITERAL
               AFTER ADVANCING 1 LINE.
           IF DISTRICT-ID-INVALID
             WRITE PRINT-RECORD
               FROM DISTRICT-ID-INVALID-LITERAL
               AFTER ADVANCING 1 LINE.
           IF COLLEGE-ID-INVALID
                OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES
             WRITE PRINT-RECORD
               FROM COLLEGE-INVALID-LITERAL
               AFTER ADVANCING 1 LINE.
           CLOSE DATAEDIT-ERROR-REPORT.
           STOP RUN.
      *
      *
       1140-VALIDATE-DISTRICT-ID.
           SET DISTRICT-CODE-INDEX
             TO 1.
           SEARCH DISTRICT-CODE-ENTRY
             AT END
               MOVE 1 TO DISTRICT-ID-FLAG
             WHEN DISTRICT-ID
                    IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS
                  EQUAL TO DISTRICT-ID
                             IN RUNTIME-PARAMETER-AREA
               NEXT SENTENCE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a86060]]
       RUNTIME-PARAMETER-COLLEGES 
12[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY 
13[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY 
14[[#22a86060]]
       RUNTIME-PARAMETER-COLLEGES 
15[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY 
16[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY 
17[[#22a86060]]
       RUNTIME-PARAMETER-COLLEGES 
18[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY 
19[[#22a86060]]
       RUNTIME-COLLEGE-ENTRY