RE: Reset pointer PF file -- RPG400-L

For rpg 400 try this

C *LOVAL SETLLPFFILE
C READ PFFILE 90
C *IN90 DOWEQ*OFF
C READ PFFILE 90
C ENDDO
C SETON LR

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of PEPITOVADECURT
Sent: 26 June 2009 12:10 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Reset pointer PF file

This code is RPGLE?
I use RPGIV.

Emmanuel Zannis escribió:

If your PF is keyed you can do the code below, otherwise replace the
PF with a logical with the appropriate key list.

C *Start Setll PFFile
C Read PFFile
C Dow Not %Eof(PFFile)
C Read PFFile
C EndDo
C Eval *Inlr = *on

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of PEPITOVADECURT
Sent: 26 June 2009 11:45 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Reset pointer PF file

I read a PF file the first time and the read is ok.

C SETOF 31
C *IN31 DOWEQ'0'
C READ O692TMP 31
C 31 LEAVE
C ..........................
C ENDDO

But when read the second time, nothing returns.
Need to reset the pointer? How?
Need to define and read LF using *LOVAL SETLL ...?

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

This email and any attachment(s) may contain information which is
personal or otherwise confidential and/or privileged.
Unauthorised access, use, distribution, reproduction or disclosure is
prohibited. If you are not the intended recipient and/or received this
message in error please tell us by reply (or telephone the sender) and
delete all copies from your system. Any privilege, confidentiality or
copyright that attaches to this email is not waived, lost or destroyed
if you have received this email in error.

We do not warrant that this email and any attachment(s) is free from
viruses or defects and you should scan this email for viruses prior to
opening or saving any attachments. The Hogg Robinson Group accepts no
liability for any damage caused by any virus transmitted by this
email.

Statements or opinions expressed in this email may be personal to the
sender and do not necessarily represent the views of Hogg Robinson Plc
or any other member of the Hogg Robinson Group. Unless expressly
stated otherwise, no member of the Hogg Robinson Group is bound by any
contract or obligation purported to be created by this email or its
attachment(s).

HRG and HRG worldwide network are all Hogg Robinson Group trading
names and trade marks.

This email and any attachment(s) is © Hogg Robinson Plc (trading as
HRG - Incorporated and Registered in England and Wales, Registered
Office: Global House, Victoria Street, Basingstoke, Hampshire RG21
3BT, UK. Company No.
2107443. VAT No. GB413640679)

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

This email and any attachment(s) may contain information
which is personal or otherwise confidential and/or privileged.
Unauthorised access, use, distribution, reproduction or
disclosure is prohibited. If you are not the intended recipient
and/or received this message in error please tell us by reply
(or telephone the sender) and delete all copies from your
system. Any privilege, confidentiality or copyright that
attaches to this email is not waived, lost or destroyed if you
have received this email in error.

We do not warrant that this email and any attachment(s) is
free from viruses or defects and you should scan this email
for viruses prior to opening or saving any attachments. The
Hogg Robinson Group accepts no liability for any damage
caused by any virus transmitted by this email.

Statements or opinions expressed in this email may be
personal to the sender and do not necessarily represent the
views of Hogg Robinson Plc or any other member of the Hogg
Robinson Group. Unless expressly stated otherwise, no
member of the Hogg Robinson Group is bound by any
contract or obligation purported to be created by this email or
its attachment(s).

HRG and HRG worldwide network are all Hogg Robinson
Group trading names and trade marks.

This email and any attachment(s) is © Hogg Robinson Plc
(trading as HRG - Incorporated and Registered in England
and Wales, Registered Office: Global House, Victoria Street,
Basingstoke, Hampshire RG21 3BT, UK. Company No.
2107443. VAT No. GB413640679)