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
- 9861 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
State the various causes of s0c1, s0c5 and s0c7.
IF I mention stop run in CICS what happens?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
What is a SSRANGE and NOSSRANGE?
Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
Write a program that uses move corresponding.
What the difference is between continue and next sentence?
Define static linking and dynamic linking.
What is the default value(s) for an initialize and what keyword allows for an override of the default?
What is amode(24)?
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
How do you get the data to code the BMS macro?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.
