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

What is length is cobol?

638


what are decleratives in cobol?

1816


What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?

666


What is static and dynamic call in cobol?

585


What guidelines should be followed to write a structured cobol prgm?

661






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

746


Are you comfortable in cobol or jcl?

633


What is the difference between Global and External Variables?

654


What are the various section in data division and briefly explain them.

682


What is link edit in cobol?

727


In which area will you utilize 88 level items in cobol?

704


how do you reference the fixed unblock file formats from cobol programs

698


What is rmode(24)

671


I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?

1220


What is difference between static and dynamic call in cobol?

766