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
Hi pls anybody tell me about " ANALYSIS DOCUMENT PREPARATION AND ESTIMATION OF TASK " (in real time project)."I want to update a sequential file in my project" for that purpose i need both structures i mean analysis document and estimation of task.
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
Name the divisions, which are available in a cobol program?
Difference between cobol and cobol-ii?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad
What is the difference between perform … with test after and perform … with test before?
What is the difference between structured cobol programming and object alternativelyiented cobol programming?
What are the different data types in cobol?
Explain what you understand by passing by value.
Discuss about changing dataset name in proc.
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
What are the pertinent COBOL commands?
how to refer the data field?
how do you reference the variable block file formats from cobol programs