CloneSet3


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
481060.962statement
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
147521
CG241N06
248717
EA060P00
346623
HS101N10
446655
NC900P00
546588
PC466N00
646565
PC466N01
746795
RV060N00
846792
RV060N50
946645
RV060N75
1046616
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 AbstractionParameter Count: 6Parameter 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
11[[#795697a0]]
PASSWORD = #PASSWORD 
12[[#795697a0]]
13[[#795697a0]]
14[[#795697a0]]
15[[#795697a0]]
16[[#795697a0]]
17[[#795697a0]]
18[[#795697a0]]
19[[#795697a0]]
110[[#795697a0]]
21[[#79569640]]
3615 
22[[#79569640]]
6290 
23[[#79569640]]
6610 
24[[#79569640]]
5940 
25[[#79569640]]
5710 
26[[#79569640]]
4005 
27[[#79569640]]
3990 
28[[#79569640]]
6510 
29[[#79569640]]
2635 
210[[#79569640]]
6220 
31[[#79569660]]
3720 
32[[#79569660]]
6490 
33[[#79569660]]
6810 
34[[#79569660]]
6140 
35[[#79569660]]
5910 
36[[#79569660]]
4105 
37[[#79569660]]
4090 
38[[#79569660]]
6710 
39[[#79569660]]
2735 
310[[#79569660]]
6420 
41[[#79569560]]
ADDR-LN1 
42[[#79569560]]
ADDR-LN1 
43[[#79569560]]
ADDR-LN1 
44[[#79569560]]
ADDR-LN1 
45[[#79569560]]
ADDR-LN1 
46[[#79569560]]
ADDR-LN1 
47[[#79569560]]
ADDR-LN1 
48[[#79569560]]
ADDR-LN1 
49[[#79569560]]
CURRENT-MSTR-NO 
410[[#79569560]]
ADDR-LN1 
51[[#79569460]]
#ADDR1 
52[[#79569460]]
#ADDR1 
53[[#79569460]]
#ADDR1 
54[[#79569460]]
#ADDR1 
55[[#79569460]]
#ADDR1 
56[[#79569460]]
#ADDR1 
57[[#79569460]]
#ADDR1 
58[[#79569460]]
#ADDR1 
59[[#79569460]]
#MSTR1 
510[[#79569460]]
#ADDR1 
61[[#79569440]]
#INDEX-NO = 5 
62[[#79569440]]
#INDEX-NO = 5 
63[[#79569440]]
#INDEX-NO = 5 
64[[#79569440]]
#INDEX-NO = 5 
65[[#79569440]]
#INDEX-NO = 5 
66[[#79569440]]
#INDEX-NO = 5 
67[[#79569440]]
#INDEX-NO = 5 
68[[#79569440]]
#INDEX-NO = 5 
69[[#79569440]]
#INDEX-NO = 5
OR #RECS-FOUND = #RECS-DISPLAYED 
610[[#79569440]]
#INDEX-NO = 5