CloneSet10


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
44450.990statement
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
144231
RV109N01
244275
RV109N01
344319
RV109N01
444184
RV109N11
Clone Instance
1
Line Count
44
Source Line
231
Source File
RV109N01

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


Clone Instance
2
Line Count
44
Source Line
275
Source File
RV109N01

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


Clone Instance
3
Line Count
44
Source Line
319
Source File
RV109N01

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


Clone Instance
4
Line Count
44
Source Line
184
Source File
RV109N11

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


Clone AbstractionParameter Count: 5Parameter Bindings

**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 Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#7a2c9b00]]
WRITE-FIRE-VEHICLE-REMINDER 
12[[#7a2c9b00]]
WRITE-FARM-VEHICLE-REMINDER 
13[[#7a2c9b00]]
WRITE-VEHICLE-REMINDER 
14[[#7a2c9b00]]
WRITE-VEHICLE-REMINDER 
21[[#c4c26d60]]
5 
22[[#c4c26d60]]
4 
23[[#c4c26d60]]
3 
24[[#c4c26d60]]
1 
31[[#c4c26c20]]
'RENEWAL FEE' 
32[[#c4c26c20]]
'RENEWAL FEE' 
33[[#c4c26c20]]
'RENEWAL FEE' 
34[[#c4c26c20]]
'FEE' 
41[[#c4c26b00]]
'===========' 
42[[#c4c26b00]]
'===========' 
43[[#c4c26b00]]
'===========' 
44[[#c4c26b00]]
'===' 
51[[#c4c26a80]]
#EXPIRY-DATE-TABLE
#FIRE-VEH-IND 
52[[#c4c26a80]]
#EXPIRY-DATE-TABLE
#FARM-VEH-IND 
53[[#c4c26a80]]
#EXPIRY-DATE-TABLE 
54[[#c4c26a80]]
#EXPIRY-DATE-TABLE