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
- 35462 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / swetha
could nt we use just a sort step?
//SPLITFLS EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTIN DD DSN=FILE1...,DISP=SHR
//SORTOF02 DD DSN=OUTPUTFILE2..............,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE),
// RECFM=FB,LRECL=20
//SYSIN DD *
sort fields=copy
outfil files=file2,startrec=4,endrec=9
/*
please correct me if i missed a point.
| Is This Answer Correct ? | 13 Yes | 1 No |
Post New Answer View All Answers
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
What the difference is between continue and next sentence?
What is the difference between external and global variables in COBOL?
There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.
How you can read the file from bottom?
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
What is the Purpose of POINTER Phrase in STRING command in COBOL?
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
How are the next sentence and continue different from each other?
IF I mention stop run in CICS what happens?
Explain the configuration section of a cobol program with examples of syntax.
i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this
how do you reference the fixed unblock file formats from cobol programs
Which Search verb is equivalent to PERFORM…VARYING?
How many bytes S(8) comp field occupy and its maximum value?
