CloneSet4


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
42	9	6	0.993	statements[3]

Clone Abstraction

Parameter Bindings


HS101N11
HS101N12
RV060N15
RV060N20
RV060N21
RV060N65
RV060N70
RV060N80
RV060N85

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	44	183	HS101N11
2	42	127	HS101N12
3	41	168	RV060N15
4	42	157	RV060N20
5	43	128	RV060N21
6	42	169	RV060N65
7	41	143	RV060N70
8	44	169	RV060N80
9	42	153	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 Abstraction

Parameter Count: 6

Parameter 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
1	1	`[[#c4f0c8a0]]`	THEN
1	2	`[[#c4f0c8a0]]`	THEN
1	3	`[[#c4f0c8a0]]`
1	4	`[[#c4f0c8a0]]`	THEN
1	5	`[[#c4f0c8a0]]`	THEN
1	6	`[[#c4f0c8a0]]`	THEN
1	7	`[[#c4f0c8a0]]`	THEN
1	8	`[[#c4f0c8a0]]`	THEN
1	9	`[[#c4f0c8a0]]`	THEN
2	1	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
2	2	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
2	3	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
2	4	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
2	5	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPAL'
2	6	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
2	7	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
2	8	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS PRINCIPLE'
2	9	`[[#be969a60]]`	'DO NOT ENTER MAILING ADDRESS IF SAME AS RESIDENTIAL'
3	1	`[[#795696c0]]`	'MAIL ADDRESS LINE 1 MUST BE ENTERED'
3	2	`[[#795696c0]]`	'MAILING ADDRESS LINE 1 MUST BE ENTERED'
3	3	`[[#795696c0]]`	'MAIL ADDRESS LINE 1 MUST BE ENTERED'
3	4	`[[#795696c0]]`	'MAILING ADDRESS LINE 1 MUST BE ENTERED'
3	5	`[[#795696c0]]`	'MAIL ADDRESS LINE 1 MUST BE ENTERED'
3	6	`[[#795696c0]]`	'MAIL ADDRESS LINE 1 MUST BE ENTERED'
3	7	`[[#795696c0]]`	'MAILING ADDRESS LINE 1 MUST BE ENTERED'
3	8	`[[#795696c0]]`	'MAIL ADDRESS LINE 1 MUST BE ENTERED'
3	9	`[[#795696c0]]`	'MAILING ADDRESS LINE 1 MUST BE ENTERED'
4	1	`[[#ce9c8d80]]`	1670
4	2	`[[#ce9c8d80]]`	1830
4	3	`[[#ce9c8d80]]`	1560
4	4	`[[#ce9c8d80]]`	1830
4	5	`[[#ce9c8d80]]`	1420
4	6	`[[#ce9c8d80]]`	1710
4	7	`[[#ce9c8d80]]`	1820
4	8	`[[#ce9c8d80]]`	1410
4	9	`[[#ce9c8d80]]`	1970
5	1	`[[#be968440]]`	1860
5	2	`[[#be968440]]`	2030
5	3	`[[#be968440]]`	1750
5	4	`[[#be968440]]`	2010
5	5	`[[#be968440]]`	1610
5	6	`[[#be968440]]`	1900
5	7	`[[#be968440]]`	2000
5	8	`[[#be968440]]`	1600
5	9	`[[#be968440]]`	2170
6	1	`[[#c4f0c7c0]]`	#CNTY-CD
6	2	`[[#c4f0c7c0]]`	#MAIL-CNTY-CD
6	3	`[[#c4f0c7c0]]`	#CNTY-CD
6	4	`[[#c4f0c7c0]]`	#FOUND-CNTY-CD-INDR
6	5	`[[#c4f0c7c0]]`	#MAIL-CNTY-CD
6	6	`[[#c4f0c7c0]]`	#CNTY-CD
6	7	`[[#c4f0c7c0]]`	#CNTY-CD
6	8	`[[#c4f0c7c0]]`	#CNTY-CD
6	9	`[[#c4f0c7c0]]`	#MAIL-CNTY-CD