Re: SETLL and SETGT

["hartawan reksodiputro" <jeanhartawan@xxxxxxxxxxx>]

Hi Hendri,

It seems that you would need to use SETGT like the scenario below:
- Read until the indicator that sets the EOF is on
- Do SETGT with *END or *HIVAL on the Factor 1 entry, to set the pointer to 
the end of file.
  (I believe though the file doesn't have a key, it will still set the 
pointer through record numbers. Using *START & *END will make you be able to 
set a pointer on a null, which *LOVAL & *HIVAL couldn't do)

  *END      SETGT  FileA

- Then do READP and after that READ

Hope This Help lah yau!!!
Lagi ngapain sih, sampe perlu ngecek record terakhir?


Regards,
Ichang



>From: "hendry tionardi" <ahen75@hotmail.com>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: SETLL and SETGT
>Date: Mon, 19 Jun 2000 19:58:25 PDT
>
>I'm reading last record and then i reading again, and it's end of file.Then
>The indicator is on.
>But then i'm using READP for set the pointer back, but cannot proceed.
>
>From the book i see if i read the last record and i read again, the result
>indicator is on, and for futher proceed i must using SETLL or SETGT then
>READP,READ statement can be used again.
>
>But the file i'm using doesn't had KEY, so how can i'm using SETLL and
>SETGT??
>
>
>
>________________________________________________________________________
>Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---