Refresh Screen

1780 pts.
Tags:
DDS
I want to just create a simple refresh screen.. Here is what I have. A DSPSIZ(24 80 *DS3) A R SCREEN1 REL-V6R1M0 5761-WDS A CF03 A INVITE A 2 2TIME A DATA 7A B 6 6 RPGLE Prgram is: fDELAYTST cf e workstn maxdev(*file) Dron s 50 /free dow *inkc *on; write(e) screen1; dsply 'Timed out'; read(e) screen1 ; ron = %char(%status); Enddo; *inlr = *on; return; It does not refresh on its own. I have did the CHGDSPF FILE(DELAYTST) WAITRCD(10) Any ideas?

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
  • TomLiotta
    The RPG manuals aren't very clear, but carefully review the sections on the READ instruction that differentiate between using a file name and a format name. Then try this small change: read(e) DELAYTST ; // read(e) DELAYTST ; if DATA = 'Refresh' ; DATA = 'RE-refr' ; else ; DATA = 'Refresh' ; endif ;   The IF-statement stuff just adds a little visual change for the output while testing. The READ statement itself is what's important.   Tom
    125,585 pointsBadges:
    report
  • TomLiotta
    That came out looking terrible. Let me know if it's not clear. In fact, I see I messed up on the comment. It should have been your original READ screen1 statement. It should be replaced by read(e) DELAYTST. 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