Deleting entire file 1

[Jaytib]

Not good at this, as you can see, I want to read every record in FileA, Chain to FileB and if not found in FileB, delete the record from FileA. but I am deleting the entire file. sounds simple but I cant see my mistake. Please advise.

FFileA UF E K DISK
FFileB IF E K DISK

/Free

Read FileA;
Dow not %Eof(FileA);

Chain (Inv#) FileB; //field from fileA
If not %Found(FileB);
Delete FileARecFmt;
Endif;
Read FileA;
Enddo;

*INLR = *On;
Return;

/End-Free

 

[jmd0252]

I'll ask the obvious. You are sure that some file a records are in file b?

 

[Jaytib]

Thanks for responding....It is possible filea records are not in fileb.
If filea records are not in fileb, i want to delete them from filea.

 

[tcsbiz]

Delete by key:

Delete FileARecFmt(Inv#);

I keep trying to do something about my procrastination but I keep putting it off until tomorrow.

 

[Jaytib]

Thanks, that gets me stuck in a loop. Should I setll on fileb instead of chaining?

 

[jmd0252]

you might try a set lower limts, but I would do a read equal. My initial question was you are sure that filea, does contain some records that need to be deleted.. so you do have some where the chain "hits"..

 

[Jaytib]

Thank You for your help! I want to read each record in FileA, chain each record to FileB and if that filea record is not found in FileB, delete the record from FileA.
Filea should always contain records that need to be deleted, but i guess there is the possibility there wouldn't be. Tf the chain doesn't 'hit', should I do a setll on fileb instead of a chain to look for a matching record?

 

[jmd0252]

do you know how to do a wrkqry, an IBM utility? If so,, go thru that, and pick upi records where the "key" matches,, that way you can be assured that the data is valid.Then you could try a setll and do a reade, and see what happens..