CloneSet84


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
43201.000paragraph_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1433445
CCCC2.COB
2433149
CCCC6.COB
Clone Instance
1
Line Count
43
Source Line
3445
Source File
CCCC2.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.


Clone Instance
2
Line Count
43
Source Line
3149
Source File
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.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       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 Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None