| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 108 | 5 | 4 | 0.992 | paragraph_list[5] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 108 | 3403 | CCCC11.COB |
| 2 | 108 | 3220 | CCCC13.COB |
| 3 | 108 | 3302 | CCCC4.COB |
| 4 | 108 | 3160 | CCCC5.COB |
| 5 | 108 | 3343 | 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 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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| |||
[[#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 Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22a623c0]] | *
*
2110-SEARCH-PARAMETER-TABLE |
| 1 | 2 | [[#22a623c0]] | *
*
2112-COLLEGE-SETUP |
| 1 | 3 | [[#22a623c0]] | *
*
2110-SEARCH-PARAMETER-TABLE |
| 1 | 4 | [[#22a623c0]] | *
*
2110-SEARCH-PARAMETER-TABLE |
| 1 | 5 | [[#22a623c0]] | *
*
2110-SEARCH-PARAMETER-TABLE |
| 2 | 1 | [[#22a615c0]] | DATA-VALIDATION-WORK-FIELDS |
| 2 | 2 | [[#22a615c0]] | EJ-RECORD |
| 2 | 3 | [[#22a615c0]] | PBS-RECORD |
| 2 | 4 | [[#22a615c0]] | STUDENT-EOPS-RECORD |
| 2 | 5 | [[#22a615c0]] | SV-RECORD |
| 3 | 1 | [[#22a862c0]] | 2 |
| 3 | 2 | [[#22a862c0]] | 3 |
| 3 | 3 | [[#22a862c0]] | 4 |
| 3 | 4 | [[#22a862c0]] | 3 |
| 3 | 5 | [[#22a862c0]] | 3 |
| 4 | 1 | [[#22a621c0]] | STUDENT-MATRICULATION-RECORD |
| 4 | 2 | [[#22a621c0]] | EJ-RECORD |
| 4 | 3 | [[#22a621c0]] | PBS-RECORD |
| 4 | 4 | [[#22a621c0]] | STUDENT-EOPS-RECORD |
| 4 | 5 | [[#22a621c0]] | SV-RECORD |