Interested to Buy Any Domain ? << Click Here >> for more details...
Answer Posted / vaneesh
MOVE 0 TO WS-COUNTER
MOVE N TO END-OF-FILE
PERFORM 1000-COPY-PARAGRAPH UNTILL (WS-COUNTER = 100 OR END-
OF-FILE = 'Y'.
100-COPY-PARAGRAPH.
READ INPUT FILE
AT END MOVE Y TO END-OF-FILE
NOT AT END MOVE IN-REC TO OUT-REC
ADD +001 TO WS-COUNTER.
1000-EXIT.
EXI.
| Is This Answer Correct ? | 4 Yes | 0 No |
Post New Answer View All Answers
What type of SDLC u followed? Why?
What is the Purpose of Pointer in the string?
What is perform what is varying?
In which area will you utilize 88 level items in cobol?
How are the next sentence and continue different from each other?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
Difference between array and sub-script ?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
What is the compute verb? How is it used?
What are literals?
Explain about different table spaces.
Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
