Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
122 | 9 | 1 | 0.998 | paragraph_list[6] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 122 | 3156 | CCCC1.COB |
2 | 122 | 3174 | CCCC11.COB |
3 | 122 | 2965 | CCCC12.COB |
4 | 122 | 2993 | CCCC13.COB |
5 | 122 | 3514 | CCCC14.COB |
6 | 122 | 3067 | CCCC4.COB |
7 | 122 | 2933 | CCCC5.COB |
8 | 122 | 2878 | CCCC8.COB |
9 | 122 | 3117 | CCCC9.COB |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-PARAMETER-COLLEGES AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-PARAMETER-COLLEGES AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-PARAMETER-COLLEGES AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| ||||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) TO TERM-TITLE IN REPORT-TITLE-LINE-2. * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
| |||
* * 1110-VALIDATE-TERM-ID. SET TERM-IDENTIFIER-INDEX TO 1. SEARCH TERM-IDENTIFIER-ENTRY IN TERM-IDENTIFIER-TABLE AT END MOVE 1 TO TERM-ID-FLAG WHEN TERM-CODE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) IS EQUAL TO TERM-CODE IN RUNTIME-PARAMETER-AREA MOVE TERM-TITLE IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX)TO TERM-TITLE IN REPORT-TITLE-LINE-2 . * * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES ( PARAMETER-COLLEGE-INDEX ) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH [[#22a86060]] AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE ( RUNTIME-PARAMETER-INDEX ) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE ( RUNTIME-PARAMETER-INDEX ). * * 1130-KILL-PROCESS. MOVE 1 TO HEADER-CONTROL-FLAG. MOVE DETAIL-PROGRAM-NAME IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME IN HEADER-REPORT-ID. PERFORM 8500-PRINT-HEADERS. WRITE PRINT-RECORD FROM RUNTIME-PARAMETER-AREA AFTER ADVANCING 2 LINES. IF NOT PRT-CONTROL-VALID WRITE PRINT-RECORD FROM PRT-CNTL-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF TERM-ID-INVALID WRITE PRINT-RECORD FROM TERM-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF DISTRICT-ID-INVALID WRITE PRINT-RECORD FROM DISTRICT-ID-INVALID-LITERAL AFTER ADVANCING 1 LINE. IF COLLEGE-ID-INVALID OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES WRITE PRINT-RECORD FROM COLLEGE-INVALID-LITERAL AFTER ADVANCING 1 LINE. CLOSE DATAEDIT-ERROR-REPORT. STOP RUN. * * 1140-VALIDATE-DISTRICT-ID. SET DISTRICT-CODE-INDEX TO 1. SEARCH DISTRICT-CODE-ENTRY AT END MOVE 1 TO DISTRICT-ID-FLAG WHEN DISTRICT-ID IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) IS EQUAL TO DISTRICT-ID IN RUNTIME-PARAMETER-AREA NEXT SENTENCE. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#22a86060]] | RUNTIME-PARAMETER-COLLEGES |
1 | 2 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |
1 | 3 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |
1 | 4 | [[#22a86060]] | RUNTIME-PARAMETER-COLLEGES |
1 | 5 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |
1 | 6 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |
1 | 7 | [[#22a86060]] | RUNTIME-PARAMETER-COLLEGES |
1 | 8 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |
1 | 9 | [[#22a86060]] | RUNTIME-COLLEGE-ENTRY |