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 |