Returns the offset of the file pointer in a
text file as an INT64 value. You define a procedure variable to
hold the offset value and later position the file to that offset.
Syntax
SEEK ( { INPUT | OUTPUT | name | STREAM-HANDLE handle} )
|
- INPUT
- If you specify INPUT, the SEEK function returns the current
position of the file pointer in the unnamed input stream.
- OUTPUT
- If you specify OUTPUT, the SEEK function returns the current
position of the file pointer in the unnamed output stream.
-
name
- If you specify SEEK (name), the SEEK function
returns the current position of the file pointer in the named input
or output stream. The stream must be associated with an open file,
or SEEK returns the Unknown value (?).
- STREAM-HANDLE handle
- If you specify the handle to a stream, the SEEK function returns
the current position of the file pointer in the stream. If handle it
is not a valid handle to a stream, the AVM generates a run-time
error.
Example
This
procedure shows how you can use the SEEK function to access data
in an text file. Using SEEK this way allows you to index into a
non-indexed file.
r-seek1.p
DEFINE VARIABLE itemno NO-UNDO LIKE Item.ItemNum.
DEFINE VARIABLE itdesc NO-UNDO LIKE Item.ItemName.
DEFINE VARIABLE m-pos AS INT64 NO-UNDO.
SET itemno LABEL
"Select a record number to position the output file" WITH SIDE-LABELS.
OUTPUT TO test.fil.
FIND Item NO-LOCK WHERE Item.ItemNum = itemno.
IF Item.ItemNum = itemno THEN
m-pos = SEEK(OUTPUT).
EXPORT Item.ItemNum Item.ItemName.
OUTPUT CLOSE.
INPUT FROM test.fil.
SEEK INPUT TO m-pos.
SET itemno itdesc WITH FRAME d2.
INPUT CLOSE.
|
In the example, you are prompted to select an
Item number to position the output file. When a record is found
with that Item number, the SEEK function returns the offset into
the variable m-pos. The value for m-pos is
the current value of the file pointer. The SEEK statement uses the
value in m-pos to position the file pointer in
the unnamed input stream.
Notes
- The
first byte in a file is byte 0.
- You cannot use the SEEK function with the INPUT THROUGH statement,
the INPUT-OUTPUT THROUGH statement, or the OUTPUT THROUGH statement.
When used with one of these statements, the SEEK function returns
the Unknown value (?).
- After you assign the value of the SEEK function to a procedure
variable, you can use that value to reposition the file in the event
of an error.
- For more information on streams, see the chapter on alternate
I/O sources in OpenEdge Development: Programming Interfaces.
