have in 100 records in a file i want to read first 3 records
and skip next 3 records and agan i want to read 3 records and
again i want to skip 3 records...
- 2 Answers
- 9017 Views
- ITC Indian Tobacco Company, PNP, TCS, I also Faced
- E-Mail Answers
Answer Posted / kairoon
In working storage declare
01 ws-count1 pic s9(4) comp value zeroes.
01 ws-count2 pic s9(4) comp value zeroes.
In procedure division
PERFORM 200000-PROCESS THRU 200000-EXIT
UNTIL WS-EOF-IN = 'Y'.
200000-PROCESS.
READ IN-FILE AT END MOVE 'Y' TO WS-EOF-IN
GO TO 200000-EXIT.
ADD 1 TO WS-COUNT1
IF WS-COUNT1 <= 3
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
ELSE
ADD 1 TO WS-COUNT2
IF WS-COUNT2 = 3
MOVE ZEROES TO WS-COUNT1
WS-COUNT2
END-IF
END-IF.
200000-EXIT.
EXIT.
| Is This Answer Correct ? | 26 Yes | 2 No |
Post New Answer View All Answers
How do u write test cases?
what is amode(24), amode(31), rmode(24) and rmode(any)?
What are the access modes of START statement?
How many sections are there in data division in COBOL?
What is the difference between next sentence and continue in cobol programing language?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
What is inspect in cobol ?
) how do u code after getting data?
What is the difference between Call and a Link?
When is inspect verb is used in cobol?
Explain the configuration section of a cobol program with examples of syntax.
I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
Define cobol?
