CloneSet4


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
42960.993statements[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
144183
HS101N11
242127
HS101N12
341168
RV060N15
442157
RV060N20
543128
RV060N21
642169
RV060N65
741143
RV060N70
844169
RV060N80
942153
RV060N85
Clone Instance
1
Line Count
44
Source Line
183
Source File
HS101N11

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION' MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
 #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
    'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
    MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N'  THEN DO
 IF #MAIL-ADDR-LN1 = ' '  THEN
  REINPUT 'MAILING ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1970
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
  THEN IGNORE
  ELSE
    REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
    MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     '
        #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 2170
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE'
  MARK * #MAIL-CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
2
Line Count
42
Source Line
127
Source File
HS101N12

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION'  MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
  #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
 'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
 MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN DO
 IF #MAIL-ADDR-LN1 = ' ' THEN
  REINPUT 'MAIL ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1410
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
  REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
  MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     ' #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 1600
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
3
Line Count
41
Source Line
168
Source File
RV060N15

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION' MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
 #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
   'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
   MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N'  THEN DO
 IF #MAIL-ADDR-LN1 = ' '  THEN
  REINPUT 'MAILING ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1820
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' ')) THEN IGNORE ELSE
    REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
    MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     '
        #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 2000
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
4
Line Count
42
Source Line
157
Source File
RV060N20

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION'  MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
  #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
      'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
      MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN DO
 IF #MAIL-ADDR-LN1 = ' ' THEN
  REINPUT 'MAIL ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1710
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
  REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
  MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     ' #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 1900
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
5
Line Count
43
Source Line
128
Source File
RV060N21

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION'  MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
  #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
     'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPAL'
     MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN DO
 IF #MAIL-ADDR-LN1 = ' ' THEN
  REINPUT 'MAIL ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
IF #MAIL-JUR NE 'NS'
THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1420
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
  REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
  MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     ' #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 1610
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #MAIL-CNTY-CD
  ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
6
Line Count
42
Source Line
169
Source File
RV060N65

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION' MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
 #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
    'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
    MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N'  THEN DO
 IF #MAIL-ADDR-LN1 = ' '  THEN
  REINPUT 'MAILING ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1830
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' ')) THEN IGNORE ELSE
    REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
    MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     '
        #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 2010
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE'
  MARK * #FOUND-CNTY-CD-INDR ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
7
Line Count
41
Source Line
143
Source File
RV060N70

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION'  MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
  #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
  REINPUT 'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
  MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN DO
 IF #MAIL-ADDR-LN1 = ' ' THEN
  REINPUT 'MAIL ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1560
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
  REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
  MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     ' #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 1750
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
8
Line Count
44
Source Line
169
Source File
RV060N80

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION' MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
 #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
   'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
   MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N'  THEN DO
 IF #MAIL-ADDR-LN1 = ' '  THEN
  REINPUT 'MAILING ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1830
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
    REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
    MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     '
        #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 2030
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE'
  MARK * #MAIL-CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone Instance
9
Line Count
42
Source Line
153
Source File
RV060N85

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
 REINPUT 'INVALID SELECTION'  MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' ' OR
  #MAIL-ADDR-LN2 NE ' ' OR #MAIL-PSTL-CD NE ' ' OR #MAIL-CNTY-CD GT 0)
 THEN REINPUT
 'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
 MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN DO
 IF #MAIL-ADDR-LN1 = ' ' THEN
  REINPUT 'MAIL ADDRESS LINE 1 MUST BE ENTERED'
  MARK * #MAIL-ADDR-LN1 ALARM
 IF #MAIL-JUR NE 'NS'
 THEN DO
   ASSIGN #START-TABLE = '004     ' #END-TABLE = '00499999'
   FIND RV-TABLE-FILE WITH SUPERSD = #START-TABLE THRU #END-TABLE
     IF #MAIL-JUR = TABLE-CODE THEN DO
        MOVE 'Y' TO #FOUND-JUR-INDR
        ESCAPE DOEND
   LOOP 1670
   IF #FOUND-JUR-INDR NE 'Y' THEN
      REINPUT 'JURISDICTION CODE IS NOT VALID'
      MARK * #MAIL-JUR SOUND ALARM
   RESET #FOUND-JUR-INDR
 DOEND
 IF (#MAIL-PSTL-CD = MASK(ANANAN)  OR (#MAIL-PSTL-CD = MASK(NNNNN.)
  AND #MAIL-LAST-ZIPCODE-CHAR = ' '))
   THEN IGNORE
   ELSE
  REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT'
  MARK * #MAIL-PSTL-CD ALARM
 IF #MAIL-CNTY-CD = 0 THEN
  REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
 ASSIGN #START-TABLE = '013     ' #END-TABLE = '01399999'
 HISTOGRAM RV-TABLE-FILE FOR SUPERSD #START-TABLE THRU #END-TABLE
 MOVE SUPERSD TO #TABLE
 IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN DO
  MOVE 'Y' TO #FOUND-CNTY-CD-INDR
  ESCAPE DOEND
 LOOP 1860
 IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
  REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * #CNTY-CD ALARM
 MOVE '1' TO #MSTR-MULTI-ADDR-CD DOEND


Clone AbstractionParameter Count: 6Parameter Bindings

IF #SAME-MAILING-INDR NE 'Y' AND #SAME-MAILING-INDR NE 'N' THEN
  REINPUT 'INVALID SELECTION' MARK * #SAME-MAILING-INDR ALARM
IF #SAME-MAILING-INDR = 'Y' AND (#MAIL-ADDR-LN1 NE ' '
                                 OR #MAIL-ADDR-LN2 NE ' '
                                 OR #MAIL-PSTL-CD NE ' '
                                 OR #MAIL-CNTY-CD GT 0) [[#variablec4f0c8a0]]
  REINPUT [[#variablebe969a60]]MARK * #MAIL-ADDR-LN1 ALARM
IF #SAME-MAILING-INDR = 'N' THEN
  DO
    IF #MAIL-ADDR-LN1 = ' ' THEN
      REINPUT [[#variable795696c0]]MARK * #MAIL-ADDR-LN1 ALARM
    IF #MAIL-JUR NE 'NS' THEN
      DO
        ASSIGN #START-TABLE = '004     '
        #END-TABLE = '00499999'
        FIND
          RV-TABLE-FILE
          WITH SUPERSD = #START-TABLE THRU #END-TABLE
          IF #MAIL-JUR = TABLE-CODE THEN
            DO
              MOVE 'Y' TO #FOUND-JUR-INDR
              ESCAPE
            DOEND
        LOOP [[#variablece9c8d80]]
        IF #FOUND-JUR-INDR NE 'Y' THEN
          REINPUT 'JURISDICTION CODE IS NOT VALID' MARK * #MAIL-JUR SOUND ALARM
        RESET #FOUND-JUR-INDR
      DOEND
    IF (#MAIL-PSTL-CD = MASK(ANANAN)
        OR (#MAIL-PSTL-CD = MASK(NNNNN.) AND #MAIL-LAST-ZIPCODE-CHAR = ' ')) THEN
      IGNORE
    ELSE
      REINPUT 'POSTAL CODE INVALID - NOT CANADIAN OR AMERICAN FORMAT' MARK * #MAIL-PSTL-CD ALARM
    IF #MAIL-CNTY-CD = 0 THEN
      REINPUT 'COUNTY CODE MUST BE ENTERED' MARK * #MAIL-CNTY-CD ALARM
    ASSIGN #START-TABLE = '013     '
    #END-TABLE = '01399999'
    HISTOGRAM RV-TABLE-FILE
      FOR SUPERSD
      #START-TABLE THRU #END-TABLE
      MOVE SUPERSD TO #TABLE
      IF #TABLE-CNTY-CD = #FULL-MAIL-CNTY-CD THEN
        DO
          MOVE 'Y' TO #FOUND-CNTY-CD-INDR
          ESCAPE
        DOEND
    LOOP [[#variablebe968440]]
    IF #FOUND-CNTY-CD-INDR NE 'Y' THEN
      REINPUT 'COUNTY CODE IS INVALID - NOT ON FILE' MARK * [[#variablec4f0c7c0]]ALARM
    MOVE '1' TO #MSTR-MULTI-ADDR-CD
  DOEND
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#c4f0c8a0]]
THEN 
12[[#c4f0c8a0]]
THEN 
13[[#c4f0c8a0]]
14[[#c4f0c8a0]]
THEN 
15[[#c4f0c8a0]]
THEN 
16[[#c4f0c8a0]]
THEN 
17[[#c4f0c8a0]]
THEN 
18[[#c4f0c8a0]]
THEN 
19[[#c4f0c8a0]]
THEN 
21[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE' 
22[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL' 
23[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE' 
24[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL' 
25[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPAL' 
26[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE' 
27[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL' 
28[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE' 
29[[#be969a60]]
'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL' 
31[[#795696c0]]
'MAIL ADDRESS LINE 1 MUST BE ENTERED' 
32[[#795696c0]]
'MAILING ADDRESS LINE 1 MUST BE ENTERED' 
33[[#795696c0]]
'MAIL ADDRESS LINE 1 MUST BE ENTERED' 
34[[#795696c0]]
'MAILING ADDRESS LINE 1 MUST BE ENTERED' 
35[[#795696c0]]
'MAIL ADDRESS LINE 1 MUST BE ENTERED' 
36[[#795696c0]]
'MAIL ADDRESS LINE 1 MUST BE ENTERED' 
37[[#795696c0]]
'MAILING ADDRESS LINE 1 MUST BE ENTERED' 
38[[#795696c0]]
'MAIL ADDRESS LINE 1 MUST BE ENTERED' 
39[[#795696c0]]
'MAILING ADDRESS LINE 1 MUST BE ENTERED' 
41[[#ce9c8d80]]
1670 
42[[#ce9c8d80]]
1830 
43[[#ce9c8d80]]
1560 
44[[#ce9c8d80]]
1830 
45[[#ce9c8d80]]
1420 
46[[#ce9c8d80]]
1710 
47[[#ce9c8d80]]
1820 
48[[#ce9c8d80]]
1410 
49[[#ce9c8d80]]
1970 
51[[#be968440]]
1860 
52[[#be968440]]
2030 
53[[#be968440]]
1750 
54[[#be968440]]
2010 
55[[#be968440]]
1610 
56[[#be968440]]
1900 
57[[#be968440]]
2000 
58[[#be968440]]
1600 
59[[#be968440]]
2170 
61[[#c4f0c7c0]]
#CNTY-CD 
62[[#c4f0c7c0]]
#MAIL-CNTY-CD 
63[[#c4f0c7c0]]
#CNTY-CD 
64[[#c4f0c7c0]]
#FOUND-CNTY-CD-INDR 
65[[#c4f0c7c0]]
#MAIL-CNTY-CD 
66[[#c4f0c7c0]]
#CNTY-CD 
67[[#c4f0c7c0]]
#CNTY-CD 
68[[#c4f0c7c0]]
#CNTY-CD 
69[[#c4f0c7c0]]
#MAIL-CNTY-CD