Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
111 | 6 | 6 | 0.988 | paragraph_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 111 | 5381 | CCCC1.COB |
2 | 100 | 4939 | CCCC11.COB |
3 | 100 | 4306 | CCCC13.COB |
4 | 100 | 4480 | CCCC4.COB |
5 | 100 | 4018 | CCCC5.COB |
6 | 100 | 4110 | CCCC8.COB |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 1 LINE. MOVE ZERO TO TABLE-SEARCH-FLAG. SET TOTAL-DISTRICT-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-25 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-25 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-25 AND ELEMENT-COLUMN-4) * OR * (ELEMENT-ROWS-13 * AND ELEMENT-COLUMN-4) * OR * (ELEMENT-ROWS-17 * AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 1 LINE. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-TOTAL-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-5-OR-9-18 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-6-OR-8-16 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-16 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 3 LINES. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-TOTAL-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-13 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-13 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-13 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 3 LINES. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-TOTAL-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-12 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-11 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-12 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 3 LINES. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-TOTAL-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-6 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-7 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-7 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3. MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING 1 LINE. MOVE ZERO TO TABLE-SEARCH-FLAG. SET TOTAL-DISTRICT-INDEX TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-10 AND ELEMENT-COLUMN-2) OR(ELEMENT-ROWS-1-10 AND ELEMENT-COLUMN-3) OR(ELEMENT-ROWS-1-10 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
| |||
* * 8800-PRINT-DISTRICT-TOTALS. MOVE DISTRICT-NAME IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO COLLEGE-NAME IN REPORT-TITLE-LINE-3 . MOVE 4 TO HEADER-CONTROL-FLAG. MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT. IF SINGLE-COLLEGE-DISTRICT IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID ELSE MOVE DISTRICT-ID IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. MOVE ZERO TO TABLE-SEARCH-FLAG. SET DISTRICT-ELEMENT-ROW-INDEX TO 1. SET EDIT-ERROR-LITERAL-INDEX TO 1. PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS UNTIL TABLE-SEARCH-COMPLETED. PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS. MOVE 7 TO HEADER-CONTROL-FLAG. MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT. MOVE SUMMARY-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 85002-PRINT-HEADERS. WRITE PRINT-RECORD-2 FROM BLANK-LINE AFTER ADVANCING [[#22a97580]] [[#22a97520]]. MOVE ZERO TO TABLE-SEARCH-FLAG. SET [[#22a97460]] TO 1. SET TOTAL-DESCRIPTION-INDEX TO 1. PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS UNTIL TABLE-SEARCH-COMPLETED. * * 8810-PRINT-DIST-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8811-FILL-DIST-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE. SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-ROW-INDEX. SEARCH DISTRICT-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX NEXT SENTENCE. SET EDIT-ERROR-LITERAL-INDEX TO DISTRICT-ELEMENT-ROW-INDEX. * * 8811-FILL-DIST-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO DISTRICT-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO DISTRICT-ELEMENT-COLUMN-INDEX. IF ( [[#22a97400]] AND ELEMENT-COLUMN-2) OR ( [[#22a973a0]] AND ELEMENT-COLUMN-3) OR ( [[#22a97240]] AND ELEMENT-COLUMN-4) * OR * (ELEMENT-ROWS-13 * AND ELEMENT-COLUMN-4) * OR * (ELEMENT-ROWS-17 * AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS ( ELEMENT-COLUMN-INDEX ) ELSE MOVE DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS ( DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX ) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS ( ELEMENT-COLUMN-INDEX ). SET ORIGINAL-INDEX-VALUE TO DISTRICT-ELEMENT-COLUMN-INDEX. SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO DISTRICT-ELEMENT-COLUMN-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#22a97580]] | 1 |
1 | 2 | [[#22a97580]] | 3 |
1 | 3 | [[#22a97580]] | 3 |
1 | 4 | [[#22a97580]] | 1 |
1 | 5 | [[#22a97580]] | 1 |
1 | 6 | [[#22a97580]] | 3 |
2 | 1 | [[#22a97520]] | LINE |
2 | 2 | [[#22a97520]] | LINES |
2 | 3 | [[#22a97520]] | LINES |
2 | 4 | [[#22a97520]] | LINE |
2 | 5 | [[#22a97520]] | LINE |
2 | 6 | [[#22a97520]] | LINES |
3 | 1 | [[#22a97460]] | TOTAL-DISTRICT-INDEX |
3 | 2 | [[#22a97460]] | DISTRICT-TOTAL-INDEX |
3 | 3 | [[#22a97460]] | DISTRICT-TOTAL-INDEX |
3 | 4 | [[#22a97460]] | DISTRICT-TOTAL-INDEX |
3 | 5 | [[#22a97460]] | TOTAL-DISTRICT-INDEX |
3 | 6 | [[#22a97460]] | DISTRICT-TOTAL-INDEX |
4 | 1 | [[#22a97400]] | ELEMENT-ROWS-1-25 |
4 | 2 | [[#22a97400]] | ELEMENT-ROWS-1-12 |
4 | 3 | [[#22a97400]] | ELEMENT-ROWS-1-6 |
4 | 4 | [[#22a97400]] | ELEMENT-ROWS-1-5-OR-9-18 |
4 | 5 | [[#22a97400]] | ELEMENT-ROWS-1-10 |
4 | 6 | [[#22a97400]] | ELEMENT-ROWS-1-13 |
5 | 1 | [[#22a973a0]] | ELEMENT-ROWS-1-25 |
5 | 2 | [[#22a973a0]] | ELEMENT-ROWS-1-11 |
5 | 3 | [[#22a973a0]] | ELEMENT-ROWS-1-7 |
5 | 4 | [[#22a973a0]] | ELEMENT-ROWS-1-6-OR-8-16 |
5 | 5 | [[#22a973a0]] | ELEMENT-ROWS-1-10 |
5 | 6 | [[#22a973a0]] | ELEMENT-ROWS-1-13 |
6 | 1 | [[#22a97240]] | ELEMENT-ROWS-1-25 |
6 | 2 | [[#22a97240]] | ELEMENT-ROWS-1-12 |
6 | 3 | [[#22a97240]] | ELEMENT-ROWS-1-7 |
6 | 4 | [[#22a97240]] | ELEMENT-ROWS-1-16 |
6 | 5 | [[#22a97240]] | ELEMENT-ROWS-1-10 |
6 | 6 | [[#22a97240]] | ELEMENT-ROWS-1-13 |