Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
43 | 2 | 0 | 1.000 | paragraph_list[2] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 43 | 3445 | CCCC2.COB |
2 | 43 | 3149 | CCCC6.COB |
| ||||
* * 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. |
| ||||
* * 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. |
| |||
* * 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 |
---|---|---|---|
None |