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