How can I automatically refresh my screen?

0 pts.
Tags:
i5
iSeries
OS/400
I have a basic RPG program that writes and displays a subfile. I would like to have it automatically refresh every 5mins. Can anyone give me an example of how to acomplish this? Once it displays for 5mins I want the program to exicute from the begining. Please Help.
ASKED: February 9, 2005  10:41 AM
UPDATED: February 11, 2005  4:16 AM

Answer Wiki

Thanks. We'll let you know when a new response is added.

– Create the display file with WAITRCD(300) as a parameter – for 5 minutes.
– Don’t use EXFMT in the RPG. Use WRITE followed by READ. When the read is encountered it will wait for the specified 300 seconds then return control to the RPG. In the RPG you will also need to code an INFDS for the workstation file, e.g. INFDS(IOFEED) . The data structure (IOFEED) should include a field with *STATUS as the buffer location, i.e. I STATUS *STATUS
When control returns, following the read, STATUS will be set to 1331 to indicate that the workstation wait interval was exceeded.

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
  • Nmckinney
    I have it refreshin, but it is refreshing constantly. I can not get it to delay for any ammount of time. Here is amy code: FHF3019D CF E WORKSTN F SFILE(DETAIL1:RRN) F MAXDEV(*FILE) * Requirment Detail File FJTPJITB IF E K DISK * Shipper Detail File FXRSPSHPB03IF E K DISK * Shipper History Detail File/rename on record format FXRSHSTBL10IF E K DISK RENAME(SHPB:SHPB2) ****************************************************************** * CONSTANTS ****************************************************************** D*#DATE S 8 * Fetch external description of LDA ****************************************************************** D LDA E DS EXTNAME(LDA) ****************************************************************** * Fetch external description of Program Status DS ****************************************************************** D PSTAT ESDS EXTNAME(HCAREF) D C EXSR INIT c TOP TAG C EXSR declal C EXSR CLEARSFL C EXSR LOADSFL C DOW *INKC *ON C WRITE detail3 C WRITE detail2 C READ HF3019D C* IF *IN05= *ON C EXSR CLOSEAL C GOTO TOP C* ENDIF C EXSR CLOSEAL C ENDDO C OUT LDA C eval *inlr= *on
    0 pointsBadges:
    report
  • Martin40
    Specify INVITE on the display file with an indicator. Set the INVITE indicator on before the WRITE and off again after the READ.
    0 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