Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
8 | 2 | 2 | 0.969 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 8 | 5565 | CCCC10.COB |
2 | 8 | 5575 | CCCC10.COB |
| ||||
* * *23499-FLAG-INT-ERR-A-AWARDS. * IF GROUP-A-AWARD (HOLD-AWARD-INDEX) * IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) * = SPACES * MOVE INTEGRITY-LITERAL * TO AWARD-TYPE-ERR-FLAG * (HOLD-AWARD-INDEX). * * 23499-FLAG-RES-ERR-A-AWARDS. IF GROUP-A-AWARD (HOLD-AWARD-INDEX) IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) EQUAL SPACES ADD 1 TO ERROR-COUNT (27 3) MOVE REASONABLENESS-LITERAL TO AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX). |
| ||||
* * 23499-FLAG-RES-ERR-B-AWARDS. IF GROUP-B-AWARD (HOLD-AWARD-INDEX) IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) EQUAL SPACES ADD 1 TO ERROR-COUNT (27 3) MOVE REASONABLENESS-LITERAL TO AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX). |
| |||
[[#24be4ce0]]. IF [[#24be4c60]](HOLD-AWARD-INDEX) IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) EQUAL SPACES ADD 1 TO ERROR-COUNT (27 3) MOVE REASONABLENESS-LITERAL TO AWARD-TYPE-ERR-FLAG ( HOLD-AWARD-INDEX ). |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#24be4ce0]] | * * 23499-FLAG-RES-ERR-B-AWARDS |
1 | 2 | [[#24be4ce0]] | * * *23499-FLAG-INT-ERR-A-AWARDS. * IF GROUP-A-AWARD (HOLD-AWARD-INDEX) * IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) * = SPACES * MOVE INTEGRITY-LITERAL * TO AWARD-TYPE-ERR-FLAG * (HOLD-AWARD-INDEX). * * 23499-FLAG-RES-ERR-A-AWARDS |
2 | 1 | [[#24be4c60]] | GROUP-B-AWARD |
2 | 2 | [[#24be4c60]] | GROUP-A-AWARD |