Interested to Buy Any Domain ? << Click Here >> for more details...
I have a File that has duplicate records. I need only those records that occur more than
thrice.?
- 3 Answers
- 10011 Views
- IBM, Wipro, I also Faced
- E-Mail Answers
Answer Posted / nsingh
DEFINE A TABLE
01 TABLE.
05 TABLE-A OCCURS 500 TIMES
INDEXED BY IDX
10 TEXT PIC X(100)
10 COUNT PIC9(4).
01 W-REC PIC X(100).
01 W-OUT PIC X(100).
01 SUB S9(4) COMP VALUE 0
PROCEDURE DIVISION.
INITIALIZE TABLE-A
READ-PARA.
READ F1 IN W-REC
AT END
SET IDX TO 1
PERFORM VARING SUB FROM 1 BY 1 UNTIL SUB > 500
IF COUNT(IDX) > 3
WRITE W-OUT FROM TEXT(IDX)
ELSE
SET IDX UP BY 1
END-IF
END-PERFORM
STOPRUN
NOT AT-END
CONTINUE
END-READ
SEARCH TABLE-A
AT END
PERFORM TABLE-ENTRY
WHEN W-REC = TEXT(IDX)
ADD +1 TO COUNT
END-SEARCH
GO TO READ-PARA
TABLE-ENTRY.
SET IDX TO 1
PERFORM VARYING SUB FROM 1 BY 1
UNTIL SUB > 500
IF TEXT (IDX) = SPACES
MOVE 1 TO COUNT (IDX)
MOVE W-REC TO TEXT (IDX)
ELSE
SET IDX UP BY 1
END-IF
END-PERFORM
| Is This Answer Correct ? | 1 Yes | 2 No |
Post New Answer View All Answers
what is the difference between COBOL2 AND COBOL390?
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
What is the difference between PIC 9.99 and PIC9v99?
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
What are the different types of condition in cobol and write their forms.
How do you differentiate between cobol and cobol-ii?
Write some characteristics of cobol as means of business language.
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
What is amode(31)
How to print 10 to 1 if the input have only 10 digit number?
How many bytes S(8) comp field occupy and its maximum value?
How to know whether the module is dynamical or statistical?
example for sub strings ? and refernce modifications whit output pls
