
I am using a SETGT followed by READPE and not getting the right results.

When this piece of code runs in figure 1  I end up retrieving LINE 7 instead of


 LINE 8.


   
Begsr Sub1;                            SetGT ('-':wareh:appt#) I3APPTP1;     ReadPE ('-':wareh:appt#) I3APPTP1;     if %eof (I3APPTP1);                   SetGT (' ':wareh:appt#) I3APPTP1;     ReadPE (' ':wareh:appt#) I3APPTP1;    endif;                                if %eof(I3APPTP1);                      SetGT ('Y':wareh:appt#) I3APPTP1;     ReadPE ('Y':wareh:appt#) I3APPTP1; endif;                               


 
       Uploaded  Whse   Appt Schedule
                             Status

000001    Y       BI    2159
000002    Y       BI    2159
000003    Y       BI    2159    P
000004    Y       BI    2159    P
000005    Y       BI    2159    A
000006    Y       BI    2159    P
000007    Y       BI    2159    P
000008    Y       BI    2159    F



SETGT READPE RPG FREE
---------------------


Actually the If not %equal is not there. The third piece of code


is where the program falls :
  


 If not %eof(I3APPTP1);                   
   SetGT (‘Y’:wareh:appt#) I3APPTP1;      
   ReadPE (‘Y’:wareh:appt#) I3APPTP1;     
endif;


