READE in free format

140 pts.
Tags:
AS/400
READE
RPG/400
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.                       

 

 

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 2  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • deepu9321
    You can go with IF condition in this case. Have a condition for executing the existing functionality only if the record not found. And, end the IF condition before READE statement. Pradeep.
    4,275 pointsBadges:
    report
  • TomLiotta
    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 have read that multiple times but cannot understand it. Please show the code or try to word it differently. Tom
    125,585 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following