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
- 35110 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
What is the default value(s) for an initialize and what keyword allows for an override of the default?
what is amode(24), amode(31), rmode(24) and rmode(any)?
If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly
How to use the same COBOL program in Batch and CICS on lines? explain with an example
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
What is a SSRANGE and NOSSRANGE?
which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad
i want a program using by if, evaluate , string, unstring, perform, occurs?
What is Pic 9v99 Indicates in COBOL?
What guidelines should be followed to write a structured cobol prgm?
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
I have a File that has duplicate records. I need only those records that occur more than thrice.?
How do we get current date from system with century in COBOL?
What is the problem of ordered sequential files access?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
