http://itknowledgeexchange.techtarget.com/itanswers/how-can-i-automatically-refresh-my-screen/ Tue, 21 May 2013 09:44:41 +0000 hourly 1 http://itknowledgeexchange.techtarget.com/itanswers/how-can-i-automatically-refresh-my-screen/#comment-47697 martin40 Fri, 11 Feb 2005 04:16:33 +0000 #comment-47697 Specify INVITE on the display file with an indicator. Set the INVITE indicator on before the WRITE and off again after the READ.

]]> http://itknowledgeexchange.techtarget.com/itanswers/how-can-i-automatically-refresh-my-screen/#comment-47698 nmckinney Thu, 10 Feb 2005 08:33:19 +0000 #comment-47698 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

]]>