Interested to Buy Any Domain ? << Click Here >> for more details...
I have PS flat file with 14 records. I want to read from
4th to 9th record and want to write those 6 records (4th
record to 9th record) to another PS file (output file).
there is no key defined in the input file. I just want read
a certain Consecutive records. can any one please give me
the procedure division Coding for this. I have coded the
below coding but the READ-PARA is performing only 1 time
even though I have 14 records in my input file (i.e FILE-1):
PROCEDURE DIVISION.
A000-SECTION.
MOVE 0 TO I.
OPEN INPUT FILE-1.
IF CHECK-KEY1 > 0
DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1
END-IF.
OPEN EXTEND NEWFILE-1
IF CHECK-KEY3 > 0
DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3
END-IF.
PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'.
DISPLAY " FINALLY OUT OF LOOP"
CLOSE FILE-1
CLOSE NEWFILE-1
STOP RUN.
READ-PARA.
ADD 1 TO I
READ FILE-1
AT END MOVE 'YES' TO EOF-REC
IF I > 3 AND < 10
PERFORM WRITE-PARA
ELSE
DISPLAY "NOT IN RANGE"
END-IF.
EXIT-PARA.
EXIT.
WRITE-PARA.
WRITE NEW-REC FROM FILE1-REC.
- 8 Answers
- 35433 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / guest
at the end of the Read stmt u need to put end-if or period.
juz try it after mentioning any one of the above.
| Is This Answer Correct ? | 0 Yes | 1 No |
Post New Answer View All Answers
What is the local-storage section?
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
What are the pertinent COBOL
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
Write a program that uses move corresponding.
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
In COBOL programming, what is PERFORM? What is VARYING?
What is the problem of ordered sequential files access?
What is Pic 9v99 Indicates in COBOL?
What is static and dynamic call in cobol?
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
What is link edit in cobol?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
