Interested to Buy Any Domain ? << Click Here >> for more details...
How to read records from flat file in reverse order through
COBOL program?
- 14 Answers
- 74423 Views
- Accenture, Broadridge, IBM, MAT, Polaris, SPIC, Syntel, TCS, Wipro, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / srini
Sort the file based on key in descending order. You can
read the file in reverse order.
| Is This Answer Correct ? | 44 Yes | 27 No |
Answer / shrik
Reading the records into a buffer (array) and using it in
reverse order would be the first idea that comes to mind but
that way doesnt work for file with millions of records.
| Is This Answer Correct ? | 18 Yes | 6 No |
Answer / satty
we can read file in reverse order by using a dynamic array.
first transfer the ps into array and read it by -1 from
counter = no of records in the file
| Is This Answer Correct ? | 7 Yes | 3 No |
Answer / mahendra.ch
first we can move the records to an occurs
then
we can solve this problem by using perform varing 1 by -1
until i=0
hear i = number of racords.
iam shure it works.
thank you....
| Is This Answer Correct ? | 8 Yes | 4 No |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=YOUR INPUT DATASET,DISP=SHR
//SORTOUT DD DSN=YOUR OUTPUT FILE IN REVERSE ORDER,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
INREC FIELDS=(1,80,SEQNUM,8,ZD)
SORT FIELDS=(81,8,ZD,D)
OUTREC FIELDS=(1,80)
/*
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / laxmaiah
i have some knowledge in flat files,
(open input file-name reversed)
in this type use read the data in reverse order
AND write another file
| Is This Answer Correct ? | 16 Yes | 13 No |
Answer / pa
Being a flat file, we cant be sure that it will have a unique key field. So, External to the cobol program , using SORT utility, we can add a serial no column, and then SORT it in descending order based on that column and read the file sequentially in COBOL program.
| Is This Answer Correct ? | 2 Yes | 0 No |
1. Using FileAid
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=YOUR INPUT DATASET,DISP=SHR
//DD01O DD DSN=YOUR OUTPUT FILE IN REVERSE ORDER,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
$$DD01 COPYBACK
/*
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sravani
using rrds it is possible. we can count the no of records using rrds key. by using if we can decrement from last to first
| Is This Answer Correct ? | 0 Yes | 7 No |
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
comp-3 field occupy?
consider the following FD FILE-1 01 REC-1 PIC X(80) ...... WORKING-STORAGE SECTION 01 W-REC PIC X(90) ........ PROCEDURE DIVISION FIRST-PARA ....... READ FILE-1 INTO W-REC AT END MOVE 1 TO EOF-FLAG which of the following is true with respect to the above? a.REC-1 will contain nothing and W-REC will contain the contains of the record read b.REC-1 and W-REC contain the same data c.syntex is invalid and error will occur d.REC-1 and W-REC must be of same size
What are different data types in cobol?
db2 variable decimal(15,2) what is the equalent size of cobol variable
Difference between array and sub-script ?
) How do u handle errors in BMS macro
How you can read the file from bottom?
What is difference between static and dynamic call in cobol?
What is amode(24)?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
Why did you choose to work with ibm mainframe cobol programming?
COBOL 
