CloneSet3


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
48	10	6	0.962	statement

Clone Abstraction

Parameter Bindings


CG241N06
EA060P00
HS101N10
NC900P00
PC466N00
PC466N01
RV060N00
RV060N50
RV060N75
RV102N01

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	47	521	CG241N06
2	48	717	EA060P00
3	46	623	HS101N10
4	46	655	NC900P00
5	46	588	PC466N00
6	46	565	PC466N01
7	46	795	RV060N00
8	46	792	RV060N50
9	46	645	RV060N75
10	46	616	RV102N01

Clone Instance
1

Line Count
47

Source Line
521

Source File

CG241N06

*
          IF #PATH = '8' DO
            MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
            MOVE '320000' TO #START-NO
            MOVE ALL '9' TO #END-NO
            MOVE ALL '0' TO #START-SEQ-CHK
            MOVE ALL '9' TO #END-SEQ-CHK
          FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
                #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
                MSTR-CLIENT-TYPE-CD NE ' '
              MOVE 'Y' TO #RECS-FOUND-INDR
              MOVE * ISN TO #TEMP-REF-NO
            LOOP 2635
            MOVE * COUNTER 2635  TO #RECS-FOUND
            IF #RECS-FOUND-INDR = ' ' DO
              MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
              MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
              MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
     COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
                INTO #MESSAGE
              ESCAPE DOEND
            IF #RECS-FOUND = 1 DO
              MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
              MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
              MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
              MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
            IF #RECS-FOUND-INDR = 'Y' DO
          FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
                  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
                  MSTR-CLIENT-TYPE-CD NE ' '
                COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
                ADD 1 TO #INDEX-NO
                ADD 1 TO #RECS-DISPLAYED
                MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
                MOVE INDEXED * ISN 2735  TO #ISN1< #INDEX-NO>
                MOVE INDEXED CURRENT-MSTR-NO TO #MSTR1< #INDEX-NO>
                IF #INDEX-NO = 5 OR #RECS-FOUND = #RECS-DISPLAYED DO
                  PERFORM DISPLAY-RANGE-OF-CLIENTS
                  IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE
                DOEND
              LOOP 2735
              IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
              IF #SELECT NE 'X' DO
                MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
                MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
                MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
            DOEND
            ESCAPE DOEND

Clone Instance
2

Line Count
48

Source Line
717

Source File

EA060P00

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE PASSWORD = #PASSWORD
    WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 3615
 MOVE * COUNTER 3615  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE PASSWORD = #PASSWORD
     WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 3720  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 3720
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
3

Line Count
46

Source Line
623

Source File

HS101N10

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 6290
 MOVE * COUNTER 6290  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 6490  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 6490
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
4

Line Count
46

Source Line
655

Source File

NC900P00

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 6610
 MOVE * COUNTER 6610  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 6810  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 6810
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
5

Line Count
46

Source Line
588

Source File

PC466N00

************************************************************************
************************************************************
IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 5940
 MOVE * COUNTER 5940  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 6140  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 6140
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
6

Line Count
46

Source Line
565

Source File

PC466N01

************************************************************************
************************************************************
IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 5710
 MOVE * COUNTER 5710  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 5910  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 5910
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
7

Line Count
46

Source Line
795

Source File

RV060N00

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 4005
 MOVE * COUNTER 4005  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 4105  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 4105
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
8

Line Count
46

Source Line
792

Source File

RV060N50

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 3990
 MOVE * COUNTER 3990  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 4090  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 4090
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
9

Line Count
46

Source Line
645

Source File

RV060N75

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 6510
 MOVE * COUNTER 6510  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 6710  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 6710
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Instance
10

Line Count
46

Source Line
616

Source File

RV102N01

IF #PATH = '8' DO
 MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
 MOVE '320000' TO #START-NO
 MOVE ALL '9' TO #END-NO
 MOVE ALL '0' TO #START-SEQ-CHK
 MOVE ALL '9' TO #END-SEQ-CHK
 FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
  #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
  MSTR-CLIENT-TYPE-CD NE ' '
 MOVE 'Y' TO #RECS-FOUND-INDR
 MOVE * ISN TO #TEMP-REF-NO
 LOOP 6220
 MOVE * COUNTER 6220  TO #RECS-FOUND
 IF #RECS-FOUND-INDR = ' ' DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"'
   INTO #MESSAGE
  ESCAPE DOEND
 IF #RECS-FOUND = 1 DO
  MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
  MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
  MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
  MOVE #TEMP-REF-NO TO #REF-NO ESCAPE DOEND
 IF #RECS-FOUND-INDR = 'Y' DO
  FIND RV-MASTER-FILE WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU
   #END-LN-BD-RANGE WHERE PSTL-CD = #COMP-PSTL-CD AND
   MSTR-CLIENT-TYPE-CD NE ' '
  COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
  ADD 1 TO #INDEX-NO
  ADD 1 TO #RECS-DISPLAYED
  MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
  MOVE INDEXED * ISN 6420  TO #ISN1< #INDEX-NO>
  MOVE INDEXED ADDR-LN1 TO #ADDR1< #INDEX-NO>
  IF #INDEX-NO = 5 DO
   PERFORM DISPLAY-RANGE-OF-CLIENTS
   IF #SELECT = 'X' OR #REF-NO GT 0 THEN ESCAPE DOEND
  LOOP 6420
  IF #INDEX-NO GT 0 THEN PERFORM DISPLAY-RANGE-OF-CLIENTS
  IF #SELECT NE 'X' DO
   MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
   MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
   MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD DOEND
  DOEND
 ESCAPE DOEND

Clone Abstraction

Parameter Count: 6

Parameter Bindings

