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)
midrange.com
