CloneSet7


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
39801.000statement
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1391138
ADDRTEST
2391134
ADDRTST2
3391134
ADDRTST3
4391101
JJUNK
5391190
RV109N12
6391107
RV109N23
7391101
RV109NCG
8391190
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 AbstractionParameter Count: 0Parameter 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