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
i want a program using by if, evaluate , string, unstring, perform, occurs?
Write some characteristics of cobol as means of business language.
What is the problem of ordered sequential files access?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
Difference between cobol and cobol-ii?
How to know whether the module is dynamical or statistical?
What are 77 levels used for?
What is the difference between comp and comp-3?
how to convert the recors form vsam file to db2 table tru file aid
can you please let me know if there is any walkins for COBOL/PLI/DB2/IMS/JCL in pune other than IBM and ITC infotech
What is a report item?
how do you reference the fixed unblock file formats from cobol programs
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
How are the next sentence and continue different from each other?
