READPREV
A new ILF command 'READPREV' has been added.
Overview:
A new ILF command 'READPREV' has been added. This command is similar to READNEXT, except it reads the records in reverse order.
Usage:
The syntax of the command is the same as a READNEXT:
····· READPREV ··· ······················ HOLD 0 FT 0 BY ······················
(1) (2) (3) (4) (5) (6)
(1) T/F execution conditions
(2) Application ID
(3) File name or field name
(4) Hold type (0=do not hold, 1=hold, 2=hold with potential recovery)
(5) Fail Type (0=nothing, 1=warning, 2=error, 3=cancel)
(6) Access key field name (blank if consecutive file)
Normally, the READPREV statement sets the next status indicator to F or T depending on whether the beginning of the file is or is not reached, respectively.
If an
BEG AT statement is executed before a READPREV, the status indicator is also set to
F if the record read has a key value less than the one specified in the BEG AT statement. Note that the current record area contains the record that is beyond the BEG AT range.
If the READPREV sets the next status indicator to
F, the
FAIL or ( FT) parameter determines what additional action to take. In addition, on a false condition, the predefined field STATUS CODE returns a token indicating the reason for an I/O command failure. This token can be used as a key to read the system message file to obtain a descriptive I/O error message (see
STATUS CODE for details).
Using the Statement
When using this statement in conjunction with an RDBMS table, you can specify a field name instead of a file name to limit the volume of data being passed between APPX and the RDBMS. See the
Partial-Record I/O section in
Chapter 4-3: Specifying Statements for more information.
If a END AT statement for this file is executed before the READPREV, the position in the file is modified before executing the READPREV, based on the value and relation specified in the END AT statement and the keypath identified by the READPREV statement.
The key path and position established by the process interpreter for the process control file has no effect on, and is not affected by, the READPREV position.
The READPREV statement allows a record to be read and held for update. While a record is held, no other user may update or delete that record. If the record is to be rewritten or deleted, the
HOLD specification must be set to
1 (hold) or
2 (recover). Otherwise, it should be set to
0 (no). The recover specification holds the record and internally saves a copy of the record so that a subsequent rewrite or delete can be performed, even if the hold is lost (by reading another record with hold before completing the rewrite or delete). Recover can rehold the record for update, as long as the saved copy is identical to the original record that was read. Note that performance is improved with hold type
1.
Note also that the READPREV statement does not generate an 'In Use' message if the record to be held is currently being held by another user. The READPREV statement waits until the record to be read is freed up by the other user, unless a
TIMEOUT statement with a nonblank label was previously encountered. In that case, processing control transfers to the specified label.
Restrictions
The
READPREV statement cannot be used with one-record or consecutive files.
Example
SET 1EX VENDOR NUM = 1
BEG AT 1EX VENDOR IN 1EX VENDOR NUM
SET 1EX VENDOR NUM = 100
END AT 1EX VENDOR IN 1EX VENDOR NUM
LABEL :READPREV
READPREV 1EX VENDOR HOLD 0 FT 0 BY VENDOR NUM
T DISPLAY 1EX VENDOR NUM (AT APPEARANCE # )
T GOTO :READPREV
This example will read the 1EX VENDOR file starting and vendor 100, ending with vendor 1. Note that you define the BEG AT/END AT in the same way as you would for a READNEXT, the READPREV just determines the order in which the designated range of records will be returned.
Comments:
Read what other users have said about this page or add your own comments.
--
JeanNeron - 2013-10-04