READ Statements

, ,
1

I know there is a read command that allows you to change the value you are looking for.

Something like this:
#V := ‘abc’
Read FILE (command I can’t think of) with Descriptor = #V
If Descriptor > #V
#V := 'XYZ
(Command to restart the READ using the new value"
End-if

Does anyone know what I’m talking about?

2

You are thinking about ESCAPE TOP REPOSITION

Here is the code for such a sequence

#V := ‘abc’
Read FILE yourfile WITH REPOSITION
IN LOGICAL SEQUENCE BY DESCRIPTOR STARTING FROM #V /* with Descriptor will confuse someone reading
/* your code, although it is legal
If Descriptor > #V
#V := 'XYZ
ESCAPE TOP REPOSITION
End-if

So, you need WITH REPOSITION as part of the READ after the filename or view name

and, ESCAPE TOP REPOSITION in your IF.

The Natural Documentation for READ describes the details of this feature.

3

You are a rock star.
Thank you.