× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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)





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.