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
- 35683 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / mike
you are missing a period after AT END MOVE 'YES' TO EOF-REC
The if statement IF I > 3 and < 10 is considered part of
the AT END condition.
| Is This Answer Correct ? | 4 Yes | 4 No |
Post New Answer View All Answers
Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc
how to access the file from prodution from changeman tool and to submit a file to production
what is difference between cobol and cobol/400
What the difference is between continue and next sentence?
What guidelines should be followed to write a structured cobol prgm?
What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?
how to convert the recors form vsam file to db2 table tru file aid
How many sections are there in data division in COBOL?
Name the sections present in data division.
i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc
What is static and dynamic call in cobol?
What are the different rules of SORT operation?
How can we find that module can be called – whether DYNAMICALLY or STATICALLY?
What is the difference between external and global variables in COBOL?
What is the difference between goback, stop run and exit program in cobol?
