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

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 at 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

Edit | Attach | Watch | Print version | History: r5 < r4 < r3 < r2 < r1 | Backlinks | Raw View | Raw edit | More topic actions...
Topic revision: r4 - 2013-12-31 - JeanNeron
 
  • Edit
  • Attach
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2021 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback