Re: READ PREVOIUS in CLP

Vendor response.

Though the Control Language for Files (CLF) web site is experiencing some
problems right now, the Read Record using CLF (ReadRcdCLF) command directly
supports reading the *LAST record of a file (in addition to *PRV, *NXT,
*KEY, *RRN, etc). This can be done using the no-charge CLF run-time option
though productivity will be higher using the fee-based CLF precompiler.

Using CLF there is no need to write another program using a language such as
RPG or COBOL in order to do file operations.

Bruce Vining




On Wed, May 26, 2010 at 9:47 AM, DeLong, Eric <EDeLong@xxxxxxxxxxxxxxx>wrote:

That sounds like a REALLY BAD IDEA....  Sorry, but I think this would be
guaranteed to screw up if there are any deleted records in the file...

Why try to force this into CL, when that language is unable to support
your requirements?

Jmo,
-Eric

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Pat Barber
Sent: Wednesday, May 26, 2010 9:00 AM
To: Midrange Systems Technical Discussion
Subject: Re: READ PREVOIUS in CLP

It would take some screwing around but, by finding out the
record count of the file with a rtvobjd , you could position by record
count-1
and then do a  ovrdbf  with that record number.

Would be a tad messy but can be done.

Gangasani, Bhargava wrote:

Hi,

Using CLP I can read a specific RRN/ Key record using below code.
DCLF  Z5PFILEP
OVRDBF     FILE(Z5PFILEP) TOFILE(Z5PFILEP) +
             POSITION(*RRN 4) SHARE(*NO)
RCVF

Question is: I can place my pointer at *END of file as
OVRDBF     FILE(Z5PFILEP) TOFILE(Z5PFILEP) +
             POSITION(*END) SHARE(*NO)
But How I can read the previous record. That is the Last record of the
file.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
Regards,
Bruce
www.brucevining.com
www.powercl.com
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.