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.
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
Define static linking and dynamic linking.
) How do u handle errors in BMS macro?
What are the cobol coding sheets?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
What is difference between static and dynamic call in cobol?
Mention the guidelines to write a structured cobol program?
What kind of error is trapped by on size error option?
Which Search verb is equivalent to PERFORM…VARYING?
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
A table has two indexes defined. Which one will be used by the SEARCH?
How to remove the spaces at the end of each record in the output file of variable length, via cobol program?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
What is the difference between Global and External Variables?
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 ......
how do you reference the rrds file formats from cobol programs