MVSFORUMS.com

sivarao · Beginner Joined: 21 Aug 2008 Posts: 6 Topics: 1

Hi ,

I would like to read the records from bottom to top through COBOL logic.
Assu that the file KSDS.

Regards,
Siva

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Can't be done with COBOL.

Take a look at using Assembler or File-Aid instead.

jsharon1248 · Posted: Mon Aug 25, 2008 4:15 pm Post subject:

I'm wondering why you would want to do this.

If you're processing every record, or most records, you could REPRO the KSDS to a flat file, sort it by the key in descending order, and code a COBOL pgm to process the resulting sorted file.

In theory, you could use a START KEY IS LESS THAN followed by a single READ. The key from each READ would then be used as the key in the next START KEY IS LESS THAN. I suspect the performance would be horrible. I would not recommend this option, but just mention it as a possibility.

sivarao · Beginner Joined: 21 Aug 2008 Posts: 6 Topics: 1

thanks for your suggestyions.

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

tcurrier · Intermediate Joined: 10 Feb 2006 Posts: 188 Topics: 68

If you really need to do this, this should work :

In your SELECT statement, use 'ACCESS IS SEQUENTIAL' :

sivarao · Beginner Joined: 21 Aug 2008 Posts: 6 Topics: 1

I just wanted to check whether we can do this logic in COBOL.
any way thanks for your suggestions and code.