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 / vinayagamoorthy
Hi ,
You don't need a oobol Program itself for this instead you
could use IDCAMS PROGRAM and REPRO Coomand with the control
parameters like SKIP and COUNT to achieve the above task.
//J1 JOB NOTFIFY=TCHN003
//S1 EXEC PGM=IDCAMS
//F1 DD DSN=FILE1,DISP=SHR ---> INP FILE
//F2 DD DSN=FILE2,DISP=SHR ---> OUT FILE
//SYSIN DD *
REPRO INFILE(F1) OUTFILE(F2) -
SKIP(3) -
COUNT(6)
/*
//
Is This Answer Correct ? | 23 Yes | 2 No |
Post New Answer View All Answers
Whats the difference between search & search ALL?
Explain the configuration section of a cobol program with examples of syntax.
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
Have you used comp and comp-3 in your project? And how?
What is the difference between comp and comp-3 usage?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Difference between array and sub-script ?
What is the difference between Global and External Variables?
example for sub strings ? and refernce modifications whit output pls
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
Write a cobol program making use of the redefine clause.
What rules are to be followed while using the corresponding options?
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 the utilization of copybook in cobol?
How to print 10 to 1 if the input have only 10 digit number?