| 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 |