|
Shishir, Here is a snippet of RPG code that might be helpful. Sorry that it is in the older RPG format. Note that PUTOVR and INVITE are important on the display file: C DSPLY BEGSR C* C* Turn on PUTOVR if needed C* C LASTSC IFEQ PUT C MOVE '1' *IN89 PUTOVR C ELSE C MOVE '0' *IN89 C END C* C* WRITE THE MESSAGE SUBFILE C* C WRITE@MSGSFLC C* C* WRITE TEMPLATE FORMAT C* C WRITERL8030AT C* C* READ/WRITE SUBFILE SCREEN C* C MOVE '1' *IN80 DISPLAY C MOVE '0' *IN81 INIT C MOVE '0' *IN83 CLEAR C MOVE '0' *IN84 DELETE C* C BOTYES IFEQ 'Y' C MOVE '1' *IN82 CROSS C ELSE C MOVE '0' *IN82 CROSS C END C* C* Write the subfile control record C* C MOVE '1' *IN65 INVITE C WRITERL8030AC 90 C MOVE '0' *IN65 INVITE C* C* RECEIVE THE DATA QUEUE C* C Z-ADD10 DTAQWT C* C CALL 'QRCVDTAQ' C PARM DTAQNM 10 C PARM DTAQLB 10 C PARM DTAQLN 50 C PARM DTAQFL 80 C PARM DTAQWT 50 C* C* IF THE LENGTH IS 0, TREAT AS REQUEST FOR REFRESH AND UPDATE DISPLAY C* C DTAQLN IFEQ 0 C MOVE '1' *IN05 C ELSE C* C* There is input, read it now C* C READ RL8030AC 90 C END C* C* CLEAR MESSAGE SUBFILE C* C MSGYES IFEQ 'Y' C MOVE 'YES' CLEAR C EXSR $MSG C END C* C* UPDATE CONTROL FIELDS C* C MOVE PUT SCREEN C MOVE PUT LASTSC C* C ENDSR Patrick SHISHIRKSINGH wrote: > > Thanks for the response. But, still I have not been able to get the > desired results. Basically my requirement is that when I > do EXFMT(or SNDRCVF) for the display file, and then for 2 minutes I > don't do anything, then the control should return back to > the program and accordingly take proper steps(based on whether it > was a time out or whether the user entered something > within the stipulated 2 minutes) . I am using V4R1. > > Am I going wrong somewhere? > > -------- Shishir > > > > ---Original Message----- > From: Peter Dow [mailto:pcdow@yahoo.com] > Sent: Saturday, January 22, 2000 3:48 AM > To: MIDRANGE-L@midrange.com > Subject: Re: Screen Refresh > > Isn't INVITE a record-level keyword? > > ----- Original Message ----- > From: Leland, <mailto:dleland@Harter.com> David > To: 'MIDRANGE-L@midrange.com' <mailto:'MIDRANGE-L@midrange.com'> > Sent: Friday, January 21, 2000 1:16 PM > Subject: RE: Screen Refresh > > Sounds simple enough and the example in the CL programming manual > SC41-5721-02 looks pretty basic but something's not working. When I > press Enter or any function key, it doesn't put anything in the data queue. > > The display file was created w/ the DTAQ parameter and DFTWRT(*NO). > I've created the data queue prior to calling the program. > I write the screen - WRITE RECORD > Then, I call the QRCVDTAQ program to receive the data queue with a wait time > of 120. > When I press Enter or any function key, it just stays at the screen and > nothing happens until the 120 seconds expires. Nothing gets put into the > data queue either. > > What am I missing? I don't see if from the manual. The only thing it > mentions is INVITE but when I put that in at the file level, I receive an > error message. > > Dave > > -----Original Message----- > From: Patrick Townsend [ mailto:townsend@patownsend.com > <mailto:townsend@patownsend.com> ] > Sent: Friday, January 21, 2000 2:36 PM > To: MIDRANGE-L@midrange.com > Subject: Re: Screen Refresh > > Yes. Override the display file to a data queue and then read the data > queue in your program. You can specify a timeout value for the data > queue. If the user presses Enter or a function key you will be able to > tell from the data queue contents and you can then read the display > file. If the data queue read length is zero you know it's timed out and > you can refresh the display or whatever. > > Patrick > -- > IBM AS/400 communications, FTP automation, and network security > software and consulting services. > > http://www.patownsend.com <http://www.patownsend.com> > > SHISHIRKSINGH wrote: > > > > Hi, > > > > Is there any way of refreshing the display screen (executing the loop > again) > > if the user does not enter within some specified time say 2 minutes. > > > > TIA > > Shishir > > +--- > > | This is the Midrange System Mailing List! > > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > > | To unsubscribe from this list send email to > MIDRANGE-L-UNSUB@midrange.com. > > | Questions should be directed to the list owner/operator: > david@midrange.com > > +--- > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. > > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: david@midrange.com > +--- -- IBM AS/400 communications, FTP automation, and network security software and consulting services. http://www.patownsend.com +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
