I am using rpgfree format program.
Begsr M; Setll (TRN) file1;
Reade (TRN)file1; Dow Not %Eof(file1);
existing functinality running..
Reade (Trn) file1; Enddo; Endsr;
after dow loop i am inserting one chain condition if record found then contro to go reade(trn) file1; and read next record (not toucch the existin functionality). if not found read existing functionality and read next record as usuall.
I tried goto statment but it's not allowing in free format. could you advise how to come over.
April 24, 2012 11:14 AM
April 25, 2012 12:07 AM