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
- 73720 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 |
whats the disadvantage of search all over search?
what is filler and what is use of filler
What is the difference between NEXT SENTENCE and CONTINUE?
What is the difference between comp and comp-3 usage? Explain other COBOL usage?s.
Explain how to differentiate call by context by comparing it to other calls?
What is the difference between a binary search and a sequential search what are the pertinent cobol?
How can we find out wether to declare the data items like Integer, Char,Comp? If comp types how can we decide wether it is Comp and Comp3.How it is? Please Explain... Cheers.
i want all ERRORS codes in COBOL ,JCL,VSAM ,DB2,CICS
why we are using set in searchall?
what is the minimum number of lines a Cobol program should have to successfully compile and run
11 Answers ABC, Societe Generale,
01 A pic 9(100) find record length of it
Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.
COBOL 
