×
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 was asked to post this by someone who can't post to the list for
some reason.
I had this happen to me a few weeks back. I replied to the RPG400-L
Digest but got rejected.
The point is not the coding I believe it is what he is not showing.
<message: 5
<date: Fri, 26 Jun 2009 12:44:32 +0200
<from: PEPITOVADECURT <pepitovadecurt@xxxxxxxxx>
<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 ...?
Do you do any other file I/O with O692TMP? If you access that file
within your loop it will "reset" the record pointer to the last
instance. The looping logic you have presented works. However, you
left a big blank area in the middle of your code snippet.
I would have codded it:
C SETOF 31
C READ O692TMP 31
C *IN31 DOWEQ'0'
C ..........................
C READ O692TMP 31
C ENDDO
Jon Paris
www.Partner400.com
www.SystemiDeveloper.com
midrange.com
