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
- 35112 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / gowd
AS YOU ARE USING NORMAL PS FILE U CANT ACCESS THE RECORD
FROM THE MIDDLE. THE SEQUENTIAL FILE PROCESS IN SEQUENCE
ORDER FROM FIRST RECORD ONWARDS. U MENTIONED A KEY IN THE
PROGRAM IT DOES NOT ALLOW ANY KEY IN THE SEQUENTIAL FILE.
THROUGH COBOL U CANT ACCESS THIS. FROM JCL U CAN GET IT AS
ONE OF OUR FRIEND CODED THROUGH THE "REPRO".
| Is This Answer Correct ? | 0 Yes | 1 No |
Post New Answer View All Answers
how do you reference the ksds vsam file formats from cobol programs
What is redefines clause in COBOL?
Difference between cobol and cobol-ii?
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
explain sorting techniques in cobol program?
Mention the guidelines to write a structured cobol program?
How do you reference the fixed block file formats from cobol programs
When is inspect verb is used in cobol?
What is the difference between comp and comp-3?
What is the usage of comp fields in cobol?
What is Pic 9v99 Indicates in COBOL?
how do you reference the fixed unblock file formats from cobol programs
Can you please let me know the centre name of INS certification in Kolkata.
Which is not true about evaluate statement
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