************************************************************************
************************************************************
*
IF #PATH = '8'
  DO
    MOVE #COMP-MSTR-NAME TO #START-NAME #END-NAME
    MOVE '320000' TO #START-NO
    MOVE ALL '9' TO #END-NO
    MOVE ALL '0' TO #START-SEQ-CHK
    MOVE ALL '9' TO #END-SEQ-CHK
    FIND
      RV-MASTER-FILE
       [[#variable795697a0]]
      WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU #END-LN-BD-RANGE
      WHERE PSTL-CD = #COMP-PSTL-CD AND MSTR-CLIENT-TYPE-CD NE ' '
      MOVE 'Y' TO #RECS-FOUND-INDR
      MOVE * ISN TO #TEMP-REF-NO
    LOOP [[#variable79569640]]
    MOVE * COUNTER [[#variable79569640]]TO #RECS-FOUND
    IF #RECS-FOUND-INDR = ' '
      DO
        MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
        MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
        MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
        COMPRESS 'NO RECORDS FOUND FOR "' #COMP-MSTR-NAME #COMP-PSTL-CD '"' INTO #MESSAGE
        ESCAPE
      DOEND
    IF #RECS-FOUND = 1
      DO
        MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
        MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
        MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
        MOVE #TEMP-REF-NO TO #REF-NO
        ESCAPE
      DOEND
    IF #RECS-FOUND-INDR = 'Y'
      DO
        FIND
          RV-MASTER-FILE
           [[#variable795697a0]]
          WITH RMV-MSTR-NO = #START-LN-BD-RANGE THRU #END-LN-BD-RANGE
          WHERE PSTL-CD = #COMP-PSTL-CD AND MSTR-CLIENT-TYPE-CD NE ' '
          COMPRESS SURNAME ', ' GIVEN-NAME INTO #CLIENT-NAME
          ADD 1 TO #INDEX-NO
          ADD 1 TO #RECS-DISPLAYED
          MOVE INDEXED #CLIENT-NAME TO #NAME1< #INDEX-NO>
          MOVE INDEXED * ISN [[#variable79569660]]TO #ISN1< #INDEX-NO>
          MOVE INDEXED [[#variable79569560]]TO [[#variable79569460]]< #INDEX-NO>
          IF [[#variable79569440]]
            DO
              PERFORM DISPLAY-RANGE-OF-CLIENTS
              IF #SELECT = 'X'
                 OR #REF-NO GT 0 THEN
                ESCAPE
            DOEND
        LOOP [[#variable79569660]]
        IF #INDEX-NO GT 0 THEN
          PERFORM DISPLAY-RANGE-OF-CLIENTS
        IF #SELECT NE 'X'
          DO
            MOVE 'Y' TO #TRIED-MSTR-PSTL-CD-INDR
            MOVE #COMP-MSTR-NAME TO #SAVE-COMP-NAME
            MOVE #COMP-PSTL-CD TO #SAVE-COMP-PSTL-CD
          DOEND
      DOEND
    ESCAPE
  DOEND

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#795697a0]]`	PASSWORD = #PASSWORD
1	2	`[[#795697a0]]`
1	3	`[[#795697a0]]`
1	4	`[[#795697a0]]`
1	5	`[[#795697a0]]`
1	6	`[[#795697a0]]`
1	7	`[[#795697a0]]`
1	8	`[[#795697a0]]`
1	9	`[[#795697a0]]`
1	10	`[[#795697a0]]`
2	1	`[[#79569640]]`	3615
2	2	`[[#79569640]]`	6290
2	3	`[[#79569640]]`	6610
2	4	`[[#79569640]]`	5940
2	5	`[[#79569640]]`	5710
2	6	`[[#79569640]]`	4005
2	7	`[[#79569640]]`	3990
2	8	`[[#79569640]]`	6510
2	9	`[[#79569640]]`	2635
2	10	`[[#79569640]]`	6220
3	1	`[[#79569660]]`	3720
3	2	`[[#79569660]]`	6490
3	3	`[[#79569660]]`	6810
3	4	`[[#79569660]]`	6140
3	5	`[[#79569660]]`	5910
3	6	`[[#79569660]]`	4105
3	7	`[[#79569660]]`	4090
3	8	`[[#79569660]]`	6710
3	9	`[[#79569660]]`	2735
3	10	`[[#79569660]]`	6420
4	1	`[[#79569560]]`	ADDR-LN1
4	2	`[[#79569560]]`	ADDR-LN1
4	3	`[[#79569560]]`	ADDR-LN1
4	4	`[[#79569560]]`	ADDR-LN1
4	5	`[[#79569560]]`	ADDR-LN1
4	6	`[[#79569560]]`	ADDR-LN1
4	7	`[[#79569560]]`	ADDR-LN1
4	8	`[[#79569560]]`	ADDR-LN1
4	9	`[[#79569560]]`	CURRENT-MSTR-NO
4	10	`[[#79569560]]`	ADDR-LN1
5	1	`[[#79569460]]`	#ADDR1
5	2	`[[#79569460]]`	#ADDR1
5	3	`[[#79569460]]`	#ADDR1
5	4	`[[#79569460]]`	#ADDR1
5	5	`[[#79569460]]`	#ADDR1
5	6	`[[#79569460]]`	#ADDR1
5	7	`[[#79569460]]`	#ADDR1
5	8	`[[#79569460]]`	#ADDR1
5	9	`[[#79569460]]`	#MSTR1
5	10	`[[#79569460]]`	#ADDR1
6	1	`[[#79569440]]`	#INDEX-NO = 5
6	2	`[[#79569440]]`	#INDEX-NO = 5
6	3	`[[#79569440]]`	#INDEX-NO = 5
6	4	`[[#79569440]]`	#INDEX-NO = 5
6	5	`[[#79569440]]`	#INDEX-NO = 5
6	6	`[[#79569440]]`	#INDEX-NO = 5
6	7	`[[#79569440]]`	#INDEX-NO = 5
6	8	`[[#79569440]]`	#INDEX-NO = 5
6	9	`[[#79569440]]`	#INDEX-NO = 5 OR #RECS-FOUND = #RECS-DISPLAYED
6	10	`[[#79569440]]`	#INDEX-NO = 5