Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
44 | 4 | 5 | 0.990 | statement |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 44 | 231 | RV109N01 |
2 | 44 | 275 | RV109N01 |
3 | 44 | 319 | RV109N01 |
4 | 44 | 184 | RV109N11 |
| ||||
**FINE SUBROUTINE WRITE-EXCEPTION-REPORT **ITE (6) TITLE LEFT ** 10T 'D E P A R T M E N T O F T R A N S P O R T A T I O N' ** 69T *DATI / ** 12T 'R E G I S T R Y O F M O T O R V E H I C L E S' ** 68T 'PAGE:' *PAGE-NUMBER (1) (AL=2) / ** 20T 'H A L I F A X , N O V A S C O T I A' /// ** 20T 'EXCEPTION REPORT - BLANK PAY PLAN CODE' // ** 10T 'MASTER NUMBER' 30T 'PLATE NUMBER' 45T 'VEHICLE ID' / ** 10T '=============' 30T '============' 45T '==========' /// **ITE (6) 10T #RMV-MSTR-NO 30T #PLATE-DISPLAY 45T #SV-VIN **TURN DEFINE SUBROUTINE WRITE-VEHICLE-REMINDER IF #GST-INDR = 'Y' THEN DO MOVE ' ' TO #GST-INDR MOVE #GST-MESSAGE TO #GST-PRINT DOEND WRITE (3) 0X 'YOUR VEHICLE PERMIT(S) FOR THE FOLLOWING' ' PLATE NO.(S) WILL EXPIRE AS FOLLOWS:' / WRITE (3) 0X 'PLATE ' 0X 'YEAR' 0X 'MAKE ' 0X 'MODEL' 0X 'VIN/SERIAL' 1X 'EXPIRY ' 0X 'RENEWAL FEE' / 0X '===== ' 0X '====' 0X '==== ' 0X '=====' 0X '==========' 1X '====== ' 0X '===========' WRITE (3) 0X #PLT1 0X #YR1 0X #MAKE1 0X #MODEL1 0X #VIN1 0X #EXPY1 0X #DOL1 #FE1(EM = ZZZ9.99) / 0X #PLT2 0X #YR2 0X #MAKE2 0X #MODEL2 0X #VIN2 0X #EXPY2 0X #DOL2 #FE2(EM = ZZZ9.99) / 0X #PLT3 0X #YR3 0X #MAKE3 0X #MODEL3 0X #VIN3 0X #EXPY3 0X #DOL3 #FE3(EM = ZZZ9.99) / 0X #PLT4 0X #YR4 0X #MAKE4 0X #MODEL4 0X #VIN4 0X #EXPY4 0X #DOL4 #FE4(EM = ZZZ9.99) / 0X #PLT5 0X #YR5 0X #MAKE5 0X #MODEL5 0X #VIN5 0X #EXPY5 0X #DOL5 #FE5(EM = ZZZ9.99) / 0X #PLT6 0X #YR6 0X #MAKE6 0X #MODEL6 0X #VIN6 0X #EXPY6 0X #DOL6 #FE6(EM = ZZZ9.99) / 0X #PLT7 0X #YR7 0X #MAKE7 0X #MODEL7 0X #VIN7 0X #EXPY7 0X #DOL7 #FE7(EM = ZZZ9.99) / 0X #PLT8 0X #YR8 0X #MAKE8 0X #MODEL8 0X #VIN8 0X #EXPY8 0X #DOL8 #FE8(EM = ZZZ9.99) / 0X #PLT9 0X #YR9 0X #MAKE9 0X #MODEL9 0X #VIN9 0X #EXPY9 0X #DOL9 #FE9(EM = ZZZ9.99) / 0X #PLT10 0X #YR10 0X #MAKE10 0X #MODEL10 0X #VIN10 0X #EXPY10 0X #DOL10 #FE10(EM = ZZZ9.99) / WRITE (3) 0X #VEH-MSG1 / 0X #VEH-MSG2 / 0X #VEH-MSG3 / 0X #VEH-MSG4 / 0X #VEH-MSG5 / 0X #GST-PRINT RESET #WRITE-INDEX #EXPIRED-PLATE-TABLE #EXPIRED-MODEL-TABLE RESET #EXPIRED-MAKE-TABLE #EXPIRED-YR-TABLE #EXPIRED-VIN-TABLE RESET #PRINT-FEE-TABLE #DOLLAR-TABLE RESET #PRINT-FEE-TABLE2 RESET #EXPIRY-DATE-TABLE RETURN |
| ||||
DEFINE SUBROUTINE WRITE-FARM-VEHICLE-REMINDER IF #GST-INDR = 'Y' THEN DO MOVE ' ' TO #GST-INDR MOVE #GST-MESSAGE TO #GST-PRINT DOEND WRITE (4) 0X 'YOUR VEHICLE PERMIT(S) FOR THE FOLLOWING' ' PLATE NO.(S) WILL EXPIRE AS FOLLOWS:' / WRITE (4) 0X 'PLATE ' 0X 'YEAR' 0X 'MAKE ' 0X 'MODEL' 0X 'VIN/SERIAL' 1X 'EXPIRY ' 0X 'RENEWAL FEE' / 0X '===== ' 0X '====' 0X '==== ' 0X '=====' 0X '==========' 1X '====== ' 0X '===========' WRITE (4) 0X #PLT1 0X #YR1 0X #MAKE1 0X #MODEL1 0X #VIN1 0X #EXPY1 0X #DOL1 #FE1(EM = ZZZ9.99) / 0X #PLT2 0X #YR2 0X #MAKE2 0X #MODEL2 0X #VIN2 0X #EXPY2 0X #DOL2 #FE2(EM = ZZZ9.99) / 0X #PLT3 0X #YR3 0X #MAKE3 0X #MODEL3 0X #VIN3 0X #EXPY3 0X #DOL3 #FE3(EM = ZZZ9.99) / 0X #PLT4 0X #YR4 0X #MAKE4 0X #MODEL4 0X #VIN4 0X #EXPY4 0X #DOL4 #FE4(EM = ZZZ9.99) / 0X #PLT5 0X #YR5 0X #MAKE5 0X #MODEL5 0X #VIN5 0X #EXPY5 0X #DOL5 #FE5(EM = ZZZ9.99) / 0X #PLT6 0X #YR6 0X #MAKE6 0X #MODEL6 0X #VIN6 0X #EXPY6 0X #DOL6 #FE6(EM = ZZZ9.99) / 0X #PLT7 0X #YR7 0X #MAKE7 0X #MODEL7 0X #VIN7 0X #EXPY7 0X #DOL7 #FE7(EM = ZZZ9.99) / 0X #PLT8 0X #YR8 0X #MAKE8 0X #MODEL8 0X #VIN8 0X #EXPY8 0X #DOL8 #FE8(EM = ZZZ9.99) / 0X #PLT9 0X #YR9 0X #MAKE9 0X #MODEL9 0X #VIN9 0X #EXPY9 0X #DOL9 #FE9(EM = ZZZ9.99) / 0X #PLT10 0X #YR10 0X #MAKE10 0X #MODEL10 0X #VIN10 0X #EXPY10 0X #DOL10 #FE10(EM = ZZZ9.99) / WRITE (4) 0X #VEH-MSG1 / 0X #VEH-MSG2 / 0X #VEH-MSG3 / 0X #VEH-MSG4 / 0X #VEH-MSG5 / 0X #GST-PRINT RESET #WRITE-INDEX #EXPIRED-PLATE-TABLE #EXPIRED-MODEL-TABLE RESET #EXPIRED-MAKE-TABLE #EXPIRED-YR-TABLE #EXPIRED-VIN-TABLE RESET #PRINT-FEE-TABLE #DOLLAR-TABLE RESET #PRINT-FEE-TABLE2 RESET #EXPIRY-DATE-TABLE #FARM-VEH-IND RETURN |
| ||||
DEFINE SUBROUTINE WRITE-FIRE-VEHICLE-REMINDER IF #GST-INDR = 'Y' THEN DO MOVE ' ' TO #GST-INDR MOVE #GST-MESSAGE TO #GST-PRINT DOEND WRITE (5) 0X 'YOUR VEHICLE PERMIT(S) FOR THE FOLLOWING' ' PLATE NO.(S) WILL EXPIRE AS FOLLOWS:' / WRITE (5) 0X 'PLATE ' 0X 'YEAR' 0X 'MAKE ' 0X 'MODEL' 0X 'VIN/SERIAL' 1X 'EXPIRY ' 0X 'RENEWAL FEE' / 0X '===== ' 0X '====' 0X '==== ' 0X '=====' 0X '==========' 1X '====== ' 0X '===========' WRITE (5) 0X #PLT1 0X #YR1 0X #MAKE1 0X #MODEL1 0X #VIN1 0X #EXPY1 0X #DOL1 #FE1(EM = ZZZ9.99) / 0X #PLT2 0X #YR2 0X #MAKE2 0X #MODEL2 0X #VIN2 0X #EXPY2 0X #DOL2 #FE2(EM = ZZZ9.99) / 0X #PLT3 0X #YR3 0X #MAKE3 0X #MODEL3 0X #VIN3 0X #EXPY3 0X #DOL3 #FE3(EM = ZZZ9.99) / 0X #PLT4 0X #YR4 0X #MAKE4 0X #MODEL4 0X #VIN4 0X #EXPY4 0X #DOL4 #FE4(EM = ZZZ9.99) / 0X #PLT5 0X #YR5 0X #MAKE5 0X #MODEL5 0X #VIN5 0X #EXPY5 0X #DOL5 #FE5(EM = ZZZ9.99) / 0X #PLT6 0X #YR6 0X #MAKE6 0X #MODEL6 0X #VIN6 0X #EXPY6 0X #DOL6 #FE6(EM = ZZZ9.99) / 0X #PLT7 0X #YR7 0X #MAKE7 0X #MODEL7 0X #VIN7 0X #EXPY7 0X #DOL7 #FE7(EM = ZZZ9.99) / 0X #PLT8 0X #YR8 0X #MAKE8 0X #MODEL8 0X #VIN8 0X #EXPY8 0X #DOL8 #FE8(EM = ZZZ9.99) / 0X #PLT9 0X #YR9 0X #MAKE9 0X #MODEL9 0X #VIN9 0X #EXPY9 0X #DOL9 #FE9(EM = ZZZ9.99) / 0X #PLT10 0X #YR10 0X #MAKE10 0X #MODEL10 0X #VIN10 0X #EXPY10 0X #DOL10 #FE10(EM = ZZZ9.99) / WRITE (5) 0X #VEH-MSG1 / 0X #VEH-MSG2 / 0X #VEH-MSG3 / 0X #VEH-MSG4 / 0X #VEH-MSG5 / 0X #GST-PRINT RESET #WRITE-INDEX #EXPIRED-PLATE-TABLE #EXPIRED-MODEL-TABLE RESET #EXPIRED-MAKE-TABLE #EXPIRED-YR-TABLE #EXPIRED-VIN-TABLE RESET #PRINT-FEE-TABLE #DOLLAR-TABLE RESET #PRINT-FEE-TABLE2 RESET #EXPIRY-DATE-TABLE #FIRE-VEH-IND RETURN |
| ||||
DEFINE SUBROUTINE WRITE-VEHICLE-REMINDER IF #GST-INDR = 'Y' THEN DO MOVE ' ' TO #GST-INDR MOVE #GST-MESSAGE TO #GST-PRINT DOEND WRITE (1) 0X 'YOUR VEHICLE PERMIT(S) FOR THE FOLLOWING' ' PLATE NO.(S) WILL EXPIRE AS FOLLOWS:' / WRITE (1) 0X 'PLATE ' 0X 'YEAR' 0X 'MAKE ' 0X 'MODEL' 0X 'VIN/SERIAL' 1X 'EXPIRY ' 0X 'FEE' / 0X '===== ' 0X '====' 0X '==== ' 0X '=====' 0X '==========' 1X '====== ' 0X '===' WRITE (1) 0X #PLT1 0X #YR1 0X #MAKE1 0X #MODEL1 0X #VIN1 0X #EXPY1 0X #DOL1 #FE1(EM = ZZZ9.99) / 0X #PLT2 0X #YR2 0X #MAKE2 0X #MODEL2 0X #VIN2 0X #EXPY2 0X #DOL2 #FE2(EM = ZZZ9.99) / 0X #PLT3 0X #YR3 0X #MAKE3 0X #MODEL3 0X #VIN3 0X #EXPY3 0X #DOL3 #FE3(EM = ZZZ9.99) / 0X #PLT4 0X #YR4 0X #MAKE4 0X #MODEL4 0X #VIN4 0X #EXPY4 0X #DOL4 #FE4(EM = ZZZ9.99) / 0X #PLT5 0X #YR5 0X #MAKE5 0X #MODEL5 0X #VIN5 0X #EXPY5 0X #DOL5 #FE5(EM = ZZZ9.99) / 0X #PLT6 0X #YR6 0X #MAKE6 0X #MODEL6 0X #VIN6 0X #EXPY6 0X #DOL6 #FE6(EM = ZZZ9.99) / 0X #PLT7 0X #YR7 0X #MAKE7 0X #MODEL7 0X #VIN7 0X #EXPY7 0X #DOL7 #FE7(EM = ZZZ9.99) / 0X #PLT8 0X #YR8 0X #MAKE8 0X #MODEL8 0X #VIN8 0X #EXPY8 0X #DOL8 #FE8(EM = ZZZ9.99) / 0X #PLT9 0X #YR9 0X #MAKE9 0X #MODEL9 0X #VIN9 0X #EXPY9 0X #DOL9 #FE9(EM = ZZZ9.99) / 0X #PLT10 0X #YR10 0X #MAKE10 0X #MODEL10 0X #VIN10 0X #EXPY10 0X #DOL10 #FE10(EM = ZZZ9.99) / WRITE (1) 0X #VEH-MSG1 / 0X #VEH-MSG2 / 0X #VEH-MSG3 / 0X #VEH-MSG4 / 0X #VEH-MSG5 / 0X #GST-PRINT RESET #WRITE-INDEX #EXPIRED-PLATE-TABLE #EXPIRED-MODEL-TABLE RESET #EXPIRED-MAKE-TABLE #EXPIRED-YR-TABLE #EXPIRED-VIN-TABLE RESET #PRINT-FEE-TABLE #DOLLAR-TABLE RESET #PRINT-FEE-TABLE2 RESET #EXPIRY-DATE-TABLE RETURN |
| |||
**FINE SUBROUTINE WRITE-EXCEPTION-REPORT **ITE (6) TITLE LEFT ** 10T 'D E P A R T M E N T O F T R A N S P O R T A T I O N' ** 69T *DATI / ** 12T 'R E G I S T R Y O F M O T O R V E H I C L E S' ** 68T 'PAGE:' *PAGE-NUMBER (1) (AL=2) / ** 20T 'H A L I F A X , N O V A S C O T I A' /// ** 20T 'EXCEPTION REPORT - BLANK PAY PLAN CODE' // ** 10T 'MASTER NUMBER' 30T 'PLATE NUMBER' 45T 'VEHICLE ID' / ** 10T '=============' 30T '============' 45T '==========' /// **ITE (6) 10T #RMV-MSTR-NO 30T #PLATE-DISPLAY 45T #SV-VIN **TURN DEFINE SUBROUTINE [[#variable7a2c9b00]] IF #GST-INDR = 'Y' THEN DO MOVE ' ' TO #GST-INDR MOVE #GST-MESSAGE TO #GST-PRINT DOEND WRITE ( [[#variablec4c26d60]]) 0X 'YOUR VEHICLE PERMIT(S) FOR THE FOLLOWING' ' PLATE NO.(S) WILL EXPIRE AS FOLLOWS:' / WRITE ( [[#variablec4c26d60]]) 0X 'PLATE ' 0X 'YEAR' 0X 'MAKE ' 0X 'MODEL' 0X 'VIN/SERIAL' 1X 'EXPIRY ' 0X [[#variablec4c26c20]]/ 0X '===== ' 0X '====' 0X '==== ' 0X '=====' 0X '==========' 1X '====== ' 0X [[#variablec4c26b00]] WRITE ( [[#variablec4c26d60]]) 0X #PLT1 0X #YR1 0X #MAKE1 0X #MODEL1 0X #VIN1 0X #EXPY1 0X #DOL1 #FE1(EM = ZZZ9.99) / 0X #PLT2 0X #YR2 0X #MAKE2 0X #MODEL2 0X #VIN2 0X #EXPY2 0X #DOL2 #FE2(EM = ZZZ9.99) / 0X #PLT3 0X #YR3 0X #MAKE3 0X #MODEL3 0X #VIN3 0X #EXPY3 0X #DOL3 #FE3(EM = ZZZ9.99) / 0X #PLT4 0X #YR4 0X #MAKE4 0X #MODEL4 0X #VIN4 0X #EXPY4 0X #DOL4 #FE4(EM = ZZZ9.99) / 0X #PLT5 0X #YR5 0X #MAKE5 0X #MODEL5 0X #VIN5 0X #EXPY5 0X #DOL5 #FE5(EM = ZZZ9.99) / 0X #PLT6 0X #YR6 0X #MAKE6 0X #MODEL6 0X #VIN6 0X #EXPY6 0X #DOL6 #FE6(EM = ZZZ9.99) / 0X #PLT7 0X #YR7 0X #MAKE7 0X #MODEL7 0X #VIN7 0X #EXPY7 0X #DOL7 #FE7(EM = ZZZ9.99) / 0X #PLT8 0X #YR8 0X #MAKE8 0X #MODEL8 0X #VIN8 0X #EXPY8 0X #DOL8 #FE8(EM = ZZZ9.99) / 0X #PLT9 0X #YR9 0X #MAKE9 0X #MODEL9 0X #VIN9 0X #EXPY9 0X #DOL9 #FE9(EM = ZZZ9.99) / 0X #PLT10 0X #YR10 0X #MAKE10 0X #MODEL10 0X #VIN10 0X #EXPY10 0X #DOL10 #FE10(EM = ZZZ9.99) / WRITE ( [[#variablec4c26d60]]) 0X #VEH-MSG1 / 0X #VEH-MSG2 / 0X #VEH-MSG3 / 0X #VEH-MSG4 / 0X #VEH-MSG5 / 0X #GST-PRINT RESET #WRITE-INDEX #EXPIRED-PLATE-TABLE #EXPIRED-MODEL-TABLE RESET #EXPIRED-MAKE-TABLE #EXPIRED-YR-TABLE #EXPIRED-VIN-TABLE RESET #PRINT-FEE-TABLE #DOLLAR-TABLE RESET #PRINT-FEE-TABLE2 RESET [[#variablec4c26a80]] RETURN |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#7a2c9b00]] | WRITE-FIRE-VEHICLE-REMINDER |
1 | 2 | [[#7a2c9b00]] | WRITE-FARM-VEHICLE-REMINDER |
1 | 3 | [[#7a2c9b00]] | WRITE-VEHICLE-REMINDER |
1 | 4 | [[#7a2c9b00]] | WRITE-VEHICLE-REMINDER |
2 | 1 | [[#c4c26d60]] | 5 |
2 | 2 | [[#c4c26d60]] | 4 |
2 | 3 | [[#c4c26d60]] | 3 |
2 | 4 | [[#c4c26d60]] | 1 |
3 | 1 | [[#c4c26c20]] | 'RENEWAL FEE' |
3 | 2 | [[#c4c26c20]] | 'RENEWAL FEE' |
3 | 3 | [[#c4c26c20]] | 'RENEWAL FEE' |
3 | 4 | [[#c4c26c20]] | 'FEE' |
4 | 1 | [[#c4c26b00]] | '===========' |
4 | 2 | [[#c4c26b00]] | '===========' |
4 | 3 | [[#c4c26b00]] | '===========' |
4 | 4 | [[#c4c26b00]] | '===' |
5 | 1 | [[#c4c26a80]] | #EXPIRY-DATE-TABLE #FIRE-VEH-IND |
5 | 2 | [[#c4c26a80]] | #EXPIRY-DATE-TABLE #FARM-VEH-IND |
5 | 3 | [[#c4c26a80]] | #EXPIRY-DATE-TABLE |
5 | 4 | [[#c4c26a80]] | #EXPIRY-DATE-TABLE |