RE: SETLL in OPNQRYF

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

Right Simon, however there is the more contemporary *START and *END
options for Factor 1 of SETLL. They put you at the start and end
(respectively) of the file.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Simon Coulter
> Sent: Wednesday, March 13, 2002 5:27 PM
> To: rpg400-l@midrange.com
> Subject: Re: SETLL in OPNQRYF
>
>
> Hello Chris,
>
> You wrote:
> >Any ideas?   I have a file that I need to process and then if a
condition
> >exists I need to start back at the begining of the file.
>
> SETLL works with OPNQRYF as long as the result of the query is also
keyed
> (presuming to want SETLL to position by key rather than RRN)
>
> The file must be defined as keyed on the F-spec otherwise RPG will
position
> by relative record number.  A sufficently large number in factor 1,
> interpreted as RRN, may indeed position you at end of file.
>
> NOTE: SETLL *LOVAL does not always put the file cursor at the
beginning of
> the file.  If the keyed sequence is descending *LOVAL will put you at
the
> end of the file.
>
> Regards,
> Simon Coulter.
>
> --------------------------------------------------------------------
>    FlyByNight Software         AS/400 Technical Specialists
>    http://www.flybynight.com.au/
>
>    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
>    Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
>                                                              X
>                  ASCII Ribbon campaign against HTML E-Mail  / \
> --------------------------------------------------------------------
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.