Refresh Screen
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?
Software/Hardware used:
Software/Hardware used:
ASKED:
August 16, 2012 8:26 PM
UPDATED:
August 16, 2012 8:27 PM
Answer Wiki:
Last Wiki Answer Submitted:
Be the first to answer this question.
To see all answers submitted to the Answer Wiki: View Answer History.
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
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