CloneSet17


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
108540.992paragraph_list[5]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
11083403
CCCC11.COB
21083220
CCCC13.COB
31083302
CCCC4.COB
41083160
CCCC5.COB
51083343
CCCC9.COB
Clone Instance
1
Line Count
108
Source Line
3403
Source File
CCCC11.COB

      *
      *
       2110-SEARCH-PARAMETER-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO COLLEGE-ID
                   IN DATA-VALIDATION-WORK-FIELDS
               MOVE COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX) TO
                          COLLEGE-NAME
                       IN REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 2 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                   IN STUDENT-MATRICULATION-RECORD TO
                      HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                   IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone Instance
2
Line Count
108
Source Line
3220
Source File
CCCC13.COB

      *
      *
       2110-SEARCH-PARAMETER-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO COLLEGE-ID
                   IN SV-RECORD
               MOVE COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX) TO
                          COLLEGE-NAME
                       IN REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                   IN SV-RECORD TO
                      HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                   IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone Instance
3
Line Count
108
Source Line
3302
Source File
CCCC4.COB

      *
      *
       2112-COLLEGE-SETUP.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO COLLEGE-ID
                   IN EJ-RECORD
               MOVE COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX) TO
                          COLLEGE-NAME
                       IN REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                   IN EJ-RECORD TO
                      HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                   IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone Instance
4
Line Count
108
Source Line
3160
Source File
CCCC5.COB

      *
      *
       2110-SEARCH-PARAMETER-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO COLLEGE-ID
                   IN PBS-RECORD
               MOVE COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX) TO
                          COLLEGE-NAME
                       IN REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 4 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                   IN PBS-RECORD TO
                      HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                   IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone Instance
5
Line Count
108
Source Line
3343
Source File
CCCC9.COB

      *
      *
       2110-SEARCH-PARAMETER-TABLE.
           SET RUNTIME-PARAMETER-INDEX
             TO                           1.
           SEARCH RUNTIME-COLLEGE-ENTRY
           AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
           WHEN COLLEGE-ID
                   IN RUNTIME-PARAMETER-TABLE
                   (RUNTIME-PARAMETER-INDEX)
                   IS EQUAL TO COLLEGE-ID
                   IN STUDENT-EOPS-RECORD
               MOVE COLLEGE-NAME
                       IN RUNTIME-PARAMETER-TABLE
                       (RUNTIME-PARAMETER-INDEX) TO
                          COLLEGE-NAME
                       IN REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF  EDIT-ERROR-TABLE
                   IS NOT EQUAL TO SPACES
               PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE 3 TO PAGE-FULL-FLAG.
           IF  NOT SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO                             1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO                       1.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                   IN STUDENT-EOPS-RECORD TO
                      HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                   IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                   IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone AbstractionParameter Count: 4Parameter Bindings

        [[#22a623c0]].
           SET RUNTIME-PARAMETER-INDEX
             TO 1.
           SEARCH RUNTIME-COLLEGE-ENTRY
             AT END
               MOVE 1 TO COLLEGE-SEARCH-FLAG
             WHEN COLLEGE-ID
                    IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX)
                  IS EQUAL TO COLLEGE-ID
                                IN [[#22a615c0]]
               MOVE COLLEGE-NAME
                      IN RUNTIME-PARAMETER-TABLE (
                                                 RUNTIME-PARAMETER-INDEX
                                                 ) TO COLLEGE-NAME
                                                        IN
                                                     REPORT-TITLE-LINE-3
               MOVE ZERO TO COLLEGE-SEARCH-FLAG.
      *
      *
       2200-PROCESS-CNTL-BREAK.
           IF EDIT-ERROR-TABLE IS NOT EQUAL TO SPACES
             PERFORM 8400-PRINT-REPORT.
           MOVE 1 TO NEW-COLLEGE-FLAG.
           MOVE [[#22a862c0]]TO PAGE-FULL-FLAG.
           IF NOT SINGLE-COLLEGE-DISTRICT
                    IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX)
             PERFORM 8200-PRINT-COLLEGE-TOTALS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-ELEMENT-ROW-INDEX
             TO 1.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO 1.
           PERFORM 2210-ADD-DISTRICT-ELMNT-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET COLLEGE-TOTAL-INDEX
             TO 1.
           SET DISTRICT-TOTAL-INDEX
             TO 1.
           PERFORM 2220-ADD-DISTRICT-SUM-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 2230-ADD-DISTRICT-INTGY-TOTALS.
           PERFORM 2240-WRITE-RPT-TTLS-RECDS-FILE.
           MOVE COLLEGE-ID
                  IN [[#22a621c0]]TO HOLD-COLLEGE-ID.
           MOVE ZEROS TO COLLEGE-TOTALS
                           IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-ELEMENT-TOTALS
                           IN PROGRAM-ACCUMULATORS.
           MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
                           IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO 1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO 1.
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
             UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                 IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
                                               COLLEGE-ELEMENT-ROW-INDEX
                                            COLLEGE-ELEMENT-COLUMN-INDEX
                                                   )
             TO DISTRICT-ELEMENT-TOTAL
                  IN DISTRICT-ELEMNT-TOTALS-COLUMNS (
                                              DISTRICT-ELEMENT-ROW-INDEX
                                           DISTRICT-ELEMENT-COLUMN-INDEX
                                                    ).
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
             AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                 IN COLLEGE-TOTAL-ENTRY (COLLEGE-TOTAL-INDEX)
             TO DISTRICT-TOTAL
                  IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO COLLEGE-TOTAL-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a623c0]]
      *
      *
       2110-SEARCH-PARAMETER-TABLE 
12[[#22a623c0]]
      *
      *
       2112-COLLEGE-SETUP 
13[[#22a623c0]]
      *
      *
       2110-SEARCH-PARAMETER-TABLE 
14[[#22a623c0]]
      *
      *
       2110-SEARCH-PARAMETER-TABLE 
15[[#22a623c0]]
      *
      *
       2110-SEARCH-PARAMETER-TABLE 
21[[#22a615c0]]
       DATA-VALIDATION-WORK-FIELDS 
22[[#22a615c0]]
       EJ-RECORD 
23[[#22a615c0]]
       PBS-RECORD 
24[[#22a615c0]]
       STUDENT-EOPS-RECORD 
25[[#22a615c0]]
       SV-RECORD 
31[[#22a862c0]]
       2 
32[[#22a862c0]]
       3 
33[[#22a862c0]]
       4 
34[[#22a862c0]]
       3 
35[[#22a862c0]]
       3 
41[[#22a621c0]]
       STUDENT-MATRICULATION-RECORD 
42[[#22a621c0]]
       EJ-RECORD 
43[[#22a621c0]]
       PBS-RECORD 
44[[#22a621c0]]
       STUDENT-EOPS-RECORD 
45[[#22a621c0]]
       SV-RECORD