CloneSet7


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
39	8	0	1.000	statement

Clone Abstraction

Parameter Bindings


ADDRTEST
ADDRTST2
ADDRTST3
JJUNK
RV109N12
RV109N23
RV109NCG
RV109NXX

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	39	1138	ADDRTEST
2	39	1134	ADDRTST2
3	39	1134	ADDRTST3
4	39	1101	JJUNK
5	39	1190	RV109N12
6	39	1107	RV109N23
7	39	1101	RV109NCG
8	39	1190	RV109NXX

Clone Instance
1

Line Count
39

Source Line
1138

Source File

ADDRTEST

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
2

Line Count
39

Source Line
1134

Source File

ADDRTST2

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
3

Line Count
39

Source Line
1134

Source File

ADDRTST3

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
4

Line Count
39

Source Line
1101

Source File

JJUNK

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
5

Line Count
39

Source Line
1190

Source File

RV109N12

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
6

Line Count
39

Source Line
1107

Source File

RV109N23

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
7

Line Count
39

Source Line
1101

Source File

RV109NCG

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Instance
8

Line Count
39

Source Line
1190

Source File

RV109NXX

 IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND
    (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT OR
    #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN DO
  ADD 1 TO #WRITE-INDEX
     RESET #PLATE-DISPLAY
     MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
     MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
     MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
     MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
     MOVE #EXPY-YY TO #EXP-YY
     MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
     MOVE #EXPY-DD TO #EXP-DD
     MOVE '/' TO #SL1
     MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
     MOVE #MSTR-PLT-WT TO #HOLD-WT
     MOVE #VIN-NO TO #SV-VIN
     MOVE #VIN-SEQ TO #SV-SEQ
     PERFORM CALCULATE-FEES
     MOVE 1 TO #RENEW-CYCLE
     IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT<  5001 THEN DO
       CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE
                          #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE
                          #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
       #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
     DOEND
     MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
**   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
     MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
     MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
     MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
     MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
     IF #CAVR-IND = 'Y' THEN DO
       PERFORM REMOVE-CAVR-PRINT
     DOEND
     RESET #HOLD-FEE #PLT-TYPE #HOLD-FEE2
  MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
 DOEND

Clone Abstraction

Parameter Count: 0

Parameter Bindings

IF #MSTR-PLT-NO NE ' ' AND #VIN-NO NE ' ' AND (#PLT-EXPY-DT = #PARM1-VEH-EXPY-DT
                                               OR #PLT-EXPY-DT = #PARM2-VEH-EXPY-DT) THEN
  DO
    ADD 1 TO #WRITE-INDEX
    RESET #PLATE-DISPLAY
    MOVE INDEXED #MSTR-PLT-NO TO #PLT1< #WRITE-INDEX>
    MOVE #MSTR-PLT-NO TO #PLATE-DISPLAY
    MOVE CURRENT-MSTR-NO TO #RMV-MSTR-NO
    MOVE INDEXED MSTR-PLT-EXPY-DT(1) < #INDEX> TO #EXPIRY-DATE
    MOVE #EXPY-YY TO #EXP-YY
    MOVE INDEXED #VEH-MONTH1< #EXPY-MM> TO #EXP-MM
    MOVE #EXPY-DD TO #EXP-DD
    MOVE '/' TO #SL1
    MOVE INDEXED #EXPIRY-DISPLAY TO #EXPY1< #WRITE-INDEX>
    MOVE #MSTR-PLT-WT TO #HOLD-WT
    MOVE #VIN-NO TO #SV-VIN
    MOVE #VIN-SEQ TO #SV-SEQ
    PERFORM CALCULATE-FEES
    MOVE 1 TO #RENEW-CYCLE
    IF (#CLASS-CD = '10' OR = '20') AND #HOLD-WT< 5001 THEN
      DO
        CALLNAT 'RV079R20' #PLATE-DISPLAY #PLT-TYPE #EXPIRY-DATE #CLASS-CD #XCONDITION #HOLD-WT #RENEW-TYPE #RENEW-CYCLE #FUTURE-RENEW-CYCLE #MODIFY-CYCLE
        #HOLD-FEE = #HOLD-FEE * #RENEW-CYCLE
      DOEND
    MOVE INDEXED #HOLD-FEE TO #FE1< #WRITE-INDEX>
    **   MOVE INDEXED #HOLD-FEE2 TO #FEE1 <#WRITE-INDEX>
    MOVE INDEXED #VEH-MOD-YR TO #YR1< #WRITE-INDEX>
    MOVE INDEXED #VIN-NO TO #VIN1< #WRITE-INDEX>
    MOVE INDEXED #VEH-MK-CD TO #MAKE1< #WRITE-INDEX>
    MOVE INDEXED #VEH-MOD-CD TO #MODEL1< #WRITE-INDEX>
    MOVE INDEXED #S TO #DOL1< #WRITE-INDEX>
    MOVE INDEXED #RENEW-CYCLE TO #YRS1< #WRITE-INDEX>
    IF #CAVR-IND = 'Y' THEN
      DO
        PERFORM REMOVE-CAVR-PRINT
      DOEND
    RESET #HOLD-FEE
          #PLT-TYPE
          #HOLD-FEE2
    MOVE #MSTR-PLT-EXPY-DT TO #CENTURY-YEAR-MONTH-DAY
  DOEND

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
None