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
Why did you choose to work with ibm mainframe cobol programming?
What are literals?
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
how to access the file from prodution from changeman tool and to submit a file to production
How can you get the ksds file records into your cobol program?
What is the difference between Call and a Link?
example for sub strings ? and refernce modifications whit output pls
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 ?
Write a cobol program making use of the redefine clause.
how to convert the recors form vsam file to db2 table tru file aid
how do you reference the esds vsam file formats from cobol programs
Can we change the password using ALTER? anyone tried and changed?
What is redefines clause in COBOL?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
