Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
56 | 9 | 3 | 0.989 | paragraph_list[2] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 67 | 4684 | CCCC1.COB |
2 | 56 | 4371 | CCCC11.COB |
3 | 56 | 3773 | CCCC13.COB |
4 | 56 | 4581 | CCCC14.COB |
5 | 56 | 4827 | CCCC2.COB |
6 | 56 | 3920 | CCCC4.COB |
7 | 56 | 3509 | CCCC5.COB |
8 | 56 | 3981 | CCCC6.COB |
9 | 56 | 3582 | CCCC8.COB |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-10-12 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-12 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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-11 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-9 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-11 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-ELEMENT-COLUMN-INDEX. IF (ELEMENT-ROWS-1-8 AND ELEMENT-COLUMN-2) OR (ELEMENT-ROWS-1-9 AND ELEMENT-COLUMN-3) OR (ELEMENT-ROWS-1-9 AND ELEMENT-COLUMN-4) MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX) ELSE MOVE COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| ||||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS (ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
| |||
* * 8210-PRINT-CLG-ELEMENT-TOTALS. MOVE EDIT-ERROR-LITERAL-AREA IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 8211-FILL-CLG-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 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 EDIT-ERROR-LITERAL-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 8211-FILL-CLG-PRINT-LINE. SET ELEMENT-TABLE-ROW-ID TO COLLEGE-ELEMENT-ROW-INDEX. SET ELEMENT-TABLE-COLUMN-ID TO COLLEGE-ELEMENT-COLUMN-INDEX. IF ( [[#22a691a0]] AND ELEMENT-COLUMN-2) OR ( [[#22a68b00]] AND ELEMENT-COLUMN-3) OR ( [[#22a690c0]] 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 COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS ( COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX ) TO ELEMENT-TOTAL IN ELEMENT-COLUMNS ( ELEMENT-COLUMN-INDEX ). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#22a691a0]] | ELEMENT-ROWS-1-10-12 |
1 | 2 | [[#22a691a0]] | ELEMENT-ROWS-1-13 |
1 | 3 | [[#22a691a0]] | ELEMENT-ROWS-1-5-OR-9-18 |
1 | 4 | [[#22a691a0]] | ELEMENT-ROWS-1-10 |
1 | 5 | [[#22a691a0]] | ELEMENT-ROWS-1-8 |
1 | 6 | [[#22a691a0]] | ELEMENT-ROWS-1-6 |
1 | 7 | [[#22a691a0]] | ELEMENT-ROWS-1-12 |
1 | 8 | [[#22a691a0]] | ELEMENT-ROWS-1-11 |
1 | 9 | [[#22a691a0]] | ELEMENT-ROWS-1-25 |
2 | 1 | [[#22a68b00]] | ELEMENT-ROWS-1-12 |
2 | 2 | [[#22a68b00]] | ELEMENT-ROWS-1-13 |
2 | 3 | [[#22a68b00]] | ELEMENT-ROWS-1-6-OR-8-16 |
2 | 4 | [[#22a68b00]] | ELEMENT-ROWS-1-10 |
2 | 5 | [[#22a68b00]] | ELEMENT-ROWS-1-9 |
2 | 6 | [[#22a68b00]] | ELEMENT-ROWS-1-7 |
2 | 7 | [[#22a68b00]] | ELEMENT-ROWS-1-11 |
2 | 8 | [[#22a68b00]] | ELEMENT-ROWS-1-9 |
2 | 9 | [[#22a68b00]] | ELEMENT-ROWS-1-25 |
3 | 1 | [[#22a690c0]] | ELEMENT-ROWS-1-12 |
3 | 2 | [[#22a690c0]] | ELEMENT-ROWS-1-13 |
3 | 3 | [[#22a690c0]] | ELEMENT-ROWS-1-16 |
3 | 4 | [[#22a690c0]] | ELEMENT-ROWS-1-10 |
3 | 5 | [[#22a690c0]] | ELEMENT-ROWS-1-9 |
3 | 6 | [[#22a690c0]] | ELEMENT-ROWS-1-7 |
3 | 7 | [[#22a690c0]] | ELEMENT-ROWS-1-12 |
3 | 8 | [[#22a690c0]] | ELEMENT-ROWS-1-11 |
3 | 9 | [[#22a690c0]] | ELEMENT-ROWS-1-25 |