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
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
How do define dynamic array in cobol.
how do you reference the ksds vsam file formats from cobol programs
What are the different types of condition in cobol and write their forms.
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
Explain the configuration section of a cobol program with examples of syntax.
What are the different rules to perform a Search?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
What is redefines clause in COBOL?
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
What are 77 levels used for?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......
What do you understand by psb and acb?
What is the use of intialize verb?
