Re: Skip deleted records from a file

[Don <dr2@xxxxxxxxxxxx>]

Peter,

what do you mean by "deleted"?  If you did a DELET op on it, you shouldnt'
be seeing it....at least not through normal means...it's still there until
you do a RGZPFM...but, I don't see where this pgm should be seeing that
record....  Sure you actually deleted it??

Don in DC



On Mon, 22 Dec 2003, Peter Vidal wrote:

> Hi to all:
>
> I have a very simple problem and after checking the archives (without any 
> clear
> rout to take) I decide to let you know about it.
>
> I have an input / primary file that I am converting into an output file.  I 
> have
> this:
>
> C     *Loval        Setll     MyFile1
> C                   Dou       *In99
> C                   Read      MyFile1                    9999
> C   99              Iter
> .
> .
> .
> C     FullKey       Chain     MyFile2
> C                   If        not %found(MyFile2)
> C                   Write     MyFile2R
> C                   Endif
>
> C                   Enddo
>  * End of program
> C                   Eval      *InLR = *On
>
> However, there is one deleted record that is copied as well into the new file.
> How I can skip this record?  I do not want to get rid of this record via 
> RGZPFM;
> I want to be able to handle this situation in the program.
>
> TIA,
> Peter Vidal
> Pall Aeropower Corp.
> SR Programmer Analyst
> WWW.Pall.com
>
> "Have a very Merry Christmas and a more blessed new year 2004 and remember:
> JESUS is the reason for the season."
> Myself
>
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.
>