copy 100 records without using ibm utilities

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


Please Help Members By Posting Answers For Below Questions

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.

1782


can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there

1947


Name the divisions, which are available in a cobol program?

799


Difference between cobol and cobol-ii?

818


How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that

2835






which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad

1114


What is the difference between perform … with test after and perform … with test before?

1001


What is the difference between structured cobol programming and object alternativelyiented cobol programming?

833


What are the different data types in cobol?

902


Explain what you understand by passing by value.

805


Discuss about changing dataset name in proc.

839


What are INPUT PROCEDURE and OUTPUT PROCEDURE?

806


What are the pertinent COBOL commands?

2708


how to refer the data field?

1902


how do you reference the variable block file formats from cobol programs

802